� > <WimpLib$Dir>.Wimp4
� Window manager routines
� Part 4: menus and mouse
(� Walther Schoonenberg
2:
<� �do_menu(block%)
Fmenu%=block%
P� menu%=iconmenu% �
ZA  ș "Wimp_CreateMenu",,block%,mousex%-64,96+iconmenu_max%*44
d�
n8  ș "Wimp_CreateMenu",,block%,mousex%-32,mousey%+16
x�
��
�:
�� �menu_select
�� menu$,adjust%
�;ș "Wimp_GetPointerInfo",,block%:adjust%=(block%!8 � 1)
�5ș "Wimp_DecodeMenu",,menu%,q%,�200," ")�,,,menu$
�*�menu(menu$):� adjust% �do_menu(menu%)
��
�:
�%� �create_menu_level(menu%,text$)
�<� newtext$,title$,ptr%,shade%,tick%,dotted%,submenu%,mb%
�
level%+=1
�'mb%=menu%+(level%-1)*menublocksize%

 title$=�text$,�text$,",")-1)

text$=�text$,�text$,",")+1)

"$mb%=�title$,11): � menu title

">mb%?12=tfcol:mb%?13=2:mb%?14=wfcol:mb%?15=wbcol: � colours

,(mb%!16=width%: � width of menu items

6%mb%!20=44: � height of menu items

@'mb%!24=0: � vert. gap between items

J� �text$,1)<>"," text$+=","

T)ptr%=mb%+28: � start menu items block

^�

h  shade%=0

r
  tick%=0

|  dotted%=0

�  submenu%=-1

�4  � �text$,1)="<" shade%=&400000:text$=�text$,2)

�-  � �text$,1)=">" tick%=1:text$=�text$,2)

�/  � �text$,1)=":" dotted%=2:text$=�text$,2)

�4  � �text$,1)="!" submenu%=info%:text$=�text$,2)

�  � �text$,1)="(" �

�    text$=�text$,2)

�0    newtext$=menu$(�(�text$,�text$,")")-1)))

�#    text$=�text$,�text$,")")+1)

�3    submenu%=�create_menu_level(menu%,newtext$)

�  �

�+  $(ptr%+12)=��text$,�text$,",")-1),12)

�!  text$=�text$,�text$,",")+1)
1  ptr%!0=tick% � dotted% � (&80 � (text$=""))
  ptr%!4=submenu%
