1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129
|
%%Page: (1) 1
%%BeginPageSetup
/pagesave save def
%%EndPageSetup
iso1dict begin
(Test Files) 35.25 water
gsave
llx lly 12 add translate
/v 0 store
/x0 x v get 4.431713 add sx cw mul add store
/y0 y v get bfs th add sub store
x0 y0 moveto
0 T () p n
0 T () N
0 T () S
(MODULE) K
( Confirm ) p
(EXPORTS) K
( Main;) p n
0 T () N
(5) # () S
(IMPORT) K
( Trestle, VBT, TextVBT, RigidVBT, ButtonVBT, BorderedVBT, HVSplit;) p n
0 T () S
(IMPORT) K
( PaintOp, Pixmap, Axis;) p n
0 T () S
(IMPORT) K
( ConfirmVBT;) p n
0 T () N
0 T () S
(PROCEDURE) K
( Yes \(self: ButtonVBT.T; ) p
(READONLY) K
( cd: VBT.MouseRec\) ) p
(\272) sy n
(10) # () S
( ) p
(BEGIN) K n
0 T () S
( Trestle.Delete\(main\);) p n
0 T ( ) S
(END) K
( Yes;) p n
0 T () N
0 T () S
(PROCEDURE) K
( QuitAction \(self: ButtonVBT.T; ) p
(READONLY) K
( cd: VBT.MouseRec\) ) p
(\272) sy n
(15) # () S
( ) p
(VAR) K n
0 T () S
( msg := ") p
(Do you really wish to quit?) str
(";) p n
0 T ( confirm := ConfirmVBT.New\(msg, Yes\);) N
0 T ( ) S
(BEGIN) K n
0 T () S
( Trestle.Install\(confirm\)) p n
(20) # ( ) S
(END) K
( QuitAction;) p n
0 T () N
0 T () S
(CONST) K n
0 T () S
( \(*) p
( sizes for the RigidVBT ) c
(*\)) p n
0 T ( horz ) S
(\272) sy
( 30.0;) p n
(25) # ( vert ) S
(\272) sy
( 10.0; \(*) p
( size in millimeters ) c
(*\)) p n
0 T ( \(*) S
( border size for text and button ) c
(*\)) p n
0 T ( bsize ) S
(\272) sy
( 1.5; \(*) p
( size in millimeters ) c
(*\)) p n
0 T () N
0 T () S
(VAR) K n
(30) # () S
( blue := PaintOp.FromRGB\(0.0, 0.0, 1.0\);) p n
0 T ( green := PaintOp.FromRGB\(0.0, 1.0, 0.0\);) N
0 T ( text := RigidVBT.FromHV\(TextVBT.New\(") S
(Confirm demo) str
("\), horz, vert\);) p n
0 T ( top := BorderedVBT.New\() N
0 T ( text, size := bsize, op := blue, txt := Pixmap.Solid\);) N
(35) # ( button := ButtonVBT.New\(TextVBT.New\(") S
(Quit) str
("\), QuitAction\);) p n
0 T ( bottom := BorderedVBT.New\() N
0 T ( button, size := bsize, op := green, txt := Pixmap.Gray\);) N
0 T ( main := HVSplit.Cons\(Axis.T.Ver, top, bottom\);) N
0 T () N
(40) # () S
(BEGIN) K n
0 T () S
( Trestle.Install\(main\);) p n
0 T ( Trestle.AwaitDelete\(main\)) N
0 T () S
(END) K
( Confirm.) p n
0 T () N
(45) # () N
(confirm.m3) (right) (1) title
border
grestore
(The room for the header) rhead
(Printed by Somebody from a machine) (Right) (1) footer
end % of iso1dict
pagesave restore
showpage
%%Trailer
end
%%EOF
|