� > <WimpLib$Dir>.Wimp1
� Window manager routines
� Part 1: init
(� Walther Schoonenberg
2:
< � �init_task(program$,size%)
F� taskid% 4:$taskid%="TASK"
P?ș "Wimp_Initialise",200,!taskid%,program$ � version%,task%
Z5� block% size%: � datablok voor window definities
d0� q% 255: � datablok voor wimp messages, etc
n� � �errorbox:�
xAwbcol=0:tbcol=2:sco=3:mbcol=2:wfcol=7:tfcol=7:sci=1:tbcol2=12
�'offset%=16:feed%=32:chx%=16:chy%=36
��getmodeinfo
��
�:
�� �close_task
�&ș "Wimp_CloseDown",task%,!taskid%
��
�:
�� �iconbar(icon$)
�E!q%=-1:q%!4=0:q%!8=0:q%!12=69:q%!16=68:q%!20=&3002:$(q%+24)=icon$
�&ș "Wimp_CreateIcon",,q% � handle%
�=handle%
�:

� �init_sprites(name$)

� id%,size%

id%=�(name$)

"2� id%=0 �fatal("File "+name$+" not present"):�

,size%=�#id%+16:�#id%

6� sprites% size%

@ !sprites%=size%:sprites%!8=1

J"ș "OS_SpriteOp",&109,sprites%

T(ș "OS_SpriteOp",&10A,sprites%,name$

^�

h:

r� �iconaddr(h%,i%)

|-!q%=h%:q%!4=i%:ș "Wimp_GetIconState",,q%

�;� (q%!24 � &100)=0 � �fatal("Icon is not indirected"):�

�
=q%!28

�:

�� �getmodeinfo

�+q%!0=4:q%!4=5:q%!8=11:q%!12=12:q%!16=-1

�%ș "OS_ReadVduVariables",q%,q%+20

�!dx%=1<<(q%!20):dy%=1<<(q%!24)

�+scrx%=(q%!28+1)*dx%:scry%=(q%!32+1)*dy%

��

�:

�� �warningbox(warning$)

�!q%=0:$(q%+4)=warning$+�(0)

�'ș "Wimp_ReportError",q%,1,program$
�
:
� �fatal(error$)
&� �
0� � � ș "Wimp_CloseDown":�
:ș "Hourglass_Smash"
D!q%=0:$(q%+4)=error$+�(0)
N'ș "Wimp_ReportError",q%,1,program$
X�close_task
b�
l:
v� �errorbox
�� �
�� � � ș "Wimp_CloseDown":�
�ș "Hourglass_Smash"
�*!q%=�:$(q%+4)=�$+" at line "+�(�)+�(0)
�'ș "Wimp_ReportError",q%,1,program$
��close_task
��
�

00000000  0d 00 0a 1b f4 20 3e 20  3c 57 69 6d 70 4c 69 62  |..... > <WimpLib|
00000010  24 44 69 72 3e 2e 57 69  6d 70 31 0d 00 14 1d f4  |$Dir>.Wimp1.....|
00000020  20 57 69 6e 64 6f 77 20  6d 61 6e 61 67 65 72 20  | Window manager |
00000030  72 6f 75 74 69 6e 65 73  0d 00 1e 12 f4 20 50 61  |routines..... Pa|
00000040  72 74 20 31 3a 20 69 6e  69 74 0d 00 28 1a f4 20  |rt 1: init..(.. |
00000050  57 61 6c 74 68 65 72 20  53 63 68 6f 6f 6e 65 6e  |Walther Schoonen|
00000060  62 65 72 67 0d 00 32 05  3a 0d 00 3c 20 dd 20 f2  |berg..2.:..< . .|
00000070  69 6e 69 74 5f 74 61 73  6b 28 70 72 6f 67 72 61  |init_task(progra|
00000080  6d 24 2c 73 69 7a 65 25  29 0d 00 46 1f de 20 74  |m$,size%)..F.. t|
00000090  61 73 6b 69 64 25 20 34  3a 24 74 61 73 6b 69 64  |askid% 4:$taskid|
000000a0  25 3d 22 54 41 53 4b 22  0d 00 50 3f c8 99 20 22  |%="TASK"..P?.. "|
000000b0  57 69 6d 70 5f 49 6e 69  74 69 61 6c 69 73 65 22  |Wimp_Initialise"|
000000c0  2c 32 30 30 2c 21 74 61  73 6b 69 64 25 2c 70 72  |,200,!taskid%,pr|
000000d0  6f 67 72 61 6d 24 20 b8  20 76 65 72 73 69 6f 6e  |ogram$ . version|
000000e0  25 2c 74 61 73 6b 25 0d  00 5a 35 de 20 62 6c 6f  |%,task%..Z5. blo|
000000f0  63 6b 25 20 73 69 7a 65  25 3a 20 f4 20 64 61 74  |ck% size%: . dat|
00000100  61 62 6c 6f 6b 20 76 6f  6f 72 20 77 69 6e 64 6f  |ablok voor windo|
00000110  77 20 64 65 66 69 6e 69  74 69 65 73 0d 00 64 30  |w definities..d0|
00000120  de 20 71 25 20 32 35 35  3a 20 f4 20 64 61 74 61  |. q% 255: . data|
00000130  62 6c 6f 6b 20 76 6f 6f  72 20 77 69 6d 70 20 6d  |blok voor wimp m|
00000140  65 73 73 61 67 65 73 2c  20 65 74 63 0d 00 6e 13  |essages, etc..n.|
00000150  ee 20 85 20 f2 65 72 72  6f 72 62 6f 78 3a e0 0d  |. . .errorbox:..|
00000160  00 78 41 77 62 63 6f 6c  3d 30 3a 74 62 63 6f 6c  |.xAwbcol=0:tbcol|
00000170  3d 32 3a 73 63 6f 3d 33  3a 6d 62 63 6f 6c 3d 32  |=2:sco=3:mbcol=2|
00000180  3a 77 66 63 6f 6c 3d 37  3a 74 66 63 6f 6c 3d 37  |:wfcol=7:tfcol=7|
00000190  3a 73 63 69 3d 31 3a 74  62 63 6f 6c 32 3d 31 32  |:sci=1:tbcol2=12|
000001a0  0d 00 82 27 6f 66 66 73  65 74 25 3d 31 36 3a 66  |...'offset%=16:f|
000001b0  65 65 64 25 3d 33 32 3a  63 68 78 25 3d 31 36 3a  |eed%=32:chx%=16:|
000001c0  63 68 79 25 3d 33 36 0d  00 8c 10 f2 67 65 74 6d  |chy%=36.....getm|
000001d0  6f 64 65 69 6e 66 6f 0d  00 96 05 e1 0d 00 a0 05  |odeinfo.........|
000001e0  3a 0d 00 aa 11 dd 20 f2  63 6c 6f 73 65 5f 74 61  |:..... .close_ta|
000001f0  73 6b 0d 00 b4 26 c8 99  20 22 57 69 6d 70 5f 43  |sk...&.. "Wimp_C|
00000200  6c 6f 73 65 44 6f 77 6e  22 2c 74 61 73 6b 25 2c  |loseDown",task%,|
00000210  21 74 61 73 6b 69 64 25  0d 00 be 05 e1 0d 00 c8  |!taskid%........|
00000220  05 3a 0d 00 d2 15 dd 20  a4 69 63 6f 6e 62 61 72  |.:..... .iconbar|
00000230  28 69 63 6f 6e 24 29 0d  00 dc 45 21 71 25 3d 2d  |(icon$)...E!q%=-|
00000240  31 3a 71 25 21 34 3d 30  3a 71 25 21 38 3d 30 3a  |1:q%!4=0:q%!8=0:|
00000250  71 25 21 31 32 3d 36 39  3a 71 25 21 31 36 3d 36  |q%!12=69:q%!16=6|
00000260  38 3a 71 25 21 32 30 3d  26 33 30 30 32 3a 24 28  |8:q%!20=&3002:$(|
00000270  71 25 2b 32 34 29 3d 69  63 6f 6e 24 0d 00 e6 26  |q%+24)=icon$...&|
00000280  c8 99 20 22 57 69 6d 70  5f 43 72 65 61 74 65 49  |.. "Wimp_CreateI|
00000290  63 6f 6e 22 2c 2c 71 25  20 b8 20 68 61 6e 64 6c  |con",,q% . handl|
000002a0  65 25 0d 00 f0 0c 3d 68  61 6e 64 6c 65 25 0d 00  |e%....=handle%..|
000002b0  fa 05 3a 0d 01 04 1a dd  20 f2 69 6e 69 74 5f 73  |..:..... .init_s|
000002c0  70 72 69 74 65 73 28 6e  61 6d 65 24 29 0d 01 0e  |prites(name$)...|
000002d0  0f ea 20 69 64 25 2c 73  69 7a 65 25 0d 01 18 10  |.. id%,size%....|
000002e0  69 64 25 3d 8e 28 6e 61  6d 65 24 29 0d 01 22 32  |id%=.(name$).."2|
000002f0  e7 20 69 64 25 3d 30 20  f2 66 61 74 61 6c 28 22  |. id%=0 .fatal("|
00000300  46 69 6c 65 20 22 2b 6e  61 6d 65 24 2b 22 20 6e  |File "+name$+" n|
00000310  6f 74 20 70 72 65 73 65  6e 74 22 29 3a e0 0d 01  |ot present"):...|
00000320  2c 18 73 69 7a 65 25 3d  a2 23 69 64 25 2b 31 36  |,.size%=.#id%+16|
00000330  3a d9 23 69 64 25 0d 01  36 14 de 20 73 70 72 69  |:.#id%..6.. spri|
00000340  74 65 73 25 20 73 69 7a  65 25 0d 01 40 20 21 73  |tes% size%..@ !s|
00000350  70 72 69 74 65 73 25 3d  73 69 7a 65 25 3a 73 70  |prites%=size%:sp|
00000360  72 69 74 65 73 25 21 38  3d 31 0d 01 4a 22 c8 99  |rites%!8=1..J"..|
00000370  20 22 4f 53 5f 53 70 72  69 74 65 4f 70 22 2c 26  | "OS_SpriteOp",&|
00000380  31 30 39 2c 73 70 72 69  74 65 73 25 0d 01 54 28  |109,sprites%..T(|
00000390  c8 99 20 22 4f 53 5f 53  70 72 69 74 65 4f 70 22  |.. "OS_SpriteOp"|
000003a0  2c 26 31 30 41 2c 73 70  72 69 74 65 73 25 2c 6e  |,&10A,sprites%,n|
000003b0  61 6d 65 24 0d 01 5e 05  e1 0d 01 68 05 3a 0d 01  |ame$..^....h.:..|
000003c0  72 16 dd 20 a4 69 63 6f  6e 61 64 64 72 28 68 25  |r.. .iconaddr(h%|
000003d0  2c 69 25 29 0d 01 7c 2d  21 71 25 3d 68 25 3a 71  |,i%)..|-!q%=h%:q|
000003e0  25 21 34 3d 69 25 3a c8  99 20 22 57 69 6d 70 5f  |%!4=i%:.. "Wimp_|
000003f0  47 65 74 49 63 6f 6e 53  74 61 74 65 22 2c 2c 71  |GetIconState",,q|
00000400  25 0d 01 86 3b e7 20 28  71 25 21 32 34 20 80 20  |%...;. (q%!24 . |
00000410  26 31 30 30 29 3d 30 20  8c 20 f2 66 61 74 61 6c  |&100)=0 . .fatal|
00000420  28 22 49 63 6f 6e 20 69  73 20 6e 6f 74 20 69 6e  |("Icon is not in|
00000430  64 69 72 65 63 74 65 64  22 29 3a e0 0d 01 90 0a  |directed"):.....|
00000440  3d 71 25 21 32 38 0d 01  9a 05 3a 0d 01 a4 12 dd  |=q%!28....:.....|
00000450  20 f2 67 65 74 6d 6f 64  65 69 6e 66 6f 0d 01 ae  | .getmodeinfo...|
00000460  2b 71 25 21 30 3d 34 3a  71 25 21 34 3d 35 3a 71  |+q%!0=4:q%!4=5:q|
00000470  25 21 38 3d 31 31 3a 71  25 21 31 32 3d 31 32 3a  |%!8=11:q%!12=12:|
00000480  71 25 21 31 36 3d 2d 31  0d 01 b8 25 c8 99 20 22  |q%!16=-1...%.. "|
00000490  4f 53 5f 52 65 61 64 56  64 75 56 61 72 69 61 62  |OS_ReadVduVariab|
000004a0  6c 65 73 22 2c 71 25 2c  71 25 2b 32 30 0d 01 c2  |les",q%,q%+20...|
000004b0  21 64 78 25 3d 31 3c 3c  28 71 25 21 32 30 29 3a  |!dx%=1<<(q%!20):|
000004c0  64 79 25 3d 31 3c 3c 28  71 25 21 32 34 29 0d 01  |dy%=1<<(q%!24)..|
000004d0  cc 2b 73 63 72 78 25 3d  28 71 25 21 32 38 2b 31  |.+scrx%=(q%!28+1|
000004e0  29 2a 64 78 25 3a 73 63  72 79 25 3d 28 71 25 21  |)*dx%:scry%=(q%!|
000004f0  33 32 2b 31 29 2a 64 79  25 0d 01 d6 05 e1 0d 01  |32+1)*dy%.......|
00000500  e0 05 3a 0d 01 ea 1b dd  20 f2 77 61 72 6e 69 6e  |..:..... .warnin|
00000510  67 62 6f 78 28 77 61 72  6e 69 6e 67 24 29 0d 01  |gbox(warning$)..|
00000520  f4 1f 21 71 25 3d 30 3a  24 28 71 25 2b 34 29 3d  |..!q%=0:$(q%+4)=|
00000530  77 61 72 6e 69 6e 67 24  2b bd 28 30 29 0d 01 fe  |warning$+.(0)...|
00000540  27 c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |'.. "Wimp_Report|
00000550  45 72 72 6f 72 22 2c 71  25 2c 31 2c 70 72 6f 67  |Error",q%,1,prog|
00000560  72 61 6d 24 0d 02 08 05  e1 0d 02 12 05 3a 0d 02  |ram$.........:..|
00000570  1c 14 dd 20 f2 66 61 74  61 6c 28 65 72 72 6f 72  |... .fatal(error|
00000580  24 29 0d 02 26 07 ea 20  85 0d 02 30 1f ee 20 85  |$)..&.. ...0.. .|
00000590  20 ea 20 c8 99 20 22 57  69 6d 70 5f 43 6c 6f 73  | . .. "Wimp_Clos|
000005a0  65 44 6f 77 6e 22 3a e0  0d 02 3a 18 c8 99 20 22  |eDown":...:... "|
000005b0  48 6f 75 72 67 6c 61 73  73 5f 53 6d 61 73 68 22  |Hourglass_Smash"|
000005c0  0d 02 44 1d 21 71 25 3d  30 3a 24 28 71 25 2b 34  |..D.!q%=0:$(q%+4|
000005d0  29 3d 65 72 72 6f 72 24  2b bd 28 30 29 0d 02 4e  |)=error$+.(0)..N|
000005e0  27 c8 99 20 22 57 69 6d  70 5f 52 65 70 6f 72 74  |'.. "Wimp_Report|
000005f0  45 72 72 6f 72 22 2c 71  25 2c 31 2c 70 72 6f 67  |Error",q%,1,prog|
00000600  72 61 6d 24 0d 02 58 0f  f2 63 6c 6f 73 65 5f 74  |ram$..X..close_t|
00000610  61 73 6b 0d 02 62 05 e1  0d 02 6c 05 3a 0d 02 76  |ask..b....l.:..v|
00000620  0f dd 20 f2 65 72 72 6f  72 62 6f 78 0d 02 80 07  |.. .errorbox....|
00000630  ea 20 85 0d 02 8a 1f ee  20 85 20 ea 20 c8 99 20  |. ...... . . .. |
00000640  22 57 69 6d 70 5f 43 6c  6f 73 65 44 6f 77 6e 22  |"Wimp_CloseDown"|
00000650  3a e0 0d 02 94 18 c8 99  20 22 48 6f 75 72 67 6c  |:....... "Hourgl|
00000660  61 73 73 5f 53 6d 61 73  68 22 0d 02 9e 2a 21 71  |ass_Smash"...*!q|
00000670  25 3d 9f 3a 24 28 71 25  2b 34 29 3d f6 24 2b 22  |%=.:$(q%+4)=.$+"|
00000680  20 61 74 20 6c 69 6e 65  20 22 2b c3 28 9e 29 2b  | at line "+.(.)+|
00000690  bd 28 30 29 0d 02 a8 27  c8 99 20 22 57 69 6d 70  |.(0)...'.. "Wimp|
000006a0  5f 52 65 70 6f 72 74 45  72 72 6f 72 22 2c 71 25  |_ReportError",q%|
000006b0  2c 31 2c 70 72 6f 67 72  61 6d 24 0d 02 b2 0f f2  |,1,program$.....|
000006c0  63 6c 6f 73 65 5f 74 61  73 6b 0d 02 bc 05 e1 0d  |close_task......|
000006d0  ff                                                |.|
000006d1