J  � shade% ptr%!8=&400000 � &010021 � 7<<28 � 0<<24 � ptr%!8=&07000021
&  ptr%+=24
0� text$=""
:=mb%
D:
N&� �create_menu(menu%,width%,text$)
X� crap%
b2level%=0:crap%=�create_menu_level(menu%,text$)
l�
v:
�.� �mouse_click(x%,y%,b%,handle%,icon%,ob%)
�mousex%=x%:mousey%=y%
� �mouse(b%,handle%,icon%,ob%)
��
�

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 34 0d 00 14 1d f4  |$Dir>.Wimp4.....|
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 1d f4 20 50 61  |routines..... Pa|
00000040  72 74 20 34 3a 20 6d 65  6e 75 73 20 61 6e 64 20  |rt 4: menus and |
00000050  6d 6f 75 73 65 0d 00 28  1a f4 20 57 61 6c 74 68  |mouse..(.. Walth|
00000060  65 72 20 53 63 68 6f 6f  6e 65 6e 62 65 72 67 0d  |er Schoonenberg.|
00000070  00 32 05 3a 0d 00 3c 16  dd 20 f2 64 6f 5f 6d 65  |.2.:..<.. .do_me|
00000080  6e 75 28 62 6c 6f 63 6b  25 29 0d 00 46 10 6d 65  |nu(block%)..F.me|
00000090  6e 75 25 3d 62 6c 6f 63  6b 25 0d 00 50 17 e7 20  |nu%=block%..P.. |
000000a0  6d 65 6e 75 25 3d 69 63  6f 6e 6d 65 6e 75 25 20  |menu%=iconmenu% |
000000b0  8c 0d 00 5a 41 20 20 c8  99 20 22 57 69 6d 70 5f  |...ZA  .. "Wimp_|
000000c0  43 72 65 61 74 65 4d 65  6e 75 22 2c 2c 62 6c 6f  |CreateMenu",,blo|
000000d0  63 6b 25 2c 6d 6f 75 73  65 78 25 2d 36 34 2c 39  |ck%,mousex%-64,9|
000000e0  36 2b 69 63 6f 6e 6d 65  6e 75 5f 6d 61 78 25 2a  |6+iconmenu_max%*|
000000f0  34 34 0d 00 64 05 cc 0d  00 6e 38 20 20 c8 99 20  |44..d....n8  .. |
00000100  22 57 69 6d 70 5f 43 72  65 61 74 65 4d 65 6e 75  |"Wimp_CreateMenu|
00000110  22 2c 2c 62 6c 6f 63 6b  25 2c 6d 6f 75 73 65 78  |",,block%,mousex|
00000120  25 2d 33 32 2c 6d 6f 75  73 65 79 25 2b 31 36 0d  |%-32,mousey%+16.|
00000130  00 78 05 cd 0d 00 82 05  e1 0d 00 8c 05 3a 0d 00  |.x...........:..|
00000140  96 12 dd 20 f2 6d 65 6e  75 5f 73 65 6c 65 63 74  |... .menu_select|
00000150  0d 00 a0 13 ea 20 6d 65  6e 75 24 2c 61 64 6a 75  |..... menu$,adju|
00000160  73 74 25 0d 00 aa 3b c8  99 20 22 57 69 6d 70 5f  |st%...;.. "Wimp_|
00000170  47 65 74 50 6f 69 6e 74  65 72 49 6e 66 6f 22 2c  |GetPointerInfo",|
00000180  2c 62 6c 6f 63 6b 25 3a  61 64 6a 75 73 74 25 3d  |,block%:adjust%=|
00000190  28 62 6c 6f 63 6b 25 21  38 20 80 20 31 29 0d 00  |(block%!8 . 1)..|
000001a0  b4 35 c8 99 20 22 57 69  6d 70 5f 44 65 63 6f 64  |.5.. "Wimp_Decod|
000001b0  65 4d 65 6e 75 22 2c 2c  6d 65 6e 75 25 2c 71 25  |eMenu",,menu%,q%|
000001c0  2c c4 32 30 30 2c 22 20  22 29 b8 2c 2c 2c 6d 65  |,.200," ").,,,me|
000001d0  6e 75 24 0d 00 be 2a f2  6d 65 6e 75 28 6d 65 6e  |nu$...*.menu(men|
000001e0  75 24 29 3a e7 20 61 64  6a 75 73 74 25 20 f2 64  |u$):. adjust% .d|
000001f0  6f 5f 6d 65 6e 75 28 6d  65 6e 75 25 29 0d 00 c8  |o_menu(menu%)...|
00000200  05 e1 0d 00 d2 05 3a 0d  00 dc 25 dd 20 a4 63 72  |......:...%. .cr|
00000210  65 61 74 65 5f 6d 65 6e  75 5f 6c 65 76 65 6c 28  |eate_menu_level(|
00000220  6d 65 6e 75 25 2c 74 65  78 74 24 29 0d 00 e6 3c  |menu%,text$)...<|
00000230  ea 20 6e 65 77 74 65 78  74 24 2c 74 69 74 6c 65  |. newtext$,title|
00000240  24 2c 70 74 72 25 2c 73  68 61 64 65 25 2c 74 69  |$,ptr%,shade%,ti|
00000250  63 6b 25 2c 64 6f 74 74  65 64 25 2c 73 75 62 6d  |ck%,dotted%,subm|
00000260  65 6e 75 25 2c 6d 62 25  0d 00 f0 0d 6c 65 76 65  |enu%,mb%....leve|
00000270  6c 25 2b 3d 31 0d 00 fa  27 6d 62 25 3d 6d 65 6e  |l%+=1...'mb%=men|
00000280  75 25 2b 28 6c 65 76 65  6c 25 2d 31 29 2a 6d 65  |u%+(level%-1)*me|
00000290  6e 75 62 6c 6f 63 6b 73  69 7a 65 25 0d 01 04 20  |nublocksize%... |
000002a0  74 69 74 6c 65 24 3d c0  74 65 78 74 24 2c a7 74  |title$=.text$,.t|
000002b0  65 78 74 24 2c 22 2c 22  29 2d 31 29 0d 01 0e 1f  |ext$,",")-1)....|
000002c0  74 65 78 74 24 3d c1 74  65 78 74 24 2c a7 74 65  |text$=.text$,.te|
000002d0  78 74 24 2c 22 2c 22 29  2b 31 29 0d 01 18 22 24  |xt$,",")+1)..."$|
000002e0  6d 62 25 3d c0 74 69 74  6c 65 24 2c 31 31 29 3a  |mb%=.title$,11):|
000002f0  20 f4 20 6d 65 6e 75 20  74 69 74 6c 65 0d 01 22  | . menu title.."|
00000300  3e 6d 62 25 3f 31 32 3d  74 66 63 6f 6c 3a 6d 62  |>mb%?12=tfcol:mb|
00000310  25 3f 31 33 3d 32 3a 6d  62 25 3f 31 34 3d 77 66  |%?13=2:mb%?14=wf|
00000320  63 6f 6c 3a 6d 62 25 3f  31 35 3d 77 62 63 6f 6c  |col:mb%?15=wbcol|
00000330  3a 20 f4 20 63 6f 6c 6f  75 72 73 0d 01 2c 28 6d  |: . colours..,(m|
00000340  62 25 21 31 36 3d 77 69  64 74 68 25 3a 20 f4 20  |b%!16=width%: . |
00000350  77 69 64 74 68 20 6f 66  20 6d 65 6e 75 20 69 74  |width of menu it|
00000360  65 6d 73 0d 01 36 25 6d  62 25 21 32 30 3d 34 34  |ems..6%mb%!20=44|
00000370  3a 20 f4 20 68 65 69 67  68 74 20 6f 66 20 6d 65  |: . height of me|
00000380  6e 75 20 69 74 65 6d 73  0d 01 40 27 6d 62 25 21  |nu items..@'mb%!|
00000390  32 34 3d 30 3a 20 f4 20  76 65 72 74 2e 20 67 61  |24=0: . vert. ga|
000003a0  70 20 62 65 74 77 65 65  6e 20 69 74 65 6d 73 0d  |p between items.|
000003b0  01 4a 1f e7 20 c2 74 65  78 74 24 2c 31 29 3c 3e  |.J.. .text$,1)<>|
000003c0  22 2c 22 20 74 65 78 74  24 2b 3d 22 2c 22 0d 01  |"," text$+=","..|
000003d0  54 29 70 74 72 25 3d 6d  62 25 2b 32 38 3a 20 f4  |T)ptr%=mb%+28: .|
000003e0  20 73 74 61 72 74 20 6d  65 6e 75 20 69 74 65 6d  | start menu item|
000003f0  73 20 62 6c 6f 63 6b 0d  01 5e 05 f5 0d 01 68 0e  |s block..^....h.|
00000400  20 20 73 68 61 64 65 25  3d 30 0d 01 72 0d 20 20  |  shade%=0..r.  |
00000410  74 69 63 6b 25 3d 30 0d  01 7c 0f 20 20 64 6f 74  |tick%=0..|.  dot|
00000420  74 65 64 25 3d 30 0d 01  86 11 20 20 73 75 62 6d  |ted%=0....  subm|
00000430  65 6e 75 25 3d 2d 31 0d  01 90 34 20 20 e7 20 c0  |enu%=-1...4  . .|
00000440  74 65 78 74 24 2c 31 29  3d 22 3c 22 20 73 68 61  |text$,1)="<" sha|
00000450  64 65 25 3d 26 34 30 30  30 30 30 3a 74 65 78 74  |de%=&400000:text|
00000460  24 3d c1 74 65 78 74 24  2c 32 29 0d 01 9a 2d 20  |$=.text$,2)...- |
00000470  20 e7 20 c0 74 65 78 74  24 2c 31 29 3d 22 3e 22  | . .text$,1)=">"|
00000480  20 74 69 63 6b 25 3d 31  3a 74 65 78 74 24 3d c1  | tick%=1:text$=.|
00000490  74 65 78 74 24 2c 32 29  0d 01 a4 2f 20 20 e7 20  |text$,2).../  . |
000004a0  c0 74 65 78 74 24 2c 31  29 3d 22 3a 22 20 64 6f  |.text$,1)=":" do|
000004b0  74 74 65 64 25 3d 32 3a  74 65 78 74 24 3d c1 74  |tted%=2:text$=.t|
000004c0  65 78 74 24 2c 32 29 0d  01 ae 34 20 20 e7 20 c0  |ext$,2)...4  . .|
000004d0  74 65 78 74 24 2c 31 29  3d 22 21 22 20 73 75 62  |text$,1)="!" sub|
000004e0  6d 65 6e 75 25 3d 69 6e  66 6f 25 3a 74 65 78 74  |menu%=info%:text|
000004f0  24 3d c1 74 65 78 74 24  2c 32 29 0d 01 b8 17 20  |$=.text$,2).... |
00000500  20 e7 20 c0 74 65 78 74  24 2c 31 29 3d 22 28 22  | . .text$,1)="("|
00000510  20 8c 0d 01 c2 17 20 20  20 20 74 65 78 74 24 3d  | .....    text$=|
00000520  c1 74 65 78 74 24 2c 32  29 0d 01 cc 30 20 20 20  |.text$,2)...0   |
00000530  20 6e 65 77 74 65 78 74  24 3d 6d 65 6e 75 24 28  | newtext$=menu$(|
00000540  bb 28 c0 74 65 78 74 24  2c a7 74 65 78 74 24 2c  |.(.text$,.text$,|
00000550  22 29 22 29 2d 31 29 29  29 0d 01 d6 23 20 20 20  |")")-1)))...#   |
00000560  20 74 65 78 74 24 3d c1  74 65 78 74 24 2c a7 74  | text$=.text$,.t|
00000570  65 78 74 24 2c 22 29 22  29 2b 31 29 0d 01 e0 33  |ext$,")")+1)...3|
00000580  20 20 20 20 73 75 62 6d  65 6e 75 25 3d a4 63 72  |    submenu%=.cr|
00000590  65 61 74 65 5f 6d 65 6e  75 5f 6c 65 76 65 6c 28  |eate_menu_level(|
000005a0  6d 65 6e 75 25 2c 6e 65  77 74 65 78 74 24 29 0d  |menu%,newtext$).|
000005b0  01 ea 07 20 20 cd 0d 01  f4 2b 20 20 24 28 70 74  |...  ....+  $(pt|
000005c0  72 25 2b 31 32 29 3d c0  c0 74 65 78 74 24 2c a7  |r%+12)=..text$,.|
000005d0  74 65 78 74 24 2c 22 2c  22 29 2d 31 29 2c 31 32  |text$,",")-1),12|
000005e0  29 0d 01 fe 21 20 20 74  65 78 74 24 3d c1 74 65  |)...!  text$=.te|
000005f0  78 74 24 2c a7 74 65 78  74 24 2c 22 2c 22 29 2b  |xt$,.text$,",")+|
00000600  31 29 0d 02 08 31 20 20  70 74 72 25 21 30 3d 74  |1)...1  ptr%!0=t|
00000610  69 63 6b 25 20 84 20 64  6f 74 74 65 64 25 20 84  |ick% . dotted% .|
00000620  20 28 26 38 30 20 80 20  28 74 65 78 74 24 3d 22  | (&80 . (text$="|
00000630  22 29 29 0d 02 12 15 20  20 70 74 72 25 21 34 3d  |"))....  ptr%!4=|
00000640  73 75 62 6d 65 6e 75 25  0d 02 1c 4a 20 20 e7 20  |submenu%...J  . |
00000650  73 68 61 64 65 25 20 70  74 72 25 21 38 3d 26 34  |shade% ptr%!8=&4|
00000660  30 30 30 30 30 20 84 20  26 30 31 30 30 32 31 20  |00000 . &010021 |
00000670  84 20 37 3c 3c 32 38 20  84 20 30 3c 3c 32 34 20  |. 7<<28 . 0<<24 |
00000680  8b 20 70 74 72 25 21 38  3d 26 30 37 30 30 30 30  |. ptr%!8=&070000|
00000690  32 31 0d 02 26 0e 20 20  70 74 72 25 2b 3d 32 34  |21..&.  ptr%+=24|
000006a0  0d 02 30 0e fd 20 74 65  78 74 24 3d 22 22 0d 02  |..0.. text$=""..|
000006b0  3a 08 3d 6d 62 25 0d 02  44 05 3a 0d 02 4e 26 dd  |:.=mb%..D.:..N&.|
000006c0  20 f2 63 72 65 61 74 65  5f 6d 65 6e 75 28 6d 65  | .create_menu(me|
000006d0  6e 75 25 2c 77 69 64 74  68 25 2c 74 65 78 74 24  |nu%,width%,text$|
000006e0  29 0d 02 58 0b ea 20 63  72 61 70 25 0d 02 62 32  |)..X.. crap%..b2|
000006f0  6c 65 76 65 6c 25 3d 30  3a 63 72 61 70 25 3d a4  |level%=0:crap%=.|
00000700  63 72 65 61 74 65 5f 6d  65 6e 75 5f 6c 65 76 65  |create_menu_leve|
00000710  6c 28 6d 65 6e 75 25 2c  74 65 78 74 24 29 0d 02  |l(menu%,text$)..|
00000720  6c 05 e1 0d 02 76 05 3a  0d 02 80 2e dd 20 f2 6d  |l....v.:..... .m|
00000730  6f 75 73 65 5f 63 6c 69  63 6b 28 78 25 2c 79 25  |ouse_click(x%,y%|
00000740  2c 62 25 2c 68 61 6e 64  6c 65 25 2c 69 63 6f 6e  |,b%,handle%,icon|
00000750  25 2c 6f 62 25 29 0d 02  8a 19 6d 6f 75 73 65 78  |%,ob%)....mousex|
00000760  25 3d 78 25 3a 6d 6f 75  73 65 79 25 3d 79 25 0d  |%=x%:mousey%=y%.|
00000770  02 94 20 f2 6d 6f 75 73  65 28 62 25 2c 68 61 6e  |.. .mouse(b%,han|
00000780  64 6c 65 25 2c 69 63 6f  6e 25 2c 6f 62 25 29 0d  |dle%,icon%,ob%).|
00000790  02 9e 05 e1 0d ff                                 |......|
00000796