pro IPS_gadgets

common gadgets, quit, save, time, sing, whol

; define the sizes and positions of the gadget boxes

if n_elements (quit) eq 0 then begin
    scale = !d.n_colors/8
    quit = {x: -.5, y:-5., x1:-4.0, y1:  3., col: 3*scale}
    save = {x: -.5, y:15., x1:-4.0, y1: 23., col: 4*scale}
    time = {x: -.5, y:35., x1:-4.0, y1: 43., col: 5*scale}
    sing = {x: -.5, y:55., x1:-4.0, y1: 63., col: 6*scale}
    whol = {x: -.5, y:75., x1:-4.0, y1: 83., col: 7*scale}
endif

offset = 3.0
x = quit.x & y = quit.y & x1 = quit.x1 & y1 = quit.y1
polyfill,[x,x,x1,x1],[y,y1,y1,y],col=quit.col
y = y - offset
xyouts,x,y,'Quit'
 
x = save.x & y = save.y & x1 = save.x1 & y1 = save.y1
polyfill,[x,x,x1,x1],[y,y1,y1,y],col=save.col
y = y - offset
xyouts,x,y,'Save'

x = time.x & y = time.y & x1 = time.x1 & y1 = time.y1
polyfill,[x,x,x1,x1],[y,y1,y1,y],col=time.col
y = y - offset
xyouts,x,y,'Time'

x = sing.x & y = sing.y & x1 = sing.x1 & y1 = sing.y1
polyfill,[x,x,x1,x1],[y,y1,y1,y],col=sing.col
y = y - offset
xyouts,x,y,'Single'

x = whol.x & y = whol.y & x1 = whol.x1 & y1 = whol.y1
polyfill,[x,x,x1,x1],[y,y1,y1,y],col=whol.col
y = y - offset
xyouts,x,y,'Whole'

return  &  end