� >!RunImage
testing%=�
*ț "<NWTest$Dir>.WimpLib":�initlibrary
(=� � �closemessages:�eerror:� testing%=� ��("Spool"):� � �
2 � testing%=� �*Spool Spooled
<� testing%=� �� �
F5� Appname$ is used for task manager & Appname$Dir
PD� shortname$ is used for iconbar name and should usually be null
Z'� longname$ is used for info window
d7� AppURL$ is used to for clicks on the version icon
n3Appname$="NWTest":version$="1.00 (30 May 1997)"
x0shortname$="":longname$="Nested Window Test"
�'Appdir$=�systemvar(Appname$+"$Dir")
�9AppURL$="http://users.essex.ac.uk/users/gerph/acorn/"
��initwimp:�initprog
�quit%=�:init%=�
�� � �error
�� � init% �
� go$=�GetEnv:init%=�
�- � go$<>"" ��loadfile(go$,�filetype(go$))
��
�%�embedwin(parentwin%,childwin%,0)
��openwincentre(parentwin%)
�ȕ quit%=�
�
 �Poll

�

ș "Wimp_CloseDown"

�closemessages

"� testing%=� �*SPOOL

,�

65� quit%=-1 for user quit, -2 for taskmanager quit

@:

J
��Poll

T!ș "Wimp_Poll",1,b% � reason%

^Ȏ reason% �

h � 1 = Redraw window

r! � 2:ș "Wimp_OpenWindow",,b%

|" � 3:ș "Wimp_CloseWindow",,b%

�& � 6:�mouseclick(b%!8,b%!12,b%!16)

�+ � 7 = Drag box dropped on another task

�% � 8:�processkey(b%!0,b%!4,b%!24)

� � 9:�menuchoice

� � 17,18:�receive(b%!16)

� � 19:�receiveack(b%!16)

��

��

�:

�0� Buttons : 1 = Adjust, 2 = Menu, 4 = Select

���mouseclick(but,win,icon)

�Ȏ win �

�	 � -2
  Ȏ but �
   � 2:�ibmenu
.   � 1,4:�unembedwin(parentwin%,childwin%)
&  �
0 � infobox%
:  Ȏ icon �
D   � 1:� PROCshowfree
N>   � 3:�FetchPage("http://users.essex.ac.uk/users/gerph/")
X   � 4:�FetchPage(AppURL$)
b  �
l�
v�
�:
���processkey(win,icon,key)
�� keydone:keydone=�
�Ȏ win �
��
�)� � keydone �ș "Wimp_ProcessKey",key
��
�:
���menuchoice
�Dș"Wimp_GetPointerInfo",,message_buffer%:mbut%=message_buffer%!8
�m$=�decodemenu(curmenu%)
�Ȏ m$ �
� � "Quit":quit%=�
�
-� (mbut%�1)=1 ��recreatemenu �curmenu%=-1
�
 :
*��receive(mess)
4
Ȏ mess �
> � &400C1 = mode change
H � &400C2 = task start up
R � &400C3 = task shut down
\ � 0:quit%=�*2
f � 3,5:type=b%!40
p  � type = &8888 �
z   b%!12=b%!8:b%!16=4
�&   ș"Wimp_SendMessage",17,b%,b%!4
�'   �loadfile(�string0(b%+44),b%!40)
�  �
�# � &502:�Help(b%!32,b%!36,b%!4)
� � 10:�desktopsave(b%!20)
��
��
�:
���receiveack(mess)
�
Ȏ mess �
��
��
�:
��desktopsave(file%)
� �
;� � � b%!12=b%!8:ș "Wimp_SendMessage",19,b%,b%!4:� �:�
$@� The above line acknowledges the message if an error occurs
. � aborting the desktop save.
8�#file%,"Run "+Appdir$
B�
L:
V��loadfile(file$,type)
`
Ȏ type �
j�
t�
~:
�/� Any messages to be received MUST be noted
���initwimp
�!� messagelist% 256:messptr%=0
�'�notemessage(&502):�notemessage(10)
��notemessage(0)
�Uș "Wimp_Initialise",387,&4B534154,Appname$,messagelist% � wimpversion,taskhandle
�Gindl%=1024:menul%=1024:� b% 2048,ind% indl%,menu% menul%,wspc% &800
�curmenu%=-1
��openmessages
�0� sprites%=FNloadsprites(Appdir$+".Sprites")
�$infobox%=�loadtemplate("Info",1)
�(parentwin%=�loadtemplate("Parent",1)
&childwin%=�loadtemplate("Child",1)

%�seticontext(infobox%,1,Appname$)
&�seticontext(infobox%,2,longname$)
%�seticontext(infobox%,4,version$)
(:ibhandle=�CreateIconBarIcon("!"+Appname$,shortname$,1)
28ibmenu%=�createmenu(Appname$+"|Info]>infobox%|Quit")
<iboptions%=options%
F�
P:
Z��initprog
d�
n:
x��Help(win,icon,to)
�!� �t`E:�readhelp(win,icon,to)
��
�
� Windows
�� infobox%,">HInfobox"
�� 3,">HInfobox3"
�� 4,">HInfobox4"
�� -2,">HIconbar"
�� -1,-1
�� Menus
�� -2,-2,-2,-2
�:
���FetchPage(f$)
�<� XURI_Dispatch - this protocol is still being decided !
ș &6E381,%000,f$+�0
�
�

