/thefile (hn/SUN/OL.ps) def {thefile (r) file} stopped { console (Cannot open: %\n) [thefile] fprintf quit } if /OLDraw thefile run def currentdict OLDraw end begin begin /BG0 .95 dup dup rgbcolor def /BG .80 dup dup rgbcolor def /BG2 .72 dup dup rgbcolor def /BG3 .45 dup dup rgbcolor def /FG 0 dup dup rgbcolor def BG setcolor 0 0 600 400 rectpath fill /rsf /Helvetica findfont 12 scalefont def /rs {-10 2 moveto 0 setgray rsf setfont rshow} def gsave 120 10 translate (Abbreviated button:) rs gsave false OLBut 20 0 translate true OLBut 20 0 translate true false OLMenuBut 20 0 translate true true OLMenuBut 20 0 translate false false OLMenuBut 20 0 translate false true OLMenuBut grestore 0 30 translate gsave (Scroll buttons:) rs false 0 0 OLScrollButLeft true 20 0 OLScrollButLeft false 40 0 OLScrollButRight true 60 0 OLScrollButRight false 80 0 OLScrollButUp true 100 0 OLScrollButUp false 120 0 OLScrollButDown true 140 0 OLScrollButDown grestore 0 30 translate gsave (Check box:) rs false false OLCheckBox 20 0 translate false true OLCheckBox 20 0 translate true false OLCheckBox grestore 0 30 translate gsave (Boxes and lines:) rs false 0 0 25 14 OLRect true 40 0 25 14 OLRect %.9 .6 .6 setrgbcolor 219 159 27 16 rectpath fill true 80 0 25 14 OLBox true 120 1 20 OLHLine false 120 11 20 OLHLine true 160 0 15 OLVLine false 170 0 15 OLVLine grestore 0 30 translate gsave (Vertical elevators:) rs 0 0 moveto true true false true OLElevator 20 0 moveto true true false true OLElevator 20 0 moveto /ElevatorUp false true OLElevatorHilite 40 0 moveto true true false true OLElevator 40 0 moveto /ElevatorDrag false true OLElevatorHilite 60 0 moveto true true false true OLElevator 60 0 moveto /ElevatorDown false true OLElevatorHilite 80 0 moveto true true true true OLElevator 100 0 moveto true true true true OLElevator 100 0 moveto /ElevatorUp true true OLElevatorHilite 120 0 moveto true true true true OLElevator 120 0 moveto /ElevatorDown true true OLElevatorHilite grestore 0 60 translate gsave (Scrollbar anchors:) rs 0 0 moveto false true OLAnchor 20 0 moveto true true OLAnchor grestore grestore 380 10 translate gsave gsave (Buttons:) rs false 60 OLButton 70 0 translate true 60 OLButton 70 0 translate false 60 OLButton 60 OLButtonDefault grestore 0 30 translate gsave (Menu buttons:) rs true false 60 OLMenuButton 70 0 translate true true 60 OLMenuButton 70 0 translate false false 60 OLMenuButton grestore 0 30 translate gsave (Settings:) rs false 60 OLSetting 70 0 translate true 60 OLSetting 70 0 translate false 60 OLSetting 50 OLSettingDefault grestore 0 30 translate gsave (Stipple:) rs 0 0 40 15 rectpath 0 setgray OLStipple rsf setfont 60 5 moveto (Arthur) show 60 0 40 20 rectpath BG setcolor OLStipple grestore 0 30 translate gsave (Caret:) rs .7 setgray 10 2 moveto 80 0 rlineto 20 -10 moveto 0 20 rlineto 40 -10 moveto 0 20 rlineto stroke 0 setgray 20 0 moveto true OLCaret 40 0 moveto false OLCaret rsf setfont 60 2 moveto (HyperNe) show OLMoreArrow grestore 0 30 translate gsave (Pin:) rs false 0 0 OLPin true 40 0 OLPin grestore 0 30 translate gsave (Reshape corners:) rs false 10 5 OLReshapeNE false 10 5 OLReshapeNW false 10 5 OLReshapeSW false 10 5 OLReshapeSE true 40 5 OLReshapeNE true 40 5 OLReshapeNW true 40 5 OLReshapeSW true 40 5 OLReshapeSE grestore %stack showpage