� > <WimpLib$Dir>.Wimp5
� Window manager routines
� Part 5: templates
(� Walther Schoonenberg
2:
<"� �open_template(name$,maxws%)
F"� ws% maxws%:wsend%=ws%+maxws%
P!ș "Wimp_OpenTemplate",,name$
Z+� � ș "Wimp_CloseTemplate":�errorbox:�
d�
n:
x� �load_template(name$)
�� c%,handle%
�� s% 12:$s%=name$
�Cș "Wimp_LoadTemplate",,block%,ws%,wsend%,-1,s%,0 � ,,ws%,,,,c%
�3� c%=0 �fatal("Template "+name$+" not found"):�
�,ș "Wimp_CreateWindow",,block% � handle%
�=handle%
�:
�� �close_template
�ș "Wimp_CloseTemplate"
�� � �errorbox:�
��
�

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 35 0d 00 14 1d f4  |$Dir>.Wimp5.....|
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 17 f4 20 50 61  |routines..... Pa|
00000040  72 74 20 35 3a 20 74 65  6d 70 6c 61 74 65 73 0d  |rt 5: templates.|
00000050  00 28 1a f4 20 57 61 6c  74 68 65 72 20 53 63 68  |.(.. Walther Sch|
00000060  6f 6f 6e 65 6e 62 65 72  67 0d 00 32 05 3a 0d 00  |oonenberg..2.:..|
00000070  3c 22 dd 20 f2 6f 70 65  6e 5f 74 65 6d 70 6c 61  |<". .open_templa|
00000080  74 65 28 6e 61 6d 65 24  2c 6d 61 78 77 73 25 29  |te(name$,maxws%)|
00000090  0d 00 46 22 de 20 77 73  25 20 6d 61 78 77 73 25  |..F". ws% maxws%|
000000a0  3a 77 73 65 6e 64 25 3d  77 73 25 2b 6d 61 78 77  |:wsend%=ws%+maxw|
000000b0  73 25 0d 00 50 21 c8 99  20 22 57 69 6d 70 5f 4f  |s%..P!.. "Wimp_O|
000000c0  70 65 6e 54 65 6d 70 6c  61 74 65 22 2c 2c 6e 61  |penTemplate",,na|
000000d0  6d 65 24 0d 00 5a 2b ee  20 85 20 c8 99 20 22 57  |me$..Z+. . .. "W|
000000e0  69 6d 70 5f 43 6c 6f 73  65 54 65 6d 70 6c 61 74  |imp_CloseTemplat|
000000f0  65 22 3a f2 65 72 72 6f  72 62 6f 78 3a e0 0d 00  |e":.errorbox:...|
00000100  64 05 e1 0d 00 6e 05 3a  0d 00 78 1b dd 20 a4 6c  |d....n.:..x.. .l|
00000110  6f 61 64 5f 74 65 6d 70  6c 61 74 65 28 6e 61 6d  |oad_template(nam|
00000120  65 24 29 0d 00 82 10 ea  20 63 25 2c 68 61 6e 64  |e$)..... c%,hand|
00000130  6c 65 25 0d 00 8c 15 de  20 73 25 20 31 32 3a 24  |le%..... s% 12:$|
00000140  73 25 3d 6e 61 6d 65 24  0d 00 96 43 c8 99 20 22  |s%=name$...C.. "|
00000150  57 69 6d 70 5f 4c 6f 61  64 54 65 6d 70 6c 61 74  |Wimp_LoadTemplat|
00000160  65 22 2c 2c 62 6c 6f 63  6b 25 2c 77 73 25 2c 77  |e",,block%,ws%,w|
00000170  73 65 6e 64 25 2c 2d 31  2c 73 25 2c 30 20 b8 20  |send%,-1,s%,0 . |
00000180  2c 2c 77 73 25 2c 2c 2c  2c 63 25 0d 00 a0 33 e7  |,,ws%,,,,c%...3.|
00000190  20 63 25 3d 30 20 f2 66  61 74 61 6c 28 22 54 65  | c%=0 .fatal("Te|
000001a0  6d 70 6c 61 74 65 20 22  2b 6e 61 6d 65 24 2b 22  |mplate "+name$+"|
000001b0  20 6e 6f 74 20 66 6f 75  6e 64 22 29 3a e0 0d 00  | not found"):...|
000001c0  aa 2c c8 99 20 22 57 69  6d 70 5f 43 72 65 61 74  |.,.. "Wimp_Creat|
000001d0  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
000001e0  20 b8 20 68 61 6e 64 6c  65 25 0d 00 b4 0c 3d 68  | . handle%....=h|
000001f0  61 6e 64 6c 65 25 0d 00  be 05 3a 0d 00 c8 15 dd  |andle%....:.....|
00000200  20 f2 63 6c 6f 73 65 5f  74 65 6d 70 6c 61 74 65  | .close_template|
00000210  0d 00 d2 1b c8 99 20 22  57 69 6d 70 5f 43 6c 6f  |...... "Wimp_Clo|
00000220  73 65 54 65 6d 70 6c 61  74 65 22 0d 00 dc 13 ee  |seTemplate".....|
00000230  20 85 20 f2 65 72 72 6f  72 62 6f 78 3a e0 0d 00  | . .errorbox:...|
00000240  e6 05 e1 0d ff                                    |.....|
00000245