Example: HPGL View Widget
|
10 ! *********************************************************************
20 ! Example: HPGL VIEW Widget
30 !
40 ! This program displays five example HPGL File Drawings.
50 ! You can bring any of the drawings to the front by clicking
60 ! the drawing.
70 !
80 ! ********************************************************
90 !
100 ASSIGN @Hpgl1 TO WIDGET "HPGL VIEW";SET ("X":0,"Y":0,"BACKGROUND":0,"TITLE":" Mechanical Drawing","HPGL FILE":"MECH.GL","RETAIN RASTER":1)
110 CONTROL @Hpgl1;SET ("SYSTEM MENU":"Quit")
120 ON EVENT @Hpgl1,"SYSTEM MENU" GOTO Finis
130 !
140 ASSIGN @Hpgl2 TO WIDGET "HPGL VIEW";SET ("X":20,"Y":20,"TITLE":" Heat Radiation","HPGL FILE":"GSTORE.GL","BACKGROUND":0,"RETAIN RASTER":1)
150 CONTROL @Hpgl2;SET ("SYSTEM MENU":"Quit")
160 ON EVENT @Hpgl2,"SYSTEM MENU" GOTO Finis
170 !
180 ASSIGN @Hpgl3 TO WIDGET "HPGL VIEW";SET ("X":40,"Y":40,"TITLE":" Ice Berg Flows","HPGL FILE":"ICE.GL","BACKGROUND":6,"RETAIN RASTER":1)
190 CONTROL @Hpgl3;SET ("SYSTEM MENU":"Quit")
200 ON EVENT @Hpgl3,"SYSTEM MENU" GOTO Finis
210 !
220 ASSIGN @Hpgl4 TO WIDGET "HPGL VIEW";SET ("X":60,"Y":60,"TITLE":" Topographical Map","HPGL FILE":"CONTOR.GL","BACKGROUND":0,"RETAIN RASTER":1)
230 CONTROL @Hpgl4;SET ("SYSTEM MENU":"Quit")
240 ON EVENT @Hpgl4,"SYSTEM MENU" GOTO Finis
250 !
260 ASSIGN @Hpgl5 TO WIDGET "HPGL VIEW";SET ("X":80,"Y":80,"TITLE":" Space Shuttle","HPGL FILE":"SHUTTLE.GL","BACKGROUND":0,"RETAIN RASTER":1)
270 CONTROL @Hpgl5;SET ("SYSTEM MENU":"Quit")
280 ON EVENT @Hpgl5,"SYSTEM MENU" GOTO Finis
290 !
300 LOOP
310 WAIT FOR EVENT
320 END LOOP
330 Finis: !
340 ASSIGN @Hpgl1 TO * ! Delete HPGL VIEW widget #1
350 ASSIGN @Hpgl2 TO * ! Delete HPGL VIEW widget #2
360 ASSIGN @Hpgl3 TO * ! Delete HPGL VIEW widget #3
370 ASSIGN @Hpgl4 TO * ! Delete HPGL VIEW widget #4
380 ASSIGN @Hpgl5 TO * ! Delete HPGL VIEW widget #5
390 END
