"SfR Fresh" - the SfR Freeware/Shareware Archive 
As a special service "SfR Fresh" has tried to format the requested source page into HTML format using source code syntax highlighting with prefixed line numbers.
Alternatively you can here view or download the uninterpreted source code file.
That can be also achieved for any archive member file by clicking within an archive contents listing on the first character of the file(path) respectively on the according byte size field.
1 '
2 '
3 ' ############################
4 ' ##### SolidColors () #####
5 ' ############################
6 '
7 FUNCTION SolidColors (grid, message, v0, v1, v2, v3, r0, (r1, r1$, r1[], r1$[]))
8 STATIC designX, designY, designWidth, designHeight
9 STATIC SUBADDR sub[]
10 STATIC upperMessage
11 STATIC SolidColors
12 '
13 $SolidColors = 0 ' kid 0 grid type = SolidColors
14 $Black = 1 ' kid 1 grid type = XuiLabel
15 $Blue = 2 ' kid 2 grid type = XuiLabel
16 $LightBlue = 3 ' kid 3 grid type = XuiLabel
17 $Green = 4 ' kid 4 grid type = XuiLabel
18 $Cyan = 5 ' kid 5 grid type = XuiLabel
19 $LightGreen = 6 ' kid 6 grid type = XuiLabel
20 $LightCyan = 7 ' kid 7 grid type = XuiLabel
21 $Red = 8 ' kid 8 grid type = XuiLabel
22 $Magenta = 9 ' kid 9 grid type = XuiLabel
23 $Brown = 10 ' kid 10 grid type = XuiLabel
24 $Grey = 11 ' kid 11 grid type = XuiLabel
25 $BrightGrey = 12 ' kid 12 grid type = XuiLabel
26 $LightRed = 13 ' kid 13 grid type = XuiLabel
27 $LightMagenta = 14 ' kid 14 grid type = XuiLabel
28 $Yellow = 15 ' kid 15 grid type = XuiLabel
29 $White = 16 ' kid 16 grid type = XuiLabel
30 $Line1 = 17 ' kid 17 grid type = XuiLabel
31 $Line2 = 18 ' kid 18 grid type = XuiLabel
32 $Line3 = 19 ' kid 19 grid type = XuiLabel
33 $Line4 = 20 ' kid 20 grid type = XuiLabel
34 $Line5 = 21 ' kid 21 grid type = XuiLabel
35 $Line6 = 22 ' kid 22 grid type = XuiLabel
36 $Line7 = 23 ' kid 23 grid type = XuiLabel
37 $Line8 = 24 ' kid 24 grid type = XuiLabel
38 $Quit = 25 ' kid 25 grid type = XuiPushButton
39 $UpperKid = 25 ' kid maximum
40 '
41 '
42 IFZ sub[] THEN GOSUB Initialize
43 ' XuiReportMessage (grid, message, v0, v1, v2, v3, r0, r1)
44 IF XuiProcessMessage (grid, message, @v0, @v1, @v2, @v3, @r0, @r1, SolidColors) THEN RETURN
45 IF (message <= upperMessage) THEN GOSUB @sub[message]
46 RETURN
47 '
48 '
49 ' ***** Callback ***** message = Callback : r1 = original message
50 '
51 SUB Callback
52 message = r1
53 callback = message
54 IF (message <= upperMessage) THEN GOSUB @sub[message]
55 END SUB
56 '
57 '
58 ' ***** Create ***** v0123 = xywh : r0 = window : r1 = parent
59 '
60 SUB Create
61 IF (v0 <= 0) THEN v0 = 0
62 IF (v1 <= 0) THEN v1 = 0
63 IF (v2 <= 0) THEN v2 = designWidth
64 IF (v3 <= 0) THEN v3 = designHeight
65 XuiCreateGrid (@grid, SolidColors, @v0, @v1, @v2, @v3, r0, r1, &SolidColors())
66 XuiSendMessage ( grid, #SetGridName, 0, 0, 0, 0, 0, @"SolidColors")
67 XuiSendMessage ( grid, #SetAlign, $$AlignMiddleCenter, 0, -1, -1, 0, 0)
68 XuiLabel (@g, #Create, 4, 4, 144, 68, r0, grid)
69 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Black")
70 XuiSendMessage ( g, #SetColor, $$Black, $$White, $$Black, $$White, 0, 0)
71 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
72 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
73 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$Black\n\n(drawing)\n(lowlight)\n(lowtext)")
74 XuiLabel (@g, #Create, 148, 4, 144, 68, r0, grid)
75 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Blue")
76 XuiSendMessage ( g, #SetColor, $$Blue, $$White, $$Black, $$White, 0, 0)
77 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
78 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
79 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$Blue\n$$MediumBlue")
80 XuiLabel (@g, #Create, 292, 4, 144, 68, r0, grid)
81 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"LightBlue")
82 XuiSendMessage ( g, #SetColor, $$LightBlue, $$White, $$Black, $$White, 0, 0)
83 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
84 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
85 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$LightBlue")
86 XuiLabel (@g, #Create, 436, 4, 144, 68, r0, grid)
87 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Green")
88 XuiSendMessage ( g, #SetColor, $$Green, $$White, $$Black, $$White, 0, 0)
89 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
90 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
91 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$Green\n$$MediumGreen")
92 XuiLabel (@g, #Create, 4, 72, 144, 68, r0, grid)
93 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Cyan")
94 XuiSendMessage ( g, #SetColor, $$Cyan, $$White, $$Black, $$White, 0, 0)
95 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
96 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
97 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$Cyan\n$$MediumCyan\n\n(dull)")
98 XuiLabel (@g, #Create, 148, 72, 144, 68, r0, grid)
99 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"LightGreen")
100 XuiSendMessage ( g, #SetColor, $$LightGreen, $$Black, $$Black, $$White, 0, 0)
101 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
102 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
103 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$LightGreen")
104 XuiLabel (@g, #Create, 292, 72, 144, 68, r0, grid)
105 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"LightCyan")
106 XuiSendMessage ( g, #SetColor, $$LightCyan, $$Black, $$Black, $$White, 0, 0)
107 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
108 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
109 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$LightCyan")
110 XuiLabel (@g, #Create, 436, 72, 144, 68, r0, grid)
111 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Red")
112 XuiSendMessage ( g, #SetColor, $$Red, $$White, $$Black, $$White, 0, 0)
113 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
114 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
115 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$Red\n$$MediumRed")
116 XuiLabel (@g, #Create, 4, 140, 144, 68, r0, grid)
117 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Magenta")
118 XuiSendMessage ( g, #SetColor, $$Magenta, $$White, $$Black, $$White, 0, 0)
119 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
120 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
121 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$Magenta\n$$MediumMagenta")
122 XuiLabel (@g, #Create, 148, 140, 144, 68, r0, grid)
123 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Brown")
124 XuiSendMessage ( g, #SetColor, $$Brown, $$White, $$Black, $$White, 0, 0)
125 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
126 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
127 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$Brown\n$$MediumBrown")
128 XuiLabel (@g, #Create, 292, 140, 144, 68, r0, grid)
129 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Grey")
130 XuiSendMessage ( g, #SetColor, $$Grey, $$White, $$Black, $$White, 0, 0)
131 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
132 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
133 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$Grey\n$$MediumGrey")
134 XuiLabel (@g, #Create, 436, 140, 144, 68, r0, grid)
135 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"BrightGrey")
136 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
137 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
138 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$BrightGrey\n\n(background)")
139 XuiLabel (@g, #Create, 4, 208, 144, 64, r0, grid)
140 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"LightRed")
141 XuiSendMessage ( g, #SetColor, $$LightRed, $$Black, $$Black, $$White, 0, 0)
142 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
143 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
144 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$LightRed")
145 XuiLabel (@g, #Create, 148, 208, 144, 64, r0, grid)
146 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"LightMagenta")
147 XuiSendMessage ( g, #SetColor, $$LightMagenta, $$Black, $$Black, $$White, 0, 0)
148 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
149 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
150 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$LightMagenta")
151 XuiLabel (@g, #Create, 292, 208, 144, 64, r0, grid)
152 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Yellow")
153 XuiSendMessage ( g, #SetColor, 120, $$Black, $$Black, $$White, 0, 0)
154 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
155 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
156 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$Yellow\n\n(accent)")
157 XuiLabel (@g, #Create, 436, 208, 144, 64, r0, grid)
158 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"White")
159 XuiSendMessage ( g, #SetColor, $$White, $$Black, $$Black, $$White, 0, 0)
160 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
161 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
162 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"$$White\n\n(highlight)\n(hightext)")
163 XuiLabel (@g, #Create, 4, 272, 576, 16, r0, grid)
164 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Line1")
165 XuiSendMessage ( g, #SetColor, $$Black, $$Black, $$Black, $$White, 0, 0)
166 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
167 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"The colors above are almost always \"solid\" colors on most systems")
168 XuiLabel (@g, #Create, 4, 288, 576, 16, r0, grid)
169 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Line2")
170 XuiSendMessage ( g, #SetColor, $$Black, $$LightGreen, $$Black, $$White, 0, 0)
171 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
172 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
173 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"Default colors (shown in parentheses) are usually solid colors")
174 XuiLabel (@g, #Create, 4, 304, 576, 16, r0, grid)
175 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Line3")
176 XuiSendMessage ( g, #SetColor, $$Black, $$LightCyan, $$Black, $$White, 0, 0)
177 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
178 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
179 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"IMPORT \"xgr\" defines these color name constants for programs")
180 XuiLabel (@g, #Create, 4, 320, 576, 16, r0, grid)
181 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Line4")
182 XuiSendMessage ( g, #SetColor, $$Black, $$LightRed, $$Black, $$White, 0, 0)
183 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
184 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
185 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"Video card/monitor combinations display colors differently")
186 XuiLabel (@g, #Create, 4, 336, 576, 16, r0, grid)
187 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Line5")
188 XuiSendMessage ( g, #SetColor, $$Black, 120, $$Black, $$White, 0, 0)
189 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
190 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
191 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"Most distributed programs should contain only these colors")
192 XuiLabel (@g, #Create, 4, 352, 576, 16, r0, grid)
193 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Line6")
194 XuiSendMessage ( g, #SetColor, $$Black, $$White, $$Black, $$White, 0, 0)
195 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
196 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
197 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"Most distributed programs should alter few if any colors")
198 XuiLabel (@g, #Create, 4, 368, 576, 16, r0, grid)
199 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Line7")
200 XuiSendMessage ( g, #SetColor, $$Black, $$LightGreen, $$Black, $$White, 0, 0)
201 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
202 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
203 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"Text grid background colors should always be solid")
204 XuiLabel (@g, #Create, 4, 384, 576, 16, r0, grid)
205 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Line8")
206 XuiSendMessage ( g, #SetColor, $$Black, $$LightCyan, $$Black, $$White, 0, 0)
207 XuiSendMessage ( g, #SetBorder, $$BorderNone, $$BorderNone, $$BorderNone, -1, 0, 0)
208 XuiSendMessage ( g, #SetTexture, $$TextureNone, 0, 0, 0, 0, 0)
209 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"3D effect colors should rarely be altered")
210 XuiPushButton (@g, #Create, 4, 400, 576, 48, r0, grid)
211 XuiSendMessage ( g, #SetCallback, grid, &SolidColors(), -1, -1, $Quit, grid)
212 XuiSendMessage ( g, #SetGridName, 0, 0, 0, 0, 0, @"Quit")
213 XuiSendMessage ( g, #SetColor, 76, $$LightCyan, $$Black, $$White, 0, 0)
214 XuiSendMessage ( g, #SetColorExtra, $$Grey, $$Yellow, $$Black, $$LightCyan, 0, 0)
215 XuiSendMessage ( g, #SetBorder, $$BorderRaise4, $$BorderRaise4, $$BorderLower2, -1, 0, 0)
216 XuiSendMessage ( g, #SetTexture, $$TextureRaise1, 0, 0, 0, 0, 0)
217 XuiSendMessage ( g, #SetTextString, 0, 0, 0, 0, 0, @"some non-solid colors like this are okay backgrounds\n*** PRESS THIS BUTTON TO QUIT ***")
218 GOSUB Resize
219 END SUB
220 '
221 '
222 ' ***** CreateWindow ***** v0123 = xywh : r0 = windowType : r1$ = display$
223 '
224 SUB CreateWindow
225 IF (v0 = 0) THEN v0 = designX
226 IF (v1 = 0) THEN v1 = designY
227 IF (v2 <= 0) THEN v2 = designWidth
228 IF (v3 <= 0) THEN v3 = designHeight
229 XuiWindow (@window, #WindowCreate, v0, v1, v2, v3, r0, @r1$)
230 v0 = 0 : v1 = 0 : r0 = window : ATTACH r1$ TO display$
231 GOSUB Create
232 r1 = 0 : ATTACH display$ TO r1$
233 XuiWindow (window, #WindowRegister, grid, -1, v2, v3, @r0, @"SolidColors")
234 END SUB
235 '
236 '
237 ' ***** GetSmallestSize ***** See "Anatomy of Grid Functions"
238 '
239 SUB GetSmallestSize
240 END SUB
241 '
242 '
243 ' ***** Resize ***** See "Anatomy of Grid Functions"
244 '
245 SUB Resize
246 END SUB
247 '
248 '
249 ' ***** Selection ***** See "Anatomy of Grid Functions"
250 '
251 SUB Selection
252 END SUB
253 '
254 '
255 ' ***** Initialize ***** ' see "Anatomy of Grid Functions"
256 '
257 SUB Initialize
258 XuiGetDefaultMessageFuncArray (@func[])
259 XgrMessageNameToNumber (@"LastMessage", @upperMessage)
260 '
261 func[#Callback] = &XuiCallback () ' disable to handle Callback messages internally
262 ' func[#GetSmallestSize] = 0 ' enable to add internal GetSmallestSize routine
263 ' func[#Resize] = 0 ' enable to add internal Resize routine
264 '
265 DIM sub[upperMessage]
266 ' sub[#Callback] = SUBADDRESS (Callback) ' enable to handle Callback messages internally
267 sub[#Create] = SUBADDRESS (Create) ' must be internal routine
268 sub[#CreateWindow] = SUBADDRESS (CreateWindow) ' must be internal routine
269 ' sub[#GetSmallestSize] = SUBADDRESS (GetSmallestSize) ' enable to add internal GetSmallestSize routine
270 ' sub[#Resize] = SUBADDRESS (Resize) ' enable to add internal Resize routine
271 sub[#Selection] = SUBADDRESS (Selection) ' routes Selection callbacks to subroutine
272 '
273 IF sub[0] THEN PRINT "SolidColors(): Initialize: Error::: (Undefined Message)"
274 IF func[0] THEN PRINT "SolidColors(): Initialize: Error::: (Undefined Message)"
275 XuiRegisterGridType (@SolidColors, "SolidColors", &SolidColors(), @func[], @sub[])
276 '
277 ' Don't remove the following 4 lines, or WindowFromFunction/WindowToFunction will not work
278 '
279 designX = 436
280 designY = 23
281 designWidth = 584
282 designHeight = 452
283 '
284 gridType = SolidColors
285 XuiSetGridTypeValue (gridType, @"x", designX)
286 XuiSetGridTypeValue (gridType, @"y", designY)
287 XuiSetGridTypeValue (gridType, @"width", designWidth)
288 XuiSetGridTypeValue (gridType, @"height", designHeight)
289 XuiSetGridTypeValue (gridType, @"maxWidth", designWidth)
290 XuiSetGridTypeValue (gridType, @"maxHeight", designHeight)
291 XuiSetGridTypeValue (gridType, @"minWidth", designWidth)
292 XuiSetGridTypeValue (gridType, @"minHeight", designHeight)
293 XuiSetGridTypeValue (gridType, @"border", $$BorderFrame)
294 XuiSetGridTypeValue (gridType, @"can", $$Focus OR $$Respond OR $$Callback)
295 XuiSetGridTypeValue (gridType, @"focusKid", $Quit)
296 IFZ message THEN RETURN
297 END SUB
298 END FUNCTION