File: confirm.ps

package info (click to toggle)
a2ps 1%3A4.14-1.1%2Bdeb6u1
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 12,324 kB
  • ctags: 4,908
  • sloc: ansic: 26,659; sh: 13,155; lex: 2,286; perl: 1,156; yacc: 757; makefile: 605; lisp: 398; ada: 263; objc: 189; f90: 109; ml: 85; sql: 74; pascal: 57; modula3: 33; haskell: 32; sed: 30; java: 29; python: 24
file content (129 lines) | stat: -rw-r--r-- 2,475 bytes parent folder | download | duplicates (13)
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