Source code: jlib/JLIB.java
1 package jlib;
2 /**
3 * this file is automatically generated by the silk->javac compiler Compiler.scm.
4 * Modify at your own risk!
5 */
6 import silk.*;
7 import java.lang.reflect.*;
8 import java.util.*;
9 import java.awt.*;
10 import java.lang.*;
11 import java.util.*;
12 import silk.*;
13
14
15 public class JLIB extends Procedure implements Function, Runnable {
16 public int whichcode=0; // corresponds to a numbering of the toplevel procedures of the program
17 public int whichtype=0; // 0 = user defined procedure, 1 = java literal
18 public static final int USER_DEF=0, JAVA_LIT=1;
19 public Pair frame;
20 public JLIB() { super();}
21 public JLIB(int t, int n, Pair f) {
22 whichtype = t;
23 whichcode = n;
24 frame = f;
25 }
26
27 private Boolean addImport(String s) {
28 silk.Import.addImport(s);
29 return Boolean.TRUE;
30 }
31
32 public void run() {
33 this.invoke(null);
34 }
35
36 public Object apply(Object[] args) {
37 return invoke((Pair)args[0]);
38 }
39
40 public Object apply(Pair args) {
41 return invoke(args);
42 }
43
44 public Object invoke(Pair args)
45 {
46 return LCO.eval(invoke1(args));
47 }
48
49 static Object tmp;
50
51
52 public static void load() {
53 new JLIB().init();
54 }
55
56 public static void load(String shellArgs[]) {
57 silk.Symbol.intern("shellArgs").setGlobalValue(shellArgs);
58 load();
59 }
60
61 public static void main(String shellArgs[]) {
62 Symbol main = silk.Symbol.intern("main");
63 load(shellArgs);
64 if (main.isDefined())
65 ((Procedure) main.getGlobalValue()).apply(new Pair(shellArgs,Pair.EMPTY));
66 }
67
68 public Object invoke1(Pair args) {
69 if (whichtype == USER_DEF) {
70 switch (whichcode) {
71 case 0: return(_L0(args));
72 case 1: return(_L1(args));
73 case 2: return(_L2(args));
74 case 3: return(_L3(args));
75 case 4: return(_L4(args));
76 case 5: return(_L5(args));
77 case 6: return(_L6(args));
78 case 7: return(_L7(args));
79 case 8: return(_L8(args));
80 case 9: return(_L9(args));
81 case 10: return(_L10(args));
82 case 11: return(_L11(args));
83 case 12: return(_L12(args));
84 case 13: return(_L13(args));
85 case 14: return(_L14(args));
86 case 15: return(_L15(args));
87 case 16: return(_L16(args));
88 case 17: return(_L17(args));
89 case 18: return(_L18(args));
90 case 19: return(_L19(args));
91 case 20: return(_L20(args));
92 case 21: return(_L21(args));
93 case 22: return(_L22(args));
94 case 23: return(_L23(args));
95 case 24: return(_L24(args));
96 case 25: return(_L25(args));
97 case 26: return(_L26(args));
98 case 27: return(_L27(args));
99 case 28: return(_L28(args));
100 case 29: return(_L29(args));
101 case 30: return(_L30(args));
102 case 31: return(_L31(args));
103 case 32: return(_L32(args));
104 case 33: return(_L33(args));
105 case 34: return(_L34(args));
106 case 35: return(_L35(args));
107 case 36: return(_L36(args));
108 case 37: return(_L37(args));
109 case 38: return(_L38(args));
110 case 39: return(_L39(args));
111 case 40: return(_L40(args));
112 case 41: return(_L41(args));
113 case 42: return(_L42(args));
114 case 43: return(_L43(args));
115 case 44: return(_L44(args));
116 case 45: return(_L45(args));
117 case 46: return(_L46(args));
118 case 47: return(_L47(args));
119 case 48: return(_L48(args));
120 case 49: return(_L49(args));
121 case 50: return(_L50(args));
122 case 51: return(_L51(args));
123 case 52: return(_L52(args));
124 case 53: return(_L53(args));
125 case 54: return(_L54(args));
126 case 55: return(_L55(args));
127 case 56: return(_L56(args));
128 case 57: return(_L57(args));
129 case 58: return(_L58(args));
130 case 59: return(_L59(args));
131 case 60: return(_L60(args));
132 case 61: return(_L61(args));
133 case 62: return(_L62(args));
134 case 63: return(_L63(args));
135 case 64: return(_L64(args));
136 case 65: return(_L65(args));
137 case 66: return(_L66(args));
138 case 67: return(_L67(args));
139 case 68: return(_L68(args));
140 case 69: return(_L69(args));
141 case 70: return(_L70(args));
142 case 71: return(_L71(args));
143 case 72: return(_L72(args));
144 case 73: return(_L73(args));
145 case 74: return(_L74(args));
146 case 75: return(_L75(args));
147 case 76: return(_L76(args));
148 case 77: return(_L77(args));
149 case 78: return(_L78(args));
150 case 79: return(_L79(args));
151 case 80: return(_L80(args));
152 case 81: return(_L81(args));
153 case 82: return(_L82(args));
154 case 83: return(_L83(args));
155 case 84: return(_L84(args));
156 case 85: return(_L85(args));
157 case 86: return(_L86(args));
158 case 87: return(_L87(args));
159 case 88: return(_L88(args));
160 case 89: return(_L89(args));
161 case 90: return(_L90(args));
162 case 91: return(_L91(args));
163 case 92: return(_L92(args));
164 case 93: return(_L93(args));
165 case 94: return(_L94(args));
166 case 95: return(_L95(args));
167 case 96: return(_L96(args));
168 case 97: return(_L97(args));
169 case 98: return(_L98(args));
170 case 99: return(_L99(args));
171 case 100: return(_L100(args));
172 case 101: return(_L101(args));
173 case 102: return(_L102(args));
174 case 103: return(_L103(args));
175 case 104: return(_L104(args));
176 case 105: return(_L105(args));
177 case 106: return(_L106(args));
178 case 107: return(_L107(args));
179 case 108: return(_L108(args));
180 case 109: return(_L109(args));
181 case 110: return(_L110(args));
182 case 111: return(_L111(args));
183 case 112: return(_L112(args));
184 case 113: return(_L113(args));
185
186 default: System.exit(0); break;
187 }}
188 else {
189 switch (whichcode) {
190 case 0: return(_J0(args));
191 case 1: return(_J1(args));
192 case 2: return(_J2(args));
193 case 3: return(_J3(args));
194 case 4: return(_J4(args));
195 case 5: return(_J5(args));
196 case 6: return(_J6(args));
197 case 7: return(_J7(args));
198 case 8: return(_J8(args));
199 case 9: return(_J9(args));
200 case 10: return(_J10(args));
201 case 11: return(_J11(args));
202 case 12: return(_J12(args));
203 case 13: return(_J13(args));
204 case 14: return(_J14(args));
205 case 15: return(_J15(args));
206 case 16: return(_J16(args));
207 case 17: return(_J17(args));
208 case 18: return(_J18(args));
209 case 19: return(_J19(args));
210 case 20: return(_J20(args));
211 case 21: return(_J21(args));
212 case 22: return(_J22(args));
213 case 23: return(_J23(args));
214 case 24: return(_J24(args));
215 case 25: return(_J25(args));
216 case 26: return(_J26(args));
217 case 27: return(_J27(args));
218 case 28: return(_J28(args));
219 case 29: return(_J29(args));
220 case 30: return(_J30(args));
221 case 31: return(_J31(args));
222 case 32: return(_J32(args));
223 case 33: return(_J33(args));
224 case 34: return(_J34(args));
225 case 35: return(_J35(args));
226 case 36: return(_J36(args));
227 case 37: return(_J37(args));
228 case 38: return(_J38(args));
229 case 39: return(_J39(args));
230 case 40: return(_J40(args));
231 case 41: return(_J41(args));
232 case 42: return(_J42(args));
233 case 43: return(_J43(args));
234 case 44: return(_J44(args));
235 case 45: return(_J45(args));
236 case 46: return(_J46(args));
237 case 47: return(_J47(args));
238 case 48: return(_J48(args));
239 case 49: return(_J49(args));
240 case 50: return(_J50(args));
241 case 51: return(_J51(args));
242 case 52: return(_J52(args));
243 case 53: return(_J53(args));
244 case 54: return(_J54(args));
245 case 55: return(_J55(args));
246 case 56: return(_J56(args));
247 case 57: return(_J57(args));
248 case 58: return(_J58(args));
249 case 59: return(_J59(args));
250 case 60: return(_J60(args));
251 case 61: return(_J61(args));
252 case 62: return(_J62(args));
253 case 63: return(_J63(args));
254 case 64: return(_J64(args));
255 case 65: return(_J65(args));
256 case 66: return(_J66(args));
257 case 67: return(_J67(args));
258 case 68: return(_J68(args));
259 case 69: return(_J69(args));
260 case 70: return(_J70(args));
261 case 71: return(_J71(args));
262 case 72: return(_J72(args));
263 case 73: return(_J73(args));
264 case 74: return(_J74(args));
265 case 75: return(_J75(args));
266 case 76: return(_J76(args));
267 case 77: return(_J77(args));
268 case 78: return(_J78(args));
269 case 79: return(_J79(args));
270 case 80: return(_J80(args));
271 case 81: return(_J81(args));
272 case 82: return(_J82(args));
273 case 83: return(_J83(args));
274 case 84: return(_J84(args));
275 case 85: return(_J85(args));
276 case 86: return(_J86(args));
277 case 87: return(_J87(args));
278 case 88: return(_J88(args));
279 case 89: return(_J89(args));
280 case 90: return(_J90(args));
281 case 91: return(_J91(args));
282 case 92: return(_J92(args));
283 case 93: return(_J93(args));
284 case 94: return(_J94(args));
285 case 95: return(_J95(args));
286 case 96: return(_J96(args));
287 case 97: return(_J97(args));
288 case 98: return(_J98(args));
289 case 99: return(_J99(args));
290 case 100: return(_J100(args));
291 case 101: return(_J101(args));
292 case 102: return(_J102(args));
293 case 103: return(_J103(args));
294 case 104: return(_J104(args));
295 case 105: return(_J105(args));
296 case 106: return(_J106(args));
297 case 107: return(_J107(args));
298 case 108: return(_J108(args));
299 case 109: return(_J109(args));
300 case 110: return(_J110(args));
301 case 111: return(_J111(args));
302 case 112: return(_J112(args));
303 case 113: return(_J113(args));
304 case 114: return(_J114(args));
305 case 115: return(_J115(args));
306 case 116: return(_J116(args));
307 case 117: return(_J117(args));
308 case 118: return(_J118(args));
309 case 119: return(_J119(args));
310 case 120: return(_J120(args));
311 case 121: return(_J121(args));
312 case 122: return(_J122(args));
313 case 123: return(_J123(args));
314
315 default: System.exit(0); break;
316 }}
317
318
319
320 return null;
321 }
322
323
324
325 public void init() {
326 Pair Args = null;
327 Symbol.intern("this").setGlobalValue(this);
328 Class _p = Primitive.class; // this loads the primitives
329 addImport("java.awt.*");
330
331 addImport("java.lang.*");
332
333 addImport("java.util.*");
334
335 addImport("silk.*");
336
337 Symbol.intern("error").setGlobalValue(new JLIB(USER_DEF, 0, new Pair( Args, this.frame)));
338
339 Symbol.intern("size").setGlobalValue(new JLIB(USER_DEF, 1, new Pair( Args, this.frame)));
340
341 Symbol.intern("action").setGlobalValue(new JLIB(USER_DEF, 5, new Pair( Args, this.frame)));
342
343 ((Procedure)_J7/* silk.BacktraceException.printJavaTrace$ */).apply( new Pair(_C3,Pair.EMPTY));
344
345 Symbol.intern("window").setGlobalValue(new JLIB(USER_DEF, 11, new Pair( Args, this.frame)));
346
347 Symbol.intern("center").setGlobalValue(new JLIB(USER_DEF, 12, new Pair( Args, this.frame)));
348
349 Symbol.intern("north").setGlobalValue(new JLIB(USER_DEF, 13, new Pair( Args, this.frame)));
350
351 Symbol.intern("south").setGlobalValue(new JLIB(USER_DEF, 14, new Pair( Args, this.frame)));
352
353 Symbol.intern("east").setGlobalValue(new JLIB(USER_DEF, 15, new Pair( Args, this.frame)));
354
355 Symbol.intern("west").setGlobalValue(new JLIB(USER_DEF, 16, new Pair( Args, this.frame)));
356
357 Symbol.intern("border").setGlobalValue(new JLIB(USER_DEF, 21, new Pair( Args, this.frame)));
358
359 Symbol.intern("grid").setGlobalValue(new JLIB(USER_DEF, 23, new Pair( Args, this.frame)));
360
361 Symbol.intern("processComponentArgs").setGlobalValue(new JLIB(USER_DEF, 28, new Pair( Args, this.frame)));
362
363 Symbol.intern("button").setGlobalValue(new JLIB(USER_DEF, 30, new Pair( Args, this.frame)));
364
365 Symbol.intern("choice").setGlobalValue(new JLIB(USER_DEF, 32, new Pair( Args, this.frame)));
366
367 Symbol.intern("label").setGlobalValue(new JLIB(USER_DEF, 34, new Pair( Args, this.frame)));
368
369 Symbol.intern("textfield").setGlobalValue(new JLIB(USER_DEF, 36, new Pair( Args, this.frame)));
370
371 Symbol.intern("textarea").setGlobalValue(new JLIB(USER_DEF, 38, new Pair( Args, this.frame)));
372
373 Symbol.intern("canvas").setGlobalValue(new JLIB(USER_DEF, 40, new Pair( Args, this.frame)));
374
375 Symbol.intern("readstring").setGlobalValue(new JLIB(USER_DEF, 41, new Pair( Args, this.frame)));
376
377 Symbol.intern("writestring").setGlobalValue(new JLIB(USER_DEF, 44, new Pair( Args, this.frame)));
378
379 Symbol.intern("writelnstring").setGlobalValue(new JLIB(USER_DEF, 45, new Pair( Args, this.frame)));
380
381 Symbol.intern("appendstring").setGlobalValue(new JLIB(USER_DEF, 47, new Pair( Args, this.frame)));
382
383 Symbol.intern("appendlnstring").setGlobalValue(new JLIB(USER_DEF, 48, new Pair( Args, this.frame)));
384
385 Symbol.intern("gbc-constraint").setGlobalValue(new JLIB(USER_DEF, 49, new Pair( Args, this.frame)));
386
387 Symbol.intern("processSymbol").setGlobalValue(new JLIB(USER_DEF, 51, new Pair( Args, this.frame)));
388
389 Symbol.intern("processGBCarg").setGlobalValue(new JLIB(USER_DEF, 54, new Pair( Args, this.frame)));
390
391 Symbol.intern("box").setGlobalValue(new JLIB(USER_DEF, 68, new Pair( Args, this.frame)));
392
393 Symbol.intern("row").setGlobalValue(new JLIB(USER_DEF, 69, new Pair( Args, this.frame)));
394
395 Symbol.intern("tablebyrow").setGlobalValue(new JLIB(USER_DEF, 70, new Pair( Args, this.frame)));
396
397 Symbol.intern("col").setGlobalValue(new JLIB(USER_DEF, 71, new Pair( Args, this.frame)));
398
399 Symbol.intern("tablebycol").setGlobalValue(new JLIB(USER_DEF, 72, new Pair( Args, this.frame)));
400
401 Symbol.intern("splitrow").setGlobalValue(new JLIB(USER_DEF, 74, new Pair( Args, this.frame)));
402
403 Symbol.intern("splitcol").setGlobalValue(new JLIB(USER_DEF, 76, new Pair( Args, this.frame)));
404
405 Symbol.intern("card").setGlobalValue(new JLIB(USER_DEF, 78, new Pair( Args, this.frame)));
406
407 Symbol.intern("showcard").setGlobalValue(new JLIB(USER_DEF, 79, new Pair( Args, this.frame)));
408
409 Symbol.intern("cards").setGlobalValue(new JLIB(USER_DEF, 81, new Pair( Args, this.frame)));
410
411 Symbol.intern("checkboxmenuitem").setGlobalValue(new JLIB(USER_DEF, 83, new Pair( Args, this.frame)));
412
413 Symbol.intern("checkboxgroup").setGlobalValue(_J96/* java.awt.CheckboxGroup. */);
414
415 Symbol.intern("menuitem").setGlobalValue(new JLIB(USER_DEF, 85, new Pair( Args, this.frame)));
416
417 Symbol.intern("menu").setGlobalValue(new JLIB(USER_DEF, 88, new Pair( Args, this.frame)));
418
419 Symbol.intern("menubar").setGlobalValue(new JLIB(USER_DEF, 90, new Pair( Args, this.frame)));
420
421 Symbol.intern("Courier").setGlobalValue(new JLIB(USER_DEF, 91, new Pair( Args, this.frame)));
422
423 Symbol.intern("CourierPlain").setGlobalValue(new JLIB(USER_DEF, 92, new Pair( Args, this.frame)));
424
425 Symbol.intern("CourierBold").setGlobalValue(new JLIB(USER_DEF, 93, new Pair( Args, this.frame)));
426
427 Symbol.intern("CourierItalic").setGlobalValue(new JLIB(USER_DEF, 94, new Pair( Args, this.frame)));
428
429 Symbol.intern("TimesRoman").setGlobalValue(new JLIB(USER_DEF, 95, new Pair( Args, this.frame)));
430
431 Symbol.intern("TimesRomanPlain").setGlobalValue(new JLIB(USER_DEF, 96, new Pair( Args, this.frame)));
432
433 Symbol.intern("TimesRomanBold").setGlobalValue(new JLIB(USER_DEF, 97, new Pair( Args, this.frame)));
434
435 Symbol.intern("TimesRomanItalic").setGlobalValue(new JLIB(USER_DEF, 98, new Pair( Args, this.frame)));
436
437 Symbol.intern("Helvetica").setGlobalValue(new JLIB(USER_DEF, 99, new Pair( Args, this.frame)));
438
439 Symbol.intern("HelveticaPlain").setGlobalValue(new JLIB(USER_DEF, 100, new Pair( Args, this.frame)));
440
441 Symbol.intern("HelveticaBold").setGlobalValue(new JLIB(USER_DEF, 101, new Pair( Args, this.frame)));
442
443 Symbol.intern("HelveticaItalic").setGlobalValue(new JLIB(USER_DEF, 102, new Pair( Args, this.frame)));
444
445 Symbol.intern("white").setGlobalValue((((Procedure)_J104/* Color.white$ */).apply(U.EMPTY_ARGS)));
446
447 Symbol.intern("lightGray").setGlobalValue((((Procedure)_J105/* Color.lightGray$ */).apply(U.EMPTY_ARGS)));
448
449 Symbol.intern("gray").setGlobalValue((((Procedure)_J106/* Color.gray$ */).apply(U.EMPTY_ARGS)));
450
451 Symbol.intern("darkGray").setGlobalValue((((Procedure)_J107/* Color.darkGray$ */).apply(U.EMPTY_ARGS)));
452
453 Symbol.intern("black").setGlobalValue((((Procedure)_J108/* Color.black$ */).apply(U.EMPTY_ARGS)));
454
455 Symbol.intern("red").setGlobalValue((((Procedure)_J109/* Color.red$ */).apply(U.EMPTY_ARGS)));
456
457 Symbol.intern("pink").setGlobalValue((((Procedure)_J110/* Color.pink$ */).apply(U.EMPTY_ARGS)));
458
459 Symbol.intern("orange").setGlobalValue((((Procedure)_J111/* Color.orange$ */).apply(U.EMPTY_ARGS)));
460
461 Symbol.intern("yellow").setGlobalValue((((Procedure)_J112/* Color.yellow$ */).apply(U.EMPTY_ARGS)));
462
463 Symbol.intern("green").setGlobalValue((((Procedure)_J113/* Color.green$ */).apply(U.EMPTY_ARGS)));
464
465 Symbol.intern("magenta").setGlobalValue((((Procedure)_J114/* Color.magenta$ */).apply(U.EMPTY_ARGS)));
466
467 Symbol.intern("cyan").setGlobalValue((((Procedure)_J115/* Color.cyan$ */).apply(U.EMPTY_ARGS)));
468
469 Symbol.intern("blue").setGlobalValue((((Procedure)_J116/* Color.blue$ */).apply(U.EMPTY_ARGS)));
470
471 Symbol.intern("color").setGlobalValue(_J117/* Color. */);
472
473 Symbol.intern("maketagger").setGlobalValue(new JLIB(USER_DEF, 107, new Pair( Args, this.frame)));
474
475 Symbol.intern("string->exprlist").setGlobalValue(new JLIB(USER_DEF, 111, new Pair( Args, this.frame)));
476
477 Symbol.intern("actionerrortextarea").setGlobalValue(((Procedure) ((Symbol)textarea).getGlobalValue()).apply(new Pair(_C54,
478 new Pair(_C55,
479 new Pair(((Symbol)white).getGlobalValue(),
480 Pair.EMPTY)))));
481
482 Symbol.intern("actionerrorwindow").setGlobalValue(((Procedure) new JLIB(USER_DEF, 112, new Pair( Args, this.frame))).apply(new Pair(((Procedure) ((Symbol)window).getGlobalValue()).apply(new Pair(_C56,
483 new Pair(((Procedure) ((Symbol)border).getGlobalValue()).apply(new Pair(((Procedure) ((Symbol)north).getGlobalValue()).apply(new Pair(((Procedure) ((Symbol)label).getGlobalValue()).apply(new Pair(_C57,
484 new Pair(((Symbol)green).getGlobalValue(),
485 new Pair(((Procedure) ((Symbol)HelveticaBold).getGlobalValue()).apply(new Pair(_C58,
486 Pair.EMPTY)),
487 Pair.EMPTY)))),
488 Pair.EMPTY)),
489 new Pair(((Procedure) ((Symbol)center).getGlobalValue()).apply(new Pair(((Symbol)actionerrortextarea).getGlobalValue(),
490 Pair.EMPTY)),
491 new Pair(((Procedure) ((Symbol)south).getGlobalValue()).apply(new Pair(((Procedure) ((Symbol)button).getGlobalValue()).apply(new Pair(_C59,
492 new Pair(((Procedure) _J4/* silk.Listener11. */).apply(new Pair(new JLIB(USER_DEF, 113, new Pair( Args, this.frame)),
493 Pair.EMPTY)),
494 Pair.EMPTY))),
495 Pair.EMPTY)),
496 Pair.EMPTY)))),
497 Pair.EMPTY))),
498 Pair.EMPTY)));
499
500
501 }
502
503 // definitions of global variables
504 public static Object error = Symbol.intern("error");
505
506 public static Object size = Symbol.intern("size");
507
508 public static Object action = Symbol.intern("action");
509
510 public static Object window = Symbol.intern("window");
511
512 public static Object center = Symbol.intern("center");
513
514 public static Object north = Symbol.intern("north");
515
516 public static Object south = Symbol.intern("south");
517
518 public static Object east = Symbol.intern("east");
519
520 public static Object west = Symbol.intern("west");
521
522 public static Object border = Symbol.intern("border");
523
524 public static Object grid = Symbol.intern("grid");
525
526 public static Object button = Symbol.intern("button");
527
528 public static Object choice = Symbol.intern("choice");
529
530 public static Object label = Symbol.intern("label");
531
532 public static Object textfield = Symbol.intern("textfield");
533
534 public static Object textarea = Symbol.intern("textarea");
535
536 public static Object canvas = Symbol.intern("canvas");
537
538 public static Object readstring = Symbol.intern("readstring");
539
540 public static Object writelnstring = Symbol.intern("writelnstring");
541
542 public static Object appendstring = Symbol.intern("appendstring");
543
544 public static Object gbc_45_constraint = Symbol.intern("gbc-constraint");
545
546 public static Object processSymbol = Symbol.intern("processSymbol");
547
548 public static Object processGBCarg = Symbol.intern("processGBCarg");
549
550 public static Object box = Symbol.intern("box");
551
552 public static Object row = Symbol.intern("row");
553
554 public static Object tablebyrow = Symbol.intern("tablebyrow");
555
556 public static Object col = Symbol.intern("col");
557
558 public static Object tablebycol = Symbol.intern("tablebycol");
559
560 public static Object splitrow = Symbol.intern("splitrow");
561
562 public static Object splitcol = Symbol.intern("splitcol");
563
564 public static Object card = Symbol.intern("card");
565
566 public static Object showcard = Symbol.intern("showcard");
567
568 public static Object cards = Symbol.intern("cards");
569
570 public static Object checkboxmenuitem = Symbol.intern("checkboxmenuitem");
571
572 public static Object checkboxgroup = Symbol.intern("checkboxgroup");
573
574 public static Object menuitem = Symbol.intern("menuitem");
575
576 public static Object menu = Symbol.intern("menu");
577
578 public static Object menubar = Symbol.intern("menubar");
579
580 public static Object Courier = Symbol.intern("Courier");
581
582 public static Object CourierPlain = Symbol.intern("CourierPlain");
583
584 public static Object CourierBold = Symbol.intern("CourierBold");
585
586 public static Object CourierItalic = Symbol.intern("CourierItalic");
587
588 public static Object TimesRoman = Symbol.intern("TimesRoman");
589
590 public static Object TimesRomanPlain = Symbol.intern("TimesRomanPlain");
591
592 public static Object TimesRomanBold = Symbol.intern("TimesRomanBold");
593
594 public static Object TimesRomanItalic = Symbol.intern("TimesRomanItalic");
595
596 public static Object Helvetica = Symbol.intern("Helvetica");
597
598 public static Object HelveticaPlain = Symbol.intern("HelveticaPlain");
599
600 public static Object HelveticaBold = Symbol.intern("HelveticaBold");
601
602 public static Object HelveticaItalic = Symbol.intern("HelveticaItalic");
603
604 public static Object white = Symbol.intern("white");
605
606 public static Object lightGray = Symbol.intern("lightGray");
607
608 public static Object gray = Symbol.intern("gray");
609
610 public static Object darkGray = Symbol.intern("darkGray");
611
612 public static Object black = Symbol.intern("black");
613
614 public static Object red = Symbol.intern("red");
615
616 public static Object pink = Symbol.intern("pink");
617
618 public static Object orange = Symbol.intern("orange");
619
620 public static Object yellow = Symbol.intern("yellow");
621
622 public static Object green = Symbol.intern("green");
623
624 public static Object magenta = Symbol.intern("magenta");
625
626 public static Object cyan = Symbol.intern("cyan");
627
628 public static Object blue = Symbol.intern("blue");
629
630 public static Object color = Symbol.intern("color");
631
632 public static Object maketagger = Symbol.intern("maketagger");
633
634 public static Object string_45__62_exprlist = Symbol.intern("string->exprlist");
635
636
637 // definitions of Scheme variables defined externally
638 static Object apply= Symbol.intern("apply");
639
640 static Object string_45_append= Symbol.intern("string-append");
641
642 static Object cons= Symbol.intern("cons");
643
644 static Object map= Symbol.intern("map");
645
646 static Object appendlnstring= Symbol.intern("appendlnstring");
647
648 static Object actionerrortextarea= Symbol.intern("actionerrortextarea");
649
650 static Object actionerrorwindow= Symbol.intern("actionerrorwindow");
651
652 static Object null_63_= Symbol.intern("null?");
653
654 static Object first= Symbol.intern("first");
655
656 static Object rest= Symbol.intern("rest");
657
658 static Object equal_63_= Symbol.intern("equal?");
659
660 static Object list= Symbol.intern("list");
661
662 static Object pair_63_= Symbol.intern("pair?");
663
664 static Object member= Symbol.intern("member");
665
666 static Object second= Symbol.intern("second");
667
668 static Object processComponentArgs= Symbol.intern("processComponentArgs");
669
670 static Object writestring= Symbol.intern("writestring");
671
672 static Object eq_63_= Symbol.intern("eq?");
673
674 static Object append= Symbol.intern("append");
675
676 static Object _43_= Symbol.intern("+");
677
678 static Object _61_= Symbol.intern("=");
679
680 static Object _throw= Symbol.intern("throw");
681
682 static Object cdr= Symbol.intern("cdr");
683
684 static Object eof_45_object_63_= Symbol.intern("eof-object?");
685
686 static Object read= Symbol.intern("read");
687
688
689 // definitions of quoted terms
690 static Object _C0="JLIB USAGE ERROR:";
691
692 static Object _C1="\n\nERROR in Action in reponse to an AWT event";
693
694 static Object _C2=" is ";
695
696 static Object _C3=Boolean.FALSE;
697
698 static Object _C4=Boolean.TRUE;
699
700 static Object _C5="unknown attribute ";
701
702 static Object _C6=" for window ";
703
704 static Object _C7=Pair.EMPTY;
705
706 static Object _C8=new Integer(1);
707
708 static Object _C9="Center";
709
710 static Object _C10="North";
711
712 static Object _C11="South";
713
714 static Object _C12="East";
715
716 static Object _C13="West";
717
718 static Object _C14=new Pair("Center",new Pair("North",new Pair("South",new Pair("East",new Pair("West",Pair.EMPTY)))));
719
720 static Object _C15="Expected Center, North, South, East, or West ";
721
722 static Object _C16=" for component ";
723
724 static Object _C17=null;
725
726 static Object _C18="#null";
727
728 static Object _C19="\n";
729
730 static Object _C20=new Pair(Symbol.intern( "both"),Pair.EMPTY);
731
732 static Object _C21=new Pair(Symbol.intern( "none"),Pair.EMPTY);
733
734 static Object _C22=new Pair(Symbol.intern( "horizontal"),Pair.EMPTY);
735
736 static Object _C23=new Pair(Symbol.intern( "vertical"),Pair.EMPTY);
737
738 static Object _C24=new Pair(Symbol.intern( "north"),Pair.EMPTY);
739
740 static Object _C25=new Pair(Symbol.intern( "northeast"),Pair.EMPTY);
741
742 static Object _C26=new Pair(Symbol.intern( "northwest"),Pair.EMPTY);
743
744 static Object _C27=new Pair(Symbol.intern( "south"),Pair.EMPTY);
745
746 static Object _C28=new Pair(Symbol.intern( "southeast"),Pair.EMPTY);
747
748 static Object _C29=new Pair(Symbol.intern( "southwest"),Pair.EMPTY);
749
750 static Object _C30=new Pair(Symbol.intern( "center"),Pair.EMPTY);
751
752 static Object _C31=new Pair(Symbol.intern( "east"),Pair.EMPTY);
753
754 static Object _C32=new Pair(Symbol.intern( "west"),Pair.EMPTY);
755
756 static Object _C33="Unknown box attribute";
757
758 static Object _C34=Symbol.intern( "fill");
759
760 static Object _C35=Symbol.intern( "anchor");
761
762 static Object _C36=Symbol.intern( "weightx");
763
764 static Object _C37=Symbol.intern( "weighty");
765
766 static Object _C38="unrecognized box element ";
767
768 static Object _C39=Symbol.intern( "cols");
769
770 static Object _C40=Symbol.intern( "row");
771
772 static Object _C41=new Double(1.0);
773
774 static Object _C42=new Pair(Symbol.intern( "rows"),new Pair(Symbol.intern( "cols"),Pair.EMPTY));
775
776 static Object _C43=new Pair(Symbol.intern( "row"),new Pair(Symbol.intern( "col"),Pair.EMPTY));
777
778 static Object _C44="ERROR in call to ";
779
780 static Object _C45=Symbol.intern( "box");
781
782 static Object _C46=Symbol.intern( "rows");
783
784 static Object _C47=Symbol.intern( "col");
785
786 static Object _C48="Courier";
787
788 static Object _C49="TimesRoman";
789
790 static Object _C50="Helvetica";
791
792 static Object _C51="undefined tag ";
793
794 static Object _C52="improper use of \"tag\": ";
795
796 static Object _C53=Symbol.intern( "tag");
797
798 static Object _C54=new Integer(20);
799
800 static Object _C55=new Integer(80);
801
802 static Object _C56="ERROR";
803
804 static Object _C57="ERRORS generated during event handling";
805
806 static Object _C58=new Integer(24);
807
808 static Object _C59="clear";
809
810 static Object _C60="";
811
812
813 // definitions of embedded lambdas
814 Object _L0(Pair Args){
815 Object tmp;
816 tmp = new LCO(_J0/* .println */,new Pair((((Procedure)_J1/* silk.Scheme.error$ */).apply(U.EMPTY_ARGS)),
817 new Pair(((Procedure) ((Symbol)apply).getGlobalValue()).apply(new Pair(((Symbol)string_45_append).getGlobalValue(),
818 new Pair(((Procedure) ((Symbol)cons).getGlobalValue()).apply(new Pair(_C0,
819 new Pair(((Procedure) ((Symbol)map).getGlobalValue()).apply(new Pair(_J2/* silk.U.stringify */,
820 new Pair((( Pair) Args).getEltNover2(0),
821 Pair.EMPTY))),
822 Pair.EMPTY))),
823 Pair.EMPTY))),
824 Pair.EMPTY)));
825
826
827 return tmp;
828 }
829
830 Object _L1(Pair Args){
831 Object tmp;
832 tmp = new LCO(_J3/* java.awt.Dimension. */,new Pair((( Pair) Args).getEltNover2(1),
833 new Pair((( Pair) Args).getEltNover2(3),
834 Pair.EMPTY)));
835
836
837 return tmp;
838 }
839
840 Object _L2(Pair Args){
841 Object tmp;
842 tmp = new LCO((((Pair) ((this.frame).nth(1 ))).getEltNover2(1)),new Pair((((Pair) ((this.frame).nth(0 ))).getEltNover2(1)),
843 Pair.EMPTY));
844
845
846 return tmp;
847 }
848
849 Object _L3(Pair Args){
850 Object tmp;
851 tmp = ((Procedure) ((Symbol)appendlnstring).getGlobalValue()).apply(new Pair(((Symbol)actionerrortextarea).getGlobalValue(),
852 new Pair(_C1,
853 new Pair((((Pair) ((this.frame).nth(0 ))).getEltNover2(1)),
854 new Pair(_C2,
855 new Pair((( Pair) Args).getEltNover2(1),
856 Pair.EMPTY))))));
857
858 tmp = new LCO(_J6/* .show */,new Pair(((Symbol)actionerrorwindow).getGlobalValue(),
859 Pair.EMPTY));
860
861
862 return tmp;
863 }
864
865 Object _L4(Pair Args){
866 Object tmp;
867 tmp = new LCO(_J5/* Procedure.tryCatch */,new Pair(new JLIB(USER_DEF, 2, new Pair( Args, this.frame)),
868 new Pair(new JLIB(USER_DEF, 3, new Pair( Args, this.frame)),
869 Pair.EMPTY)));
870
871
872 return tmp;
873 }
874
875 Object _L5(Pair Args){
876 Object tmp;
877 tmp = new LCO(_J4/* silk.Listener11. */,new Pair(new JLIB(USER_DEF, 4, new Pair( Args, this.frame)),
878 Pair.EMPTY));
879
880
881 return tmp;
882 }
883
884 Object _L6(Pair Args){
885 Object tmp;
886 tmp =
887 (Boolean.FALSE.equals(((Procedure) _J9/* .isInstance */).apply(new Pair(_J10/* String.class */,
888 new Pair((( Pair) Args).getEltNover2(1),
889 Pair.EMPTY))))
890 ?
891
892 (Boolean.FALSE.equals(((Procedure) _J9/* .isInstance */).apply(new Pair(_J12/* Color.class */,
893 new Pair((( Pair) Args).getEltNover2(1),
894 Pair.EMPTY))))
895 ?
896
897 (Boolean.FALSE.equals(((Procedure) _J9/* .isInstance */).apply(new Pair(_J14/* MenuBar.class */,
898 new Pair((( Pair) Args).getEltNover2(1),
899 Pair.EMPTY))))
900 ?
901
902 (Boolean.FALSE.equals(((Procedure) _J9/* .isInstance */).apply(new Pair(_J16/* LayoutManager.class */,
903 new Pair((( Pair) Args).getEltNover2(1),
904 Pair.EMPTY))))
905 ?
906
907 (Boolean.FALSE.equals(((Procedure) _J9/* .isInstance */).apply(new Pair(_J18/* Component.class */,
908 new Pair((( Pair) Args).getEltNover2(1),
909 Pair.EMPTY))))
910 ?
911
912 (Boolean.FALSE.equals(((Procedure) _J9/* .isInstance */).apply(new Pair(_J20/* Procedure.class */,
913 new Pair((( Pair) Args).getEltNover2(1),
914 Pair.EMPTY))))
915 ?
916
917 (Boolean.FALSE.equals(((Procedure) _J9/* .isInstance */).apply(new Pair(_J21/* Dimension.class */,
918 new Pair((( Pair) Args).getEltNover2(1),
919 Pair.EMPTY))))
920 ?
921
922 (Boolean.FALSE.equals(((Procedure) _J9/* .isInstance */).apply(new Pair(_J23/* Font.class */,
923 new Pair((( Pair) Args).getEltNover2(1),
924 Pair.EMPTY))))
925 ?
926
927 (Boolean.FALSE.equals(_C4)
928 ?
929 _C7
930 :
931 new LCO(((Symbol)error).getGlobalValue(),new Pair(_C5,
932 new Pair((( Pair) Args).getEltNover2(1),
933 new Pair(_C6,
934 Pair.EMPTY))))
935 )
936 :
937 new LCO(_J24/* .setFont */,new Pair((((Pair) ((this.frame).nth(2 ))).getEltNover2(1)),
938 new Pair((( Pair) Args).getEltNover2(1),
939 Pair.EMPTY)))
940 )
941 :
942 new LCO(_J22/* .setSize */,new Pair((((Pair) ((this.frame).nth(2 ))).getEltNover2(1)),
943 new Pair((( Pair) Args).getEltNover2(1),
944 Pair.EMPTY)))
945 )
946 :
947 new LCO((( Pair) Args).getEltNover2(1),new Pair((((Pair) ((this.frame).nth(2 ))).getEltNover2(1)),
948 Pair.EMPTY))
949 )
950 :
951 new LCO(_J19/* .add */,new Pair((((Pair) ((this.frame).nth(2 ))).getEltNover2(1)),
952 new Pair((( Pair) Args).getEltNover2(1),
953 Pair.EMPTY)))
954 )
955 :
956 new LCO(_J17/* .setLayout */,new Pair((((Pair) ((this.frame).nth(2 ))).getEltNover2(1)),
957 new Pair((( Pair) Args).getEltNover2(1),
958 Pair.EMPTY)))
959 )
960 :
961 new LCO(_J15/* .setMenuBar */,new Pair((((Pair) ((this.frame).nth(2 ))).getEltNover2(1)),
962 new Pair((( Pair) Args).getEltNover2(1),
963 Pair.EMPTY)))
964 )
965 :
966 new LCO(_J13/* .setBackground */,new Pair((((Pair) ((this.frame).nth(2 ))).getEltNover2(1)),
967 new Pair((( Pair) Args).getEltNover2(1),
968 Pair.EMPTY)))
969 )
970 :
971 new LCO(_J11/* .setTitle */,new Pair((((Pair) ((this.frame).nth(2 ))).getEltNover2(1)),
972 new Pair((( Pair) Args).getEltNover2(1),
973 Pair.EMPTY)))
974 );
975
976
977 return tmp;
978 }
979
980 Object _L7(Pair Args){
981 Object tmp;
982 tmp = ((Procedure) new JLIB(USER_DEF, 6, new Pair( Args, this.frame))).apply(new Pair(((Procedure) ((Symbol)first).getGlobalValue()).apply(new Pair((((Pair) ((this.frame).nth(0 ))).getEltNover2(1)),
983 Pair.EMPTY)),
984 Pair.EMPTY));
985
986 tmp = new LCO((((Pair) ((this.frame).nth(1 ))).getEltNover2(3)),new Pair(((Procedure) ((Symbol)rest).getGlobalValue()).apply(new Pair((((Pair) ((this.frame).nth(0 ))).getEltNover2(1)),
987 Pair.EMPTY)),
988 Pair.EMPTY));
989
990
991 return tmp;
992 }
993
994 Object _L8(Pair Args){
995 Object tmp;
996 tmp =
997 (Boolean.FALSE.equals(((Procedure) ((Symbol)null_63_).getGlobalValue()).apply(new Pair((( Pair) Args).getEltNover2(1),
998 Pair.EMPTY)))
999 ?
1000 new LCO(new JLIB(USER_DEF, 7, new Pair( Args, this.frame)),Pair.EMPTY)
1001 :
1002 (((Pair) ((this.frame).nth(0 ))).getEltNover2(1))
1003 );
1004
1005
1006 return tmp;
1007}
1008
1009 Object _L9(Pair Args){
1010 Object tmp;
1011 tmp =
1012 (Boolean.FALSE.equals(((Procedure) ((Symbol)equal_63_).getGlobalValue()).apply(new Pair(((Procedure) _J26/* .getID */).apply(new Pair((( Pair) Args).getEltNover2(1),
1013 Pair.EMPTY)),
1014 new Pair((((Procedure)_J27/* java.awt.event.WindowEvent.WINDOW_CLOSING$ */).apply(U.EMPTY_ARGS)),
1015 Pair.EMPTY))))
1016 ?
1017 _C4
1018 :
1019 new LCO(_J28/* .hide */,new Pair((((Pair) ((this.frame).nth(0 ))).getEltNover2(1)),
1020 Pair.EMPTY))
1021 );
1022
1023
1024 return tmp;
1025}
1026
1027 Object _L10(Pair Args){
1028 Object tmp;
1029 tmp = (( Pair) Args).setEltNover2(1,((Procedure) _J8/* Frame. */).apply(Pair.EMPTY));
1030
1031tmp = (( Pair) Args).setEltNover2(3,new JLIB(USER_DEF, 8, new Pair( Args, this.frame)));
1032
1033tmp = ((Procedure) _J25/* .addWindowListener */).apply(new Pair((( Pair) Args).getEltNover2(1),
1034 new Pair(((Procedure) _J4/* silk.Listener11. */).apply(new Pair(new JLIB(USER_DEF, 9, new Pair( Args, this.frame)),
1035 Pair.EMPTY)),
1036 Pair.EMPTY)));
1037
1038tmp = ((Procedure) _J17/* .setLayout */).apply(new Pair((( Pair) Args).getEltNover2(1),
1039 new Pair(((Procedure) _J29/* GridLayout. */).apply(new Pair(_C8,
1040 new Pair(_C8,
1041 Pair.EMPTY))),
1042 Pair.EMPTY)));
1043
1044tmp = new LCO((( Pair) Args).getEltNover2(3),new Pair((((Pair) ((this.frame).nth(0 ))).getEltNover2(0)),
1045 Pair.EMPTY));
1046
1047
1048 return tmp;
1049}
1050
1051 Object _L11(Pair Args){
1052 Object tmp;
1053 tmp = new LCO(new JLIB(USER_DEF, 10, new Pair( Args, this.frame)),new Pair(_C3,
1054 new Pair(_C3,
1055 Pair.EMPTY)));
1056
1057
1058 return tmp;
1059}
1060
1061 Object _L12(Pair Args){
1062 Object tmp;
1063 tmp = new LCO(((Symbol)list).getGlobalValue(),new Pair(_C9,
1064 new Pair((( Pair) Args).getEltNover2(1),
1065 Pair.EMPTY)));
1066
1067
1068 return tmp;
1069}
1070
1071 Object _L13(Pair Args){
1072 Object tmp;
1073 tmp = new LCO(((Symbol)list).getGlobalValue(),new Pair(_C10,
1074 new Pair((( Pair) Args).getEltNover2(1),
1075 Pair.EMPTY)));
1076
1077
1078 return tmp;
1079}
1080
1081 Object _L14(Pair Args){
1082 Object tmp;
1083 tmp = new LCO(((Symbol)list).getGlobalValue(),new Pair(_C11,
1084 new Pair((( Pair) Args).getEltNover2(1),
1085 Pair.EMPTY)));
1086
1087
1088 return tmp;
1089}
1090
1091 Object _L15(Pair Args){
1092 Object tmp;
1093 tmp = new LCO(((Symbol)list).getGlobalValue(),new Pair(_C12,
1094 new Pair((( Pair) Args).getEltNover2(1),
1095 Pair.EMPTY)));
1096
1097
1098 return tmp;
1099}
1100
1101 Object _L16(Pair Args){
1102 Object tmp;
1103 tmp = new LCO(((Symbol)list).getGlobalValue(),new Pair(_C13,
1104 new Pair((( Pair) Args).getEltNover2(1),
1105 Pair.EMPTY)));
1106
1107
1108 return tmp;
1109}
1110
1111 Object _L17(Pair Args){
1112 Object tmp;
1113 tmp = ((Procedure) _J19/* .add */).apply(new Pair((((Pair) ((this.frame).nth(2 ))).getEltNover2(1)),
1114 new Pair(((Procedure) ((Symbol)first).getGlobalValue()).apply(new Pair(((Procedure) ((Symbol)first).getGlobalValue()).apply(new Pair((((Pair) ((this.frame).nth(1 ))).getEltNover2(1)),
1115 Pair.EMPTY)),
1116 Pair.EMPTY)),
1117 new Pair(((Procedure) ((Symbol)second).getGlobalValue()).apply(new Pair(((Procedure) ((Symbol)first).getGlobalValue()).apply(new Pair((((Pair) ((this.frame).nth(1 ))).getEltNover2(1)),
1118 Pair.EMPTY)),
1119 Pair.EMPTY)),
1120 Pair.EMPTY))));
1121
1122tmp = new LCO((((Pair) ((this.frame).nth(2 ))).getEltNover2(3)),new Pair(((Procedure) ((Symbol)rest).getGlobalValue()).apply(new Pair((((Pair) ((this.frame).nth(1 ))).getEltNover2(1)),
1123 Pair.EMPTY)),
1124 Pair.EMPTY));
1125
1126
1127 return tmp;
1128}
1129
1130 Object _L18(Pair Args){
1131 Object tmp;
1132 tmp =
1133 (Boolean.FALSE.equals(((Procedure) ((Symbol)member).getGlobalValue()).apply(new Pair((( Pair) Args).getEltNover2(1),
1134 new Pair(_C14,
1135 Pair.EMPTY))))
1136 ?
1137
1138 (Boolean.FALSE.equals(_C4)
1139 ?
1140 _C7
1141 :
1142 new LCO(((Symbol)error).getGlobalValue(),new Pair(((Procedure) ((Symbol)list).getGlobalValue()).apply(new Pair(_C15,
1143 Pair.EMPTY)),
1144 Pair.EMPTY))
1145 )
1146 :
1147 new LCO(new JLIB(USER_DEF, 17, new Pair( Args, this.frame)),Pair.EMPTY)
1148 );
1149
1150
1151 return