home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / CLISP-1.LHA / CLISP960530-w.lha / fd / window.fas < prev    next >
Encoding:
CLISP byte-compiled Lisp program  |  1996-08-13  |  9.5 KB  |  224 lines
  1. (SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
  2. #Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "AFFI-DEMOS"
  3.   )
  4. #Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DF 19 01) "AFFI")
  5. #Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
  6.    MAKE-WINDOW-DEMO
  7.   )
  8. #Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  9.    TEST-POINTER SYSTEM::REMOVE-OLD-DEFINITIONS
  10.    #Y(TEST-POINTER
  11.       #25Y(00 01 00 01 00 08 3C 01 AC 87 00 06 91 01 06 00 19 03 9D 19 03 D9 32
  12.            00 1E
  13.           )
  14.       NZERO-POINTER-P "Null pointer assertion failed!"
  15.   )  )
  16. #Y(#:TOP-LEVEL-FORM-5-1 #13Y(00 00 00 00 00 01 D8 D9 2F 02 3D 19 01) :SYSBASE
  17.    "exec.library" DECLARE-LIBRARY-BASE
  18.   )
  19. #Y(#:TOP-LEVEL-FORM-5-2 #12Y(00 00 00 00 00 01 D8 D9 2F 02 19 01)
  20.    :INTUITIONBASE "intuition.library" DECLARE-LIBRARY-BASE
  21.   )
  22. #Y(#:TOP-LEVEL-FORM-6 #9Y(00 00 00 00 00 01 00 19 01))
  23. #Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D8 D9 2F 02 19 01) :UTILITYBASE
  24.    "utility.library" DECLARE-LIBRARY-BASE
  25.   )
  26. #Y(#:TOP-LEVEL-FORM-8 #9Y(00 00 00 00 00 01 00 19 01))
  27. #Y(#:TOP-LEVEL-FORM-9
  28.    #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
  29.         83 C3 19 01
  30.        )
  31.    MEMF_ANY 1. (DEFCONSTANT MEMF_ANY 1.) SYSTEM::CONSTANT-WARNING
  32.   )
  33. #Y(#:TOP-LEVEL-FORM-10
  34.    #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
  35.         83 C3 19 01
  36.        )
  37.    MEMF_CLEAR 65536. (DEFCONSTANT MEMF_CLEAR (ASH 1. 16.))
  38.    SYSTEM::CONSTANT-WARNING
  39.   )
  40. #Y(#:TOP-LEVEL-FORM-11
  41.    #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
  42.         83 C3 19 01
  43.        )
  44.    TAG_DONE 0. (DEFCONSTANT TAG_DONE 0.) SYSTEM::CONSTANT-WARNING
  45.   )
  46. #Y(#:TOP-LEVEL-FORM-12
  47.    #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
  48.         83 C3 19 01
  49.        )
  50.    TAG_USER 2147483648. (DEFCONSTANT TAG_USER (ASH 1. 31.))
  51.    SYSTEM::CONSTANT-WARNING
  52.   )
  53. #Y(#:TOP-LEVEL-FORM-13
  54.    #34Y(00 00 00 00 00 01 D8 6A 01 72 02 35 DA 8C 61 0B AA DA 70 51 8D 03 04 DA
  55.         DB 2F 04 DA AB 31 83 C5 19 02
  56.        )
  57.    99. TAG_USER WA_DUMMY (DEFCONSTANT WA_DUMMY (+ TAG_USER 99.))
  58.    SYSTEM::CONSTANT-WARNING
  59.   )
  60. #Y(#:TOP-LEVEL-FORM-14
  61.    #32Y(00 00 00 00 00 01 6A 00 71 97 D9 8C 61 0B AA D9 70 51 8D 03 04 D9 DA 2F
  62.         03 D9 AB 31 83 C4 19 02
  63.        )
  64.    WA_DUMMY WA_LEFT (DEFCONSTANT WA_LEFT (+ WA_DUMMY 1.))
  65.    SYSTEM::CONSTANT-WARNING
  66.   )
  67. #Y(#:TOP-LEVEL-FORM-15
  68.    #34Y(00 00 00 00 00 01 D8 6A 01 72 02 35 DA 8C 61 0B AA DA 70 51 8D 03 04 DA
  69.         DB 2F 04 DA AB 31 83 C5 19 02
  70.        )
  71.    3. WA_DUMMY WA_WIDTH (DEFCONSTANT WA_WIDTH (+ WA_DUMMY 3.))
  72.    SYSTEM::CONSTANT-WARNING
  73.   )
  74. #Y(#:TOP-LEVEL-FORM-16
  75.    #34Y(00 00 00 00 00 01 D8 6A 01 72 02 35 DA 8C 61 0B AA DA 70 51 8D 03 04 DA
  76.         DB 2F 04 DA AB 31 83 C5 19 02
  77.        )
  78.    4. WA_DUMMY WA_HEIGHT (DEFCONSTANT WA_HEIGHT (+ WA_DUMMY 4.))
  79.    SYSTEM::CONSTANT-WARNING
  80.   )
  81. #Y(#:TOP-LEVEL-FORM-17
  82.    #34Y(00 00 00 00 00 01 D8 6A 01 72 02 35 DA 8C 61 0B AA DA 70 51 8D 03 04 DA
  83.         DB 2F 04 DA AB 31 83 C5 19 02
  84.        )
  85.    7. WA_DUMMY WA_IDCMP (DEFCONSTANT WA_IDCMP (+ WA_DUMMY 7.))
  86.    SYSTEM::CONSTANT-WARNING
  87.   )
  88. #Y(#:TOP-LEVEL-FORM-18
  89.    #34Y(00 00 00 00 00 01 D8 6A 01 72 02 35 DA 8C 61 0B AA DA 70 51 8D 03 04 DA
  90.         DB 2F 04 DA AB 31 83 C5 19 02
  91.        )
  92.    31. WA_DUMMY WA_DRAGBAR (DEFCONSTANT WA_DRAGBAR (+ WA_DUMMY 31.))
  93.    SYSTEM::CONSTANT-WARNING
  94.   )
  95. #Y(#:TOP-LEVEL-FORM-19
  96.    #34Y(00 00 00 00 00 01 D8 6A 01 72 02 35 DA 8C 61 0B AA DA 70 51 8D 03 04 DA
  97.         DB 2F 04 DA AB 31 83 C5 19 02
  98.        )
  99.    32. WA_DUMMY WA_DEPTHGADGET (DEFCONSTANT WA_DEPTHGADGET (+ WA_DUMMY 32.))
  100.    SYSTEM::CONSTANT-WARNING
  101.   )
  102. #Y(#:TOP-LEVEL-FORM-20
  103.    #34Y(00 00 00 00 00 01 D8 6A 01 72 02 35 DA 8C 61 0B AA DA 70 51 8D 03 04 DA
  104.         DB 2F 04 DA AB 31 83 C5 19 02
  105.        )
  106.    33. WA_DUMMY WA_CLOSEGADGET (DEFCONSTANT WA_CLOSEGADGET (+ WA_DUMMY 33.))
  107.    SYSTEM::CONSTANT-WARNING
  108.   )
  109. #Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  110.    MAKE-SIMPLE-TAGLIST SYSTEM::REMOVE-OLD-DEFINITIONS
  111.    #Y(MAKE-SIMPLE-TAGLIST
  112.       #117Y(00 00 00 00 01 16 AB 71 48 AA 8E 96 07 D9 87 02 16 00 19 03 D8 AD
  113.             32 01 1E AA 71 D4 DF 32 01 31 16 01 1C 29 CB 1A 27 52 80 45 6A 01
  114.             DB AE DC 72 01 38 71 97 6D 03 05 DE B0 92 00 24 AC 93 01 AA 8E 0E
  115.             06 AA 31 94 58 1B 50 16 01 1B 57 CC 14 93 02 E0 AF 72 02 37 2C 04
  116.             0A 82 00 84 01 91 00 5C AC E0 DE E0 AF 72 02 37 2C 04 0A 16 02 15
  117.             53 D9 2E 0B 54 19 03
  118.            )
  119.       "TagList of uneven length: ~S" UTILITYBASE OPEN-LIBRARY
  120.       #((-66. . 1.) * 4.) 2. SYSTEM::%LIBCALL 0. 32. 4. -4. MEM-WRITE
  121.       CLOSE-LIBRARY
  122.   )  )
  123. #Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  124.    MAKE-WINDOW-TAGLIST SYSTEM::REMOVE-OLD-DEFINITIONS
  125.    #Y(MAKE-WINDOW-TAGLIST
  126.       #69Y(00 01 00 00 00 02 D8 87 01 2D 00 19 02 52 21 98 03 A1 76 00 AA DC 2F
  127.            05 52 09 6A 02 DE DF AF 2C 04 08 53 6A 00 E1 66 00 00 2C 03 08 54 16
  128.            01 53 DA 2E 0A 54 53 1A 08 52 06 DA 87 01 50 00 53 D8 2E 0A 54 19 02
  129.           )
  130.       UTILITYBASE OPEN-LIBRARY INTUITIONBASE MAKE-SIMPLE-TAGLIST :ERROR
  131.       TEST-POINTER #((-606. . 169.) * * *) 0. SYSTEM::%LIBCALL
  132.       #((-78. . 9.) NIL :EXTERNAL) CLOSE-LIBRARY
  133.   )  )
  134. #Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  135.    MAKE-WINDOW-DEMO SYSTEM::REMOVE-OLD-DEFINITIONS
  136.    #Y(MAKE-WINDOW-DEMO
  137.       #105Y(00 00 00 00 80 1B 00 03 00 00 3C 03 3A 02 02 C6 F8 3A 01 16 6A 04
  138.             DD 6A 06 AF 6A 07 E0 6A 09 E0 6A 0A E3 91 0D 0B 00 61 0A F7 E5 87
  139.             0E 0A 00 19 04 6A 0C B8 60 02 1A 6F 52 29 62 52 12 B0 2E 0F F8 D3
  140.             10 11 63 EA B1 2C 03 13 11 AC 2E 14 53 66 00 00 62 8A 15 09 6A 0D
  141.             EE 66 00 00 2C 03 17 54 16 01 53 E5 2E 18 54 19 04
  142.            )
  143.       :WIDTH :HEIGHT :TAGLIST 150. WA_LEFT 20. WA_HEIGHT WA_DRAGBAR 1.
  144.       WA_DEPTHGADGET WA_IDCMP 0. WA_WIDTH INTUITIONBASE OPEN-LIBRARY
  145.       MAKE-WINDOW-TAGLIST 16. *PRINT-BASE*
  146.       #Y(MAKE-WINDOW-DEMO-1
  147.          #25Y(00 02 00 00 01 18 AD 30 90 D8 AE 37 02 30 8D AC AE 30 85 AD 30 8F
  148.               9C 19 04
  149.              )
  150.          "Window "
  151.         )
  152.       FORMAT WINDOW-FUN1 TEST-POINTER #((-72. . 9.) NIL :EXTERNAL)
  153.       SYSTEM::%LIBCALL CLOSE-LIBRARY
  154.   )  )
  155. #Y(#:TOP-LEVEL-FORM-24
  156.    #18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) WITH-MEM
  157.    SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
  158.    #Y(WITH-MEM
  159.       #80Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 3D 9D 5B 5A 77 9E 5B 5A 5B 77
  160.            9F 5B 5A 5B 5B 77 A0 5B 78 37 01 71 90 DA AB AF 7A 02 B0 DB DC AF B2
  161.            7A 04 7A 02 7A 02 DD DE B2 7A 02 DF E0 A2 79 DB E1 B6 B3 7A 04 7A 03
  162.            7A 03 60 03 19 08 AC 2E 01 19 03
  163.           )
  164.       2. SYSTEM::MACRO-CALL-ERROR LET* MLIBCALL ALLOCMEM WHEN NZERO-POINTER-P
  165.       UNWIND-PROTECT PROGN FREEMEM
  166.   )  )
  167. #Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  168.    DRAW-ONE-RECTANGLE SYSTEM::REMOVE-OLD-DEFINITIONS
  169.    #Y(DRAW-ONE-RECTANGLE
  170.       #115Y(00 06 00 00 00 00 AF D8 D9 6D 03 02 AA DB B1 DC 2C 04 05 AA DB B0
  171.             DE 2C 04 05 AA DB B1 B0 72 02 35 DF 2C 04 05 AA DB B0 E0 2C 04 05
  172.             AA DB B1 B0 72 02 35 D9 2C 04 05 AA DB B0 AF 72 02 35 E1 2C 04 05
  173.             AA DB B1 E2 2C 04 05 AA DB B0 AF 72 02 35 E3 2C 04 05 AA DB B1 E4
  174.             2C 04 05 AA DB B0 E5 2C 04 05 6A 0E E7 B3 D8 E8 6D 03 02 B3 DC DC
  175.             2C 06 11 19 08
  176.            )
  177.       * 8. MEM-READ -2. 0. MEM-WRITE 2. 4. 6. 10. 12. 14. 16. 18. INTUITIONBASE
  178.       #((-108. . 8617.) * * * * *) 50. SYSTEM::%LIBCALL
  179.   )  )
  180. #Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  181.    DRAW-RECTANGLES SYSTEM::REMOVE-OLD-DEFINITIONS
  182.    #Y(DRAW-RECTANGLES
  183.       #60Y(00 06 00 00 00 00 AE AE AE AE 1A 21 B4 B4 AF AF AF AF 2C 06 01 DA AE
  184.            81 02 35 03 DA AD 81 02 35 02 DB AC 81 02 35 01 DB AB 81 02 35 00 D8
  185.            AC 8F 01 32 06 D8 AB 90 01 32 53 00 19 0B
  186.           )
  187.       0. DRAW-ONE-RECTANGLE 2. -4.
  188.   )  )
  189. #Y(#:TOP-LEVEL-FORM-27
  190.    #28Y(00 00 00 00 00 01 D8 8C 61 0B D9 D8 70 51 8D 03 04 D8 DA 2F 03 D8 D9 31
  191.         83 C3 19 01
  192.        )
  193.    JAM1 0. (DEFCONSTANT JAM1 0.) SYSTEM::CONSTANT-WARNING
  194.   )
  195. #Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
  196.    WINDOW-FUN1 SYSTEM::REMOVE-OLD-DEFINITIONS
  197.    #Y(WINDOW-FUN1
  198.       #226Y(00 01 00 00 00 02 D8 87 01 80 BA 00 19 02 52 80 85 AF E1 B5 E2 E3
  199.             6D 03 0C E5 2C 04 0E AF E1 B5 E2 E7 6D 03 0C E8 2C 04 0E AF DC DC
  200.             E9 2C 04 0E AF DC E8 EA 2C 04 0E AF DC E5 EB 2C 04 0E AF E2 EA EC
  201.             2C 04 0E AF ED AE EE 2C 04 0E AF ED E5 EF 2C 04 0E B3 B0 E5 E5 B7
  202.             E1 EE 6D 03 0C DC B9 E2 F0 6D 03 0C BA E2 E3 6D 03 0C 72 03 36 B8
  203.             E1 F1 6D 03 0C DC BA E2 F2 6D 03 0C BB E2 E7 6D 03 0C 72 03 36 2C
  204.             06 1B F4 B4 2F 1D 63 64 1E E8 E8 2C 04 1F E8 2E 20 53 6A 00 64 21
  205.             66 00 00 E0 2C 04 06 54 1A 10 52 11 6A 00 DA E0 DC 6D 04 06 AA 87
  206.             07 FF 5B 00 16 01 53 6A 00 64 21 66 00 00 DB 2C 04 06 54 1A 14 52
  207.             15 6A 00 DA DB DC 6A 05 72 02 3B 6D 04 06 AA 87 07 4C 00 16 01 53
  208.             D8 2E 22 54 19 02
  209.            )
  210.       SYSBASE OPEN-LIBRARY #((-198. . 33.) * 4. 4.) 16. #.MEMF_ANY MEMF_CLEAR
  211.       SYSTEM::%LIBCALL NZERO-POINTER-P 20. -2. -1. 54. MEM-READ 0. MEM-WRITE
  212.       55. 2. 4. 5. 6. 7. * 8. 12. 56. 10. 57. DRAW-RECTANGLES
  213.       "Have fun with window ~S" BREAK
  214.       #Y(WINDOW-FUN1-1
  215.          #42Y(00 03 00 00 01 19 AE 30 90 D8 AF 37 02 30 8D AD AF 2F 01 DA AF 37
  216.               02 30 8D AC 23 03 04 DC AF 30 8C DD AF 37 02 30 8D 9C 19 05
  217.              )
  218.          "Waiting " SYSTEM::FORMAT-CARDINAL " second" 1. #\s
  219.          ".
  220. "
  221.         )
  222.       FORMAT SLEEP #((-210. . 26.) NIL * 4.) CLOSE-LIBRARY
  223.   )  )
  224.