00000000  0d 00 0a 10 f4 20 3e 21  52 75 6e 49 6d 61 67 65  |..... >!RunImage|
00000010  0d 00 14 0e 74 65 73 74  69 6e 67 25 3d a3 0d 00  |....testing%=...|
00000020  1e 2a c8 9b 20 22 3c 4e  57 54 65 73 74 24 44 69  |.*.. "<NWTest$Di|
00000030  72 3e 2e 57 69 6d 70 4c  69 62 22 3a f2 69 6e 69  |r>.WimpLib":.ini|
00000040  74 6c 69 62 72 61 72 79  0d 00 28 3d ee 20 85 20  |tlibrary..(=. . |
00000050  f2 63 6c 6f 73 65 6d 65  73 73 61 67 65 73 3a f2  |.closemessages:.|
00000060  65 65 72 72 6f 72 3a e7  20 74 65 73 74 69 6e 67  |eerror:. testing|
00000070  25 3d b9 20 8c ff 28 22  53 70 6f 6f 6c 22 29 3a  |%=. ..("Spool"):|
00000080  e0 20 8b 20 e0 0d 00 32  20 e7 20 74 65 73 74 69  |. . ...2 . testi|
00000090  6e 67 25 3d b9 20 8c 2a  53 70 6f 6f 6c 20 53 70  |ng%=. .*Spool Sp|
000000a0  6f 6f 6c 65 64 0d 00 3c  15 e7 20 74 65 73 74 69  |ooled..<.. testi|
000000b0  6e 67 25 3d b9 20 8c fc  20 ee 0d 00 46 35 f4 20  |ng%=. .. ...F5. |
000000c0  41 70 70 6e 61 6d 65 24  20 69 73 20 75 73 65 64  |Appname$ is used|
000000d0  20 66 6f 72 20 74 61 73  6b 20 6d 61 6e 61 67 65  | for task manage|
000000e0  72 20 26 20 41 70 70 6e  61 6d 65 24 44 69 72 0d  |r & Appname$Dir.|
000000f0  00 50 44 f4 20 73 68 6f  72 74 6e 61 6d 65 24 20  |.PD. shortname$ |
00000100  69 73 20 75 73 65 64 20  66 6f 72 20 69 63 6f 6e  |is used for icon|
00000110  62 61 72 20 6e 61 6d 65  20 61 6e 64 20 73 68 6f  |bar name and sho|
00000120  75 6c 64 20 75 73 75 61  6c 6c 79 20 62 65 20 6e  |uld usually be n|
00000130  75 6c 6c 0d 00 5a 27 f4  20 6c 6f 6e 67 6e 61 6d  |ull..Z'. longnam|
00000140  65 24 20 69 73 20 75 73  65 64 20 66 6f 72 20 69  |e$ is used for i|
00000150  6e 66 6f 20 77 69 6e 64  6f 77 0d 00 64 37 f4 20  |nfo window..d7. |
00000160  41 70 70 55 52 4c 24 20  69 73 20 75 73 65 64 20  |AppURL$ is used |
00000170  74 6f 20 66 6f 72 20 63  6c 69 63 6b 73 20 6f 6e  |to for clicks on|
00000180  20 74 68 65 20 76 65 72  73 69 6f 6e 20 69 63 6f  | the version ico|
00000190  6e 0d 00 6e 33 41 70 70  6e 61 6d 65 24 3d 22 4e  |n..n3Appname$="N|
000001a0  57 54 65 73 74 22 3a 76  65 72 73 69 6f 6e 24 3d  |WTest":version$=|
000001b0  22 31 2e 30 30 20 28 33  30 20 4d 61 79 20 31 39  |"1.00 (30 May 19|
000001c0  39 37 29 22 0d 00 78 30  73 68 6f 72 74 6e 61 6d  |97)"..x0shortnam|
000001d0  65 24 3d 22 22 3a 6c 6f  6e 67 6e 61 6d 65 24 3d  |e$="":longname$=|
000001e0  22 4e 65 73 74 65 64 20  57 69 6e 64 6f 77 20 54  |"Nested Window T|
000001f0  65 73 74 22 0d 00 82 27  41 70 70 64 69 72 24 3d  |est"...'Appdir$=|
00000200  a4 73 79 73 74 65 6d 76  61 72 28 41 70 70 6e 61  |.systemvar(Appna|
00000210  6d 65 24 2b 22 24 44 69  72 22 29 0d 00 8c 39 41  |me$+"$Dir")...9A|
00000220  70 70 55 52 4c 24 3d 22  68 74 74 70 3a 2f 2f 75  |ppURL$="http://u|
00000230  73 65 72 73 2e 65 73 73  65 78 2e 61 63 2e 75 6b  |sers.essex.ac.uk|
00000240  2f 75 73 65 72 73 2f 67  65 72 70 68 2f 61 63 6f  |/users/gerph/aco|
00000250  72 6e 2f 22 0d 00 96 17  f2 69 6e 69 74 77 69 6d  |rn/".....initwim|
00000260  70 3a f2 69 6e 69 74 70  72 6f 67 0d 00 a0 13 71  |p:.initprog....q|
00000270  75 69 74 25 3d a3 3a 69  6e 69 74 25 3d a3 0d 00  |uit%=.:init%=...|
00000280  aa 0e ee 20 85 20 f2 65  72 72 6f 72 0d 00 b4 0f  |... . .error....|
00000290  e7 20 ac 20 69 6e 69 74  25 20 8c 0d 00 be 18 20  |. . init% ..... |
000002a0  67 6f 24 3d a4 47 65 74  45 6e 76 3a 69 6e 69 74  |go$=.GetEnv:init|
000002b0  25 3d b9 0d 00 c8 2d 20  e7 20 67 6f 24 3c 3e 22  |%=....- . go$<>"|
000002c0  22 20 8c f2 6c 6f 61 64  66 69 6c 65 28 67 6f 24  |" ..loadfile(go$|
000002d0  2c a4 66 69 6c 65 74 79  70 65 28 67 6f 24 29 29  |,.filetype(go$))|
000002e0  0d 00 d2 05 cd 0d 00 dc  25 f2 65 6d 62 65 64 77  |........%.embedw|
000002f0  69 6e 28 70 61 72 65 6e  74 77 69 6e 25 2c 63 68  |in(parentwin%,ch|
00000300  69 6c 64 77 69 6e 25 2c  30 29 0d 00 e6 1e f2 6f  |ildwin%,0).....o|
00000310  70 65 6e 77 69 6e 63 65  6e 74 72 65 28 70 61 72  |penwincentre(par|
00000320  65 6e 74 77 69 6e 25 29  0d 00 f0 0e c8 95 20 71  |entwin%)...... q|
00000330  75 69 74 25 3d a3 0d 00  fa 0a 20 f2 50 6f 6c 6c  |uit%=..... .Poll|
00000340  0d 01 04 05 ce 0d 01 0e  17 c8 99 20 22 57 69 6d  |........... "Wim|
00000350  70 5f 43 6c 6f 73 65 44  6f 77 6e 22 0d 01 18 12  |p_CloseDown"....|
00000360  f2 63 6c 6f 73 65 6d 65  73 73 61 67 65 73 0d 01  |.closemessages..|
00000370  22 18 e7 20 74 65 73 74  69 6e 67 25 3d b9 20 8c  |".. testing%=. .|
00000380  2a 53 50 4f 4f 4c 0d 01  2c 05 e0 0d 01 36 35 f4  |*SPOOL..,....65.|
00000390  20 71 75 69 74 25 3d 2d  31 20 66 6f 72 20 75 73  | quit%=-1 for us|
000003a0  65 72 20 71 75 69 74 2c  20 2d 32 20 66 6f 72 20  |er quit, -2 for |
000003b0  74 61 73 6b 6d 61 6e 61  67 65 72 20 71 75 69 74  |taskmanager quit|
000003c0  0d 01 40 05 3a 0d 01 4a  0a dd f2 50 6f 6c 6c 0d  |..@.:..J...Poll.|
000003d0  01 54 21 c8 99 20 22 57  69 6d 70 5f 50 6f 6c 6c  |.T!.. "Wimp_Poll|
000003e0  22 2c 31 2c 62 25 20 b8  20 72 65 61 73 6f 6e 25  |",1,b% . reason%|
000003f0  0d 01 5e 10 c8 8e 20 72  65 61 73 6f 6e 25 20 ca  |..^... reason% .|
00000400  0d 01 68 18 20 f4 20 31  20 3d 20 52 65 64 72 61  |..h. . 1 = Redra|
00000410  77 20 77 69 6e 64 6f 77  0d 01 72 21 20 c9 20 32  |w window..r! . 2|
00000420  3a c8 99 20 22 57 69 6d  70 5f 4f 70 65 6e 57 69  |:.. "Wimp_OpenWi|
00000430  6e 64 6f 77 22 2c 2c 62  25 0d 01 7c 22 20 c9 20  |ndow",,b%..|" . |
00000440  33 3a c8 99 20 22 57 69  6d 70 5f 43 6c 6f 73 65  |3:.. "Wimp_Close|
00000450  57 69 6e 64 6f 77 22 2c  2c 62 25 0d 01 86 26 20  |Window",,b%...& |
00000460  c9 20 36 3a f2 6d 6f 75  73 65 63 6c 69 63 6b 28  |. 6:.mouseclick(|
00000470  62 25 21 38 2c 62 25 21  31 32 2c 62 25 21 31 36  |b%!8,b%!12,b%!16|
00000480  29 0d 01 90 2b 20 f4 20  37 20 3d 20 44 72 61 67  |)...+ . 7 = Drag|
00000490  20 62 6f 78 20 64 72 6f  70 70 65 64 20 6f 6e 20  | box dropped on |
000004a0  61 6e 6f 74 68 65 72 20  74 61 73 6b 0d 01 9a 25  |another task...%|
000004b0  20 c9 20 38 3a f2 70 72  6f 63 65 73 73 6b 65 79  | . 8:.processkey|
000004c0  28 62 25 21 30 2c 62 25  21 34 2c 62 25 21 32 34  |(b%!0,b%!4,b%!24|
000004d0  29 0d 01 a4 14 20 c9 20  39 3a f2 6d 65 6e 75 63  |).... . 9:.menuc|
000004e0  68 6f 69 63 65 0d 01 ae  1c 20 c9 20 31 37 2c 31  |hoice.... . 17,1|
000004f0  38 3a f2 72 65 63 65 69  76 65 28 62 25 21 31 36  |8:.receive(b%!16|
00000500  29 0d 01 b8 1c 20 c9 20  31 39 3a f2 72 65 63 65  |).... . 19:.rece|
00000510  69 76 65 61 63 6b 28 62  25 21 31 36 29 0d 01 c2  |iveack(b%!16)...|
00000520  05 cb 0d 01 cc 05 e1 0d  01 d6 05 3a 0d 01 e0 30  |...........:...0|
00000530  f4 20 42 75 74 74 6f 6e  73 20 3a 20 31 20 3d 20  |. Buttons : 1 = |
00000540  41 64 6a 75 73 74 2c 20  32 20 3d 20 4d 65 6e 75  |Adjust, 2 = Menu|
00000550  2c 20 34 20 3d 20 53 65  6c 65 63 74 0d 01 ea 1e  |, 4 = Select....|
00000560  dd f2 6d 6f 75 73 65 63  6c 69 63 6b 28 62 75 74  |..mouseclick(but|
00000570  2c 77 69 6e 2c 69 63 6f  6e 29 0d 01 f4 0c c8 8e  |,win,icon)......|
00000580  20 77 69 6e 20 ca 0d 01  fe 09 20 c9 20 2d 32 0d  | win ..... . -2.|
00000590  02 08 0e 20 20 c8 8e 20  62 75 74 20 ca 0d 02 12  |...  .. but ....|
000005a0  12 20 20 20 c9 20 32 3a  f2 69 62 6d 65 6e 75 0d  |.   . 2:.ibmenu.|
000005b0  02 1c 2e 20 20 20 c9 20  31 2c 34 3a f2 75 6e 65  |...   . 1,4:.une|
000005c0  6d 62 65 64 77 69 6e 28  70 61 72 65 6e 74 77 69  |mbedwin(parentwi|
000005d0  6e 25 2c 63 68 69 6c 64  77 69 6e 25 29 0d 02 26  |n%,childwin%)..&|
000005e0  07 20 20 cb 0d 02 30 0f  20 c9 20 69 6e 66 6f 62  |.  ...0. . infob|
000005f0  6f 78 25 0d 02 3a 0f 20  20 c8 8e 20 69 63 6f 6e  |ox%..:.  .. icon|
00000600  20 ca 0d 02 44 19 20 20  20 c9 20 31 3a f4 20 50  | ...D.   . 1:. P|
00000610  52 4f 43 73 68 6f 77 66  72 65 65 0d 02 4e 3e 20  |ROCshowfree..N> |
00000620  20 20 c9 20 33 3a f2 46  65 74 63 68 50 61 67 65  |  . 3:.FetchPage|
00000630  28 22 68 74 74 70 3a 2f  2f 75 73 65 72 73 2e 65  |("http://users.e|
00000640  73 73 65 78 2e 61 63 2e  75 6b 2f 75 73 65 72 73  |ssex.ac.uk/users|
00000650  2f 67 65 72 70 68 2f 22  29 0d 02 58 1e 20 20 20  |/gerph/")..X.   |
00000660  c9 20 34 3a f2 46 65 74  63 68 50 61 67 65 28 41  |. 4:.FetchPage(A|
00000670  70 70 55 52 4c 24 29 0d  02 62 07 20 20 cb 0d 02  |ppURL$)..b.  ...|
00000680  6c 05 cb 0d 02 76 05 e1  0d 02 80 05 3a 0d 02 8a  |l....v......:...|
00000690  1e dd f2 70 72 6f 63 65  73 73 6b 65 79 28 77 69  |...processkey(wi|
000006a0  6e 2c 69 63 6f 6e 2c 6b  65 79 29 0d 02 94 17 ea  |n,icon,key).....|
000006b0  20 6b 65 79 64 6f 6e 65  3a 6b 65 79 64 6f 6e 65  | keydone:keydone|
000006c0  3d a3 0d 02 9e 0c c8 8e  20 77 69 6e 20 ca 0d 02  |=....... win ...|
000006d0  a8 05 cb 0d 02 b2 29 e7  20 ac 20 6b 65 79 64 6f  |......). . keydo|
000006e0  6e 65 20 8c c8 99 20 22  57 69 6d 70 5f 50 72 6f  |ne ... "Wimp_Pro|
000006f0  63 65 73 73 4b 65 79 22  2c 6b 65 79 0d 02 bc 05  |cessKey",key....|
00000700  e1 0d 02 c6 05 3a 0d 02  d0 10 dd f2 6d 65 6e 75  |.....:......menu|
00000710  63 68 6f 69 63 65 0d 02  da 44 c8 99 22 57 69 6d  |choice...D.."Wim|
00000720  70 5f 47 65 74 50 6f 69  6e 74 65 72 49 6e 66 6f  |p_GetPointerInfo|
00000730  22 2c 2c 6d 65 73 73 61  67 65 5f 62 75 66 66 65  |",,message_buffe|
00000740  72 25 3a 6d 62 75 74 25  3d 6d 65 73 73 61 67 65  |r%:mbut%=message|
00000750  5f 62 75 66 66 65 72 25  21 38 0d 02 e4 1c 6d 24  |_buffer%!8....m$|
00000760  3d a4 64 65 63 6f 64 65  6d 65 6e 75 28 63 75 72  |=.decodemenu(cur|
00000770  6d 65 6e 75 25 29 0d 02  ee 0b c8 8e 20 6d 24 20  |menu%)...... m$ |
00000780  ca 0d 02 f8 15 20 c9 20  22 51 75 69 74 22 3a 71  |..... . "Quit":q|
00000790  75 69 74 25 3d b9 0d 03  02 05 cb 0d 03 0c 2d e7  |uit%=.........-.|
000007a0  20 28 6d 62 75 74 25 80  31 29 3d 31 20 8c f2 72  | (mbut%.1)=1 ..r|
000007b0  65 63 72 65 61 74 65 6d  65 6e 75 20 8b 63 75 72  |ecreatemenu .cur|
000007c0  6d 65 6e 75 25 3d 2d 31  0d 03 16 05 e1 0d 03 20  |menu%=-1....... |
000007d0  05 3a 0d 03 2a 13 dd f2  72 65 63 65 69 76 65 28  |.:..*...receive(|
000007e0  6d 65 73 73 29 0d 03 34  0d c8 8e 20 6d 65 73 73  |mess)..4... mess|
000007f0  20 ca 0d 03 3e 1b 20 f4  20 26 34 30 30 43 31 20  | ...>. . &400C1 |
00000800  3d 20 6d 6f 64 65 20 63  68 61 6e 67 65 0d 03 48  |= mode change..H|
00000810  1d 20 f4 20 26 34 30 30  43 32 20 3d 20 74 61 73  |. . &400C2 = tas|
00000820  6b 20 73 74 61 72 74 20  75 70 0d 03 52 1e 20 f4  |k start up..R. .|
00000830  20 26 34 30 30 43 33 20  3d 20 74 61 73 6b 20 73  | &400C3 = task s|
00000840  68 75 74 20 64 6f 77 6e  0d 03 5c 12 20 c9 20 30  |hut down..\. . 0|
00000850  3a 71 75 69 74 25 3d b9  2a 32 0d 03 66 15 20 c9  |:quit%=.*2..f. .|
00000860  20 33 2c 35 3a 74 79 70  65 3d 62 25 21 34 30 0d  | 3,5:type=b%!40.|
00000870  03 70 16 20 20 e7 20 74  79 70 65 20 3d 20 26 38  |.p.  . type = &8|
00000880  38 38 38 20 8c 0d 03 7a  19 20 20 20 62 25 21 31  |888 ...z.   b%!1|
00000890  32 3d 62 25 21 38 3a 62  25 21 31 36 3d 34 0d 03  |2=b%!8:b%!16=4..|
000008a0  84 26 20 20 20 c8 99 22  57 69 6d 70 5f 53 65 6e  |.&   .."Wimp_Sen|
000008b0  64 4d 65 73 73 61 67 65  22 2c 31 37 2c 62 25 2c  |dMessage",17,b%,|
000008c0  62 25 21 34 0d 03 8e 27  20 20 20 f2 6c 6f 61 64  |b%!4...'   .load|
000008d0  66 69 6c 65 28 a4 73 74  72 69 6e 67 30 28 62 25  |file(.string0(b%|
000008e0  2b 34 34 29 2c 62 25 21  34 30 29 0d 03 98 07 20  |+44),b%!40).... |
000008f0  20 cd 0d 03 a2 23 20 c9  20 26 35 30 32 3a f2 48  | ....# . &502:.H|
00000900  65 6c 70 28 62 25 21 33  32 2c 62 25 21 33 36 2c  |elp(b%!32,b%!36,|
00000910  62 25 21 34 29 0d 03 ac  1d 20 c9 20 31 30 3a f2  |b%!4).... . 10:.|
00000920  64 65 73 6b 74 6f 70 73  61 76 65 28 62 25 21 32  |desktopsave(b%!2|
00000930  30 29 0d 03 b6 05 cb 0d  03 c0 05 e1 0d 03 ca 05  |0)..............|
00000940  3a 0d 03 d4 16 dd f2 72  65 63 65 69 76 65 61 63  |:......receiveac|
00000950  6b 28 6d 65 73 73 29 0d  03 de 0d c8 8e 20 6d 65  |k(mess)...... me|
00000960  73 73 20 ca 0d 03 e8 05  cb 0d 03 f2 05 e1 0d 03  |ss .............|
00000970  fc 05 3a 0d 04 06 18 dd  f2 64 65 73 6b 74 6f 70  |..:......desktop|
00000980  73 61 76 65 28 66 69 6c  65 25 29 0d 04 10 07 ea  |save(file%).....|
00000990  20 85 0d 04 1a 3b ee 20  85 20 ea 20 62 25 21 31  | ....;. . . b%!1|
000009a0  32 3d 62 25 21 38 3a c8  99 20 22 57 69 6d 70 5f  |2=b%!8:.. "Wimp_|
000009b0  53 65 6e 64 4d 65 73 73  61 67 65 22 2c 31 39 2c  |SendMessage",19,|
000009c0  62 25 2c 62 25 21 34 3a  f7 20 85 3a e1 0d 04 24  |b%,b%!4:. .:...$|
000009d0  40 f4 20 54 68 65 20 61  62 6f 76 65 20 6c 69 6e  |@. The above lin|
000009e0  65 20 61 63 6b 6e 6f 77  6c 65 64 67 65 73 20 74  |e acknowledges t|
000009f0  68 65 20 6d 65 73 73 61  67 65 20 69 66 20 61 6e  |he message if an|
00000a00  20 65 72 72 6f 72 20 6f  63 63 75 72 73 0d 04 2e  | error occurs...|
00000a10  20 f4 20 61 62 6f 72 74  69 6e 67 20 74 68 65 20  | . aborting the |
00000a20  64 65 73 6b 74 6f 70 20  73 61 76 65 2e 0d 04 38  |desktop save...8|
00000a30  1a d5 23 66 69 6c 65 25  2c 22 52 75 6e 20 22 2b  |..#file%,"Run "+|
00000a40  41 70 70 64 69 72 24 0d  04 42 05 e1 0d 04 4c 05  |Appdir$..B....L.|
00000a50  3a 0d 04 56 1a dd f2 6c  6f 61 64 66 69 6c 65 28  |:..V...loadfile(|
00000a60  66 69 6c 65 24 2c 74 79  70 65 29 0d 04 60 0d c8  |file$,type)..`..|
00000a70  8e 20 74 79 70 65 20 ca  0d 04 6a 05 cb 0d 04 74  |. type ...j....t|
00000a80  05 e1 0d 04 7e 05 3a 0d  04 88 2f f4 20 41 6e 79  |....~.:.../. Any|
00000a90  20 6d 65 73 73 61 67 65  73 20 74 6f 20 62 65 20  | messages to be |
00000aa0  72 65 63 65 69 76 65 64  20 4d 55 53 54 20 62 65  |received MUST be|
00000ab0  20 6e 6f 74 65 64 0d 04  92 0e dd f2 69 6e 69 74  | noted......init|
00000ac0  77 69 6d 70 0d 04 9c 21  de 20 6d 65 73 73 61 67  |wimp...!. messag|
00000ad0  65 6c 69 73 74 25 20 32  35 36 3a 6d 65 73 73 70  |elist% 256:messp|
00000ae0  74 72 25 3d 30 0d 04 a6  27 f2 6e 6f 74 65 6d 65  |tr%=0...'.noteme|
00000af0  73 73 61 67 65 28 26 35  30 32 29 3a f2 6e 6f 74  |ssage(&502):.not|
00000b00  65 6d 65 73 73 61 67 65  28 31 30 29 0d 04 b0 13  |emessage(10)....|
00000b10  f2 6e 6f 74 65 6d 65 73  73 61 67 65 28 30 29 0d  |.notemessage(0).|
00000b20  04 ba 55 c8 99 20 22 57  69 6d 70 5f 49 6e 69 74  |..U.. "Wimp_Init|
00000b30  69 61 6c 69 73 65 22 2c  33 38 37 2c 26 34 42 35  |ialise",387,&4B5|
00000b40  33 34 31 35 34 2c 41 70  70 6e 61 6d 65 24 2c 6d  |34154,Appname$,m|
00000b50  65 73 73 61 67 65 6c 69  73 74 25 20 b8 20 77 69  |essagelist% . wi|
00000b60  6d 70 76 65 72 73 69 6f  6e 2c 74 61 73 6b 68 61  |mpversion,taskha|
00000b70  6e 64 6c 65 0d 04 c4 47  69 6e 64 6c 25 3d 31 30  |ndle...Gindl%=10|
00000b80  32 34 3a 6d 65 6e 75 6c  25 3d 31 30 32 34 3a de  |24:menul%=1024:.|
00000b90  20 62 25 20 32 30 34 38  2c 69 6e 64 25 20 69 6e  | b% 2048,ind% in|
00000ba0  64 6c 25 2c 6d 65 6e 75  25 20 6d 65 6e 75 6c 25  |dl%,menu% menul%|
00000bb0  2c 77 73 70 63 25 20 26  38 30 30 0d 04 ce 0f 63  |,wspc% &800....c|
00000bc0  75 72 6d 65 6e 75 25 3d  2d 31 0d 04 d8 11 f2 6f  |urmenu%=-1.....o|
00000bd0  70 65 6e 6d 65 73 73 61  67 65 73 0d 04 e2 30 f4  |penmessages...0.|
00000be0  20 73 70 72 69 74 65 73  25 3d 46 4e 6c 6f 61 64  | sprites%=FNload|
00000bf0  73 70 72 69 74 65 73 28  41 70 70 64 69 72 24 2b  |sprites(Appdir$+|
00000c00  22 2e 53 70 72 69 74 65  73 22 29 0d 04 ec 24 69  |".Sprites")...$i|
00000c10  6e 66 6f 62 6f 78 25 3d  a4 6c 6f 61 64 74 65 6d  |nfobox%=.loadtem|
00000c20  70 6c 61 74 65 28 22 49  6e 66 6f 22 2c 31 29 0d  |plate("Info",1).|
00000c30  04 f6 28 70 61 72 65 6e  74 77 69 6e 25 3d a4 6c  |..(parentwin%=.l|
00000c40  6f 61 64 74 65 6d 70 6c  61 74 65 28 22 50 61 72  |oadtemplate("Par|
00000c50  65 6e 74 22 2c 31 29 0d  05 00 26 63 68 69 6c 64  |ent",1)...&child|
00000c60  77 69 6e 25 3d a4 6c 6f  61 64 74 65 6d 70 6c 61  |win%=.loadtempla|
00000c70  74 65 28 22 43 68 69 6c  64 22 2c 31 29 0d 05 0a  |te("Child",1)...|
00000c80  25 f2 73 65 74 69 63 6f  6e 74 65 78 74 28 69 6e  |%.seticontext(in|
00000c90  66 6f 62 6f 78 25 2c 31  2c 41 70 70 6e 61 6d 65  |fobox%,1,Appname|
00000ca0  24 29 0d 05 14 26 f2 73  65 74 69 63 6f 6e 74 65  |$)...&.seticonte|
00000cb0  78 74 28 69 6e 66 6f 62  6f 78 25 2c 32 2c 6c 6f  |xt(infobox%,2,lo|
00000cc0  6e 67 6e 61 6d 65 24 29  0d 05 1e 25 f2 73 65 74  |ngname$)...%.set|
00000cd0  69 63 6f 6e 74 65 78 74  28 69 6e 66 6f 62 6f 78  |icontext(infobox|
00000ce0  25 2c 34 2c 76 65 72 73  69 6f 6e 24 29 0d 05 28  |%,4,version$)..(|
00000cf0  3a 69 62 68 61 6e 64 6c  65 3d a4 43 72 65 61 74  |:ibhandle=.Creat|
00000d00  65 49 63 6f 6e 42 61 72  49 63 6f 6e 28 22 21 22  |eIconBarIcon("!"|
00000d10  2b 41 70 70 6e 61 6d 65  24 2c 73 68 6f 72 74 6e  |+Appname$,shortn|
00000d20  61 6d 65 24 2c 31 29 0d  05 32 38 69 62 6d 65 6e  |ame$,1)..28ibmen|
00000d30  75 25 3d a4 63 72 65 61  74 65 6d 65 6e 75 28 41  |u%=.createmenu(A|
00000d40  70 70 6e 61 6d 65 24 2b  22 7c 49 6e 66 6f 5d 3e  |ppname$+"|Info]>|
00000d50  69 6e 66 6f 62 6f 78 25  7c 51 75 69 74 22 29 0d  |infobox%|Quit").|
00000d60  05 3c 17 69 62 6f 70 74  69 6f 6e 73 25 3d 6f 70  |.<.iboptions%=op|
00000d70  74 69 6f 6e 73 25 0d 05  46 05 e1 0d 05 50 05 3a  |tions%..F....P.:|
00000d80  0d 05 5a 0e dd f2 69 6e  69 74 70 72 6f 67 0d 05  |..Z...initprog..|
00000d90  64 05 e1 0d 05 6e 05 3a  0d 05 78 17 dd f2 48 65  |d....n.:..x...He|
00000da0  6c 70 28 77 69 6e 2c 69  63 6f 6e 2c 74 6f 29 0d  |lp(win,icon,to).|
00000db0  05 82 21 f7 20 8d 74 60  45 3a f2 72 65 61 64 68  |..!. .t`E:.readh|
00000dc0  65 6c 70 28 77 69 6e 2c  69 63 6f 6e 2c 74 6f 29  |elp(win,icon,to)|
00000dd0  0d 05 8c 05 e1 0d 05 96  0d f4 20 57 69 6e 64 6f  |.......... Windo|
00000de0  77 73 0d 05 a0 1a dc 20  69 6e 66 6f 62 6f 78 25  |ws..... infobox%|
00000df0  2c 22 3e 48 49 6e 66 6f  62 6f 78 22 0d 05 aa 14  |,">HInfobox"....|
00000e00  dc 20 33 2c 22 3e 48 49  6e 66 6f 62 6f 78 33 22  |. 3,">HInfobox3"|
00000e10  0d 05 b4 14 dc 20 34 2c  22 3e 48 49 6e 66 6f 62  |..... 4,">HInfob|
00000e20  6f 78 34 22 0d 05 be 14  dc 20 2d 32 2c 22 3e 48  |ox4"..... -2,">H|
00000e30  49 63 6f 6e 62 61 72 22  0d 05 c8 0b dc 20 2d 31  |Iconbar"..... -1|
00000e40  2c 2d 31 0d 05 d2 0b f4  20 4d 65 6e 75 73 0d 05  |,-1..... Menus..|
00000e50  dc 11 dc 20 2d 32 2c 2d  32 2c 2d 32 2c 2d 32 0d  |... -2,-2,-2,-2.|
00000e60  05 e6 05 3a 0d 05 f0 13  dd f2 46 65 74 63 68 50  |...:......FetchP|
00000e70  61 67 65 28 66 24 29 0d  05 fa 3c f4 20 58 55 52  |age(f$)...<. XUR|
00000e80  49 5f 44 69 73 70 61 74  63 68 20 2d 20 74 68 69  |I_Dispatch - thi|
00000e90  73 20 70 72 6f 74 6f 63  6f 6c 20 69 73 20 73 74  |s protocol is st|
00000ea0  69 6c 6c 20 62 65 69 6e  67 20 64 65 63 69 64 65  |ill being decide|
00000eb0  64 20 21 0d 06 04 18 c8  99 20 26 36 45 33 38 31  |d !...... &6E381|
00000ec0  2c 25 30 30 30 2c 66 24  2b bd 30 0d 06 0e 05 e1  |,%000,f$+.0.....|
00000ed0  0d ff                                             |..|
00000ed2