home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga MA Magazine 1998 #6
/
amigamamagazinepolishissue1998.iso
/
coders
/
jËzyki_programowania
/
clisp
/
fd
/
window.fas
< prev
next >
Wrap
Text File
|
1977-12-31
|
10KB
|
224 lines
(SYSTEM::VERSION '(SYSTEM::CLISP2 13. LISP:T 130695.))
#Y(#:TOP-LEVEL-FORM-1 #13Y(00 00 00 00 00 01 D8 37 02 30 E3 19 01) "AFFI-DEMOS"
)
#Y(#:TOP-LEVEL-FORM-2 #13Y(00 00 00 00 00 01 D8 37 01 30 DF 19 01) "AFFI")
#Y(#:TOP-LEVEL-FORM-3 #13Y(00 00 00 00 00 01 D8 37 01 30 DA 19 01)
MAKE-WINDOW-DEMO
)
#Y(#:TOP-LEVEL-FORM-4 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
TEST-POINTER SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(TEST-POINTER
#25Y(00 01 00 01 00 08 3C 01 AC 87 00 06 91 01 06 00 19 03 9D 19 03 D9 32
00 1E
)
NZERO-POINTER-P "Null pointer assertion failed!"
) )
#Y(#:TOP-LEVEL-FORM-5-1 #13Y(00 00 00 00 00 01 D8 D9 2F 02 3D 19 01) :SYSBASE
"exec.library" DECLARE-LIBRARY-BASE
)
#Y(#:TOP-LEVEL-FORM-5-2 #12Y(00 00 00 00 00 01 D8 D9 2F 02 19 01)
:INTUITIONBASE "intuition.library" DECLARE-LIBRARY-BASE
)
#Y(#:TOP-LEVEL-FORM-6 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-7 #12Y(00 00 00 00 00 01 D8 D9 2F 02 19 01) :UTILITYBASE
"utility.library" DECLARE-LIBRARY-BASE
)
#Y(#:TOP-LEVEL-FORM-8 #9Y(00 00 00 00 00 01 00 19 01))
#Y(#:TOP-LEVEL-FORM-9
#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
83 C3 19 01
)
MEMF_ANY 1. (DEFCONSTANT MEMF_ANY 1.) SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-10
#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
83 C3 19 01
)
MEMF_CLEAR 65536. (DEFCONSTANT MEMF_CLEAR (ASH 1. 16.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-11
#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
83 C3 19 01
)
TAG_DONE 0. (DEFCONSTANT TAG_DONE 0.) SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-12
#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
83 C3 19 01
)
TAG_USER 2147483648. (DEFCONSTANT TAG_USER (ASH 1. 31.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-13
#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
DB 2F 04 DA AB 31 83 C5 19 02
)
99. TAG_USER WA_DUMMY (DEFCONSTANT WA_DUMMY (+ TAG_USER 99.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-14
#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
03 D9 AB 31 83 C4 19 02
)
WA_DUMMY WA_LEFT (DEFCONSTANT WA_LEFT (+ WA_DUMMY 1.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-15
#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
DB 2F 04 DA AB 31 83 C5 19 02
)
3. WA_DUMMY WA_WIDTH (DEFCONSTANT WA_WIDTH (+ WA_DUMMY 3.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-16
#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
DB 2F 04 DA AB 31 83 C5 19 02
)
4. WA_DUMMY WA_HEIGHT (DEFCONSTANT WA_HEIGHT (+ WA_DUMMY 4.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-17
#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
DB 2F 04 DA AB 31 83 C5 19 02
)
7. WA_DUMMY WA_IDCMP (DEFCONSTANT WA_IDCMP (+ WA_DUMMY 7.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-18
#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
DB 2F 04 DA AB 31 83 C5 19 02
)
31. WA_DUMMY WA_DRAGBAR (DEFCONSTANT WA_DRAGBAR (+ WA_DUMMY 31.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-19
#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
DB 2F 04 DA AB 31 83 C5 19 02
)
32. WA_DUMMY WA_DEPTHGADGET (DEFCONSTANT WA_DEPTHGADGET (+ WA_DUMMY 32.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-20
#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
DB 2F 04 DA AB 31 83 C5 19 02
)
33. WA_DUMMY WA_CLOSEGADGET (DEFCONSTANT WA_CLOSEGADGET (+ WA_DUMMY 33.))
SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-21 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-SIMPLE-TAGLIST SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-SIMPLE-TAGLIST
#117Y(00 00 00 00 01 16 AB 71 48 AA 8E 96 07 D9 87 02 16 00 19 03 D8 AD
32 01 1E AA 71 D4 DF 32 01 31 16 01 1C 29 CB 1A 27 52 80 45 6A 01
DB AE DC 72 01 38 71 97 6D 03 05 DE B0 92 00 24 AC 93 01 AA 8E 0E
06 AA 31 94 58 1B 50 16 01 1B 57 CC 14 93 02 E0 AF 72 02 37 2C 04
0A 82 00 84 01 91 00 5C AC E0 DE E0 AF 72 02 37 2C 04 0A 16 02 15
53 D9 2E 0B 54 19 03
)
"TagList of uneven length: ~S" UTILITYBASE OPEN-LIBRARY
#((-66. . 1.) * 4.) 2. SYSTEM::%LIBCALL 0. 32. 4. -4. MEM-WRITE
CLOSE-LIBRARY
) )
#Y(#:TOP-LEVEL-FORM-22 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-WINDOW-TAGLIST SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-WINDOW-TAGLIST
#69Y(00 01 00 00 00 02 D8 87 01 2D 00 19 02 52 21 98 03 A1 76 00 AA DC 2F
05 52 09 6A 02 DE DF AF 2C 04 08 53 6A 00 E1 66 00 00 2C 03 08 54 16
01 53 DA 2E 0A 54 53 1A 08 52 06 DA 87 01 50 00 53 D8 2E 0A 54 19 02
)
UTILITYBASE OPEN-LIBRARY INTUITIONBASE MAKE-SIMPLE-TAGLIST :ERROR
TEST-POINTER #((-606. . 169.) * * *) 0. SYSTEM::%LIBCALL
#((-78. . 9.) NIL :EXTERNAL) CLOSE-LIBRARY
) )
#Y(#:TOP-LEVEL-FORM-23 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
MAKE-WINDOW-DEMO SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(MAKE-WINDOW-DEMO
#105Y(00 00 00 00 80 1B 00 03 00 00 3C 03 3A 02 02 C6 F8 3A 01 16 6A 04
DD 6A 06 AF 6A 07 E0 6A 09 E0 6A 0A E3 91 0D 0B 00 61 0A F7 E5 87
0E 0A 00 19 04 6A 0C B8 60 02 1A 6F 52 29 62 52 12 B0 2E 0F F8 D3
10 11 63 EA B1 2C 03 13 11 AC 2E 14 53 66 00 00 62 8A 15 09 6A 0D
EE 66 00 00 2C 03 17 54 16 01 53 E5 2E 18 54 19 04
)
:WIDTH :HEIGHT :TAGLIST 150. WA_LEFT 20. WA_HEIGHT WA_DRAGBAR 1.
WA_DEPTHGADGET WA_IDCMP 0. WA_WIDTH INTUITIONBASE OPEN-LIBRARY
MAKE-WINDOW-TAGLIST 16. *PRINT-BASE*
#Y(MAKE-WINDOW-DEMO-1
#25Y(00 02 00 00 01 18 AD 30 90 D8 AE 37 02 30 8D AC AE 30 85 AD 30 8F
9C 19 04
)
"Window "
)
FORMAT WINDOW-FUN1 TEST-POINTER #((-72. . 9.) NIL :EXTERNAL)
SYSTEM::%LIBCALL CLOSE-LIBRARY
) )
#Y(#:TOP-LEVEL-FORM-24
#18Y(00 00 00 00 00 01 D8 2E 01 D8 DA C6 79 31 82 C3 19 01) WITH-MEM
SYSTEM::REMOVE-OLD-DEFINITIONS SYSTEM::MACRO
#Y(WITH-MEM
#80Y(00 01 00 01 00 08 AC 71 48 D8 8F 01 2F 3D 9D 5B 5A 77 9E 5B 5A 5B 77
9F 5B 5A 5B 5B 77 A0 5B 78 37 01 71 90 DA AB AF 7A 02 B0 DB DC AF B2
7A 04 7A 02 7A 02 DD DE B2 7A 02 DF E0 A2 79 DB E1 B6 B3 7A 04 7A 03
7A 03 60 03 19 08 AC 2E 01 19 03
)
2. SYSTEM::MACRO-CALL-ERROR LET* MLIBCALL ALLOCMEM WHEN NZERO-POINTER-P
UNWIND-PROTECT PROGN FREEMEM
) )
#Y(#:TOP-LEVEL-FORM-25 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DRAW-ONE-RECTANGLE SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(DRAW-ONE-RECTANGLE
#115Y(00 06 00 00 00 00 AF D8 D9 6D 03 02 AA DB B1 DC 2C 04 05 AA DB B0
DE 2C 04 05 AA DB B1 B0 72 02 35 DF 2C 04 05 AA DB B0 E0 2C 04 05
AA DB B1 B0 72 02 35 D9 2C 04 05 AA DB B0 AF 72 02 35 E1 2C 04 05
AA DB B1 E2 2C 04 05 AA DB B0 AF 72 02 35 E3 2C 04 05 AA DB B1 E4
2C 04 05 AA DB B0 E5 2C 04 05 6A 0E E7 B3 D8 E8 6D 03 02 B3 DC DC
2C 06 11 19 08
)
* 8. MEM-READ -2. 0. MEM-WRITE 2. 4. 6. 10. 12. 14. 16. 18. INTUITIONBASE
#((-108. . 8617.) * * * * *) 50. SYSTEM::%LIBCALL
) )
#Y(#:TOP-LEVEL-FORM-26 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
DRAW-RECTANGLES SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(DRAW-RECTANGLES
#60Y(00 06 00 00 00 00 AE AE AE AE 1A 21 B4 B4 AF AF AF AF 2C 06 01 DA AE
81 02 35 03 DA AD 81 02 35 02 DB AC 81 02 35 01 DB AB 81 02 35 00 D8
AC 8F 01 32 06 D8 AB 90 01 32 53 00 19 0B
)
0. DRAW-ONE-RECTANGLE 2. -4.
) )
#Y(#:TOP-LEVEL-FORM-27
#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
83 C3 19 01
)
JAM1 0. (DEFCONSTANT JAM1 0.) SYSTEM::CONSTANT-WARNING
)
#Y(#:TOP-LEVEL-FORM-28 #16Y(00 00 00 00 00 01 D8 2E 01 D8 DA 31 82 C3 19 01)
WINDOW-FUN1 SYSTEM::REMOVE-OLD-DEFINITIONS
#Y(WINDOW-FUN1
#226Y(00 01 00 00 00 02 D8 87 01 80 BA 00 19 02 52 80 85 AF E1 B5 E2 E3
6D 03 0C E5 2C 04 0E AF E1 B5 E2 E7 6D 03 0C E8 2C 04 0E AF DC DC
E9 2C 04 0E AF DC E8 EA 2C 04 0E AF DC E5 EB 2C 04 0E AF E2 EA EC
2C 04 0E AF ED AE EE 2C 04 0E AF ED E5 EF 2C 04 0E B3 B0 E5 E5 B7
E1 EE 6D 03 0C DC B9 E2 F0 6D 03 0C BA E2 E3 6D 03 0C 72 03 36 B8
E1 F1 6D 03 0C DC BA E2 F2 6D 03 0C BB E2 E7 6D 03 0C 72 03 36 2C
06 1B F4 B4 2F 1D 63 64 1E E8 E8 2C 04 1F E8 2E 20 53 6A 00 64 21
66 00 00 E0 2C 04 06 54 1A 10 52 11 6A 00 DA E0 DC 6D 04 06 AA 87
07 FF 5B 00 16 01 53 6A 00 64 21 66 00 00 DB 2C 04 06 54 1A 14 52
15 6A 00 DA DB DC 6A 05 72 02 3B 6D 04 06 AA 87 07 4C 00 16 01 53
D8 2E 22 54 19 02
)
SYSBASE OPEN-LIBRARY #((-198. . 33.) * 4. 4.) 16. #.MEMF_ANY MEMF_CLEAR
SYSTEM::%LIBCALL NZERO-POINTER-P 20. -2. -1. 54. MEM-READ 0. MEM-WRITE
55. 2. 4. 5. 6. 7. * 8. 12. 56. 10. 57. DRAW-RECTANGLES
"Have fun with window ~S" BREAK
#Y(WINDOW-FUN1-1
#42Y(00 03 00 00 01 19 AE 30 90 D8 AF 37 02 30 8D AD AF 2F 01 DA AF 37
02 30 8D AC 23 03 04 DC AF 30 8C DD AF 37 02 30 8D 9C 19 05
)
"Waiting " SYSTEM::FORMAT-CARDINAL " second" 1. #\s
".
"
)
FORMAT SLEEP #((-210. . 26.) NIL * 4.) CLOSE-LIBRARY
) )