Home » Archimedes archive » Acorn User » AU 1998-08.adf » Freeware » PD/Xuen11/!Xuen/Resources/libs/Tooltip

PD/Xuen11/!Xuen/Resources/libs/Tooltip

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Acorn User » AU 1998-08.adf » Freeware
Filename: PD/Xuen11/!Xuen/Resources/libs/Tooltip
Read OK: ✔
File size: 18D5 bytes
Load address: 0000
Exec address: 0000
File contents
   10REM ***************************************************
   20
   30DEFPROCCreateToolTip
   40LOCAL XOffset%
   50REM Create the tooltip and dummy global windows
   60REM The tooltip window displays brief info about the
   70REM icon under the pointer.
   80REM The dummy window is needed to provide a 'bottom'
   90REM window for the window re-organisation tool to
  100REM start from.
  110
  120REM Create the tooltip window
  130Tip$="Hello"
  140XS%=(LEN(Tip$)*16)+20:YS%=40
  150SYS"Wimp_GetPointerInfo",,block%
  160REM Define screen position of tooltip
  170XOffset%=XS%/2
  180IF (XOffset%>32) XOffset%=32
  190X%=(!block%)-XOffset%
  200Y%=(block%!4)+24
  210PROCGetScreenSize
  220IF ((X%+XS%)>OS_MX%) X%=OS_MX%-XS%
  230IF (X%<0) X%=0
  240IF ((Y%+YS%)>OS_MY%) Y%=(block%!4)-(YS%+24)
  250REM IF ((Y%-YS%)<0) Y%=0
  260!block%=X%:block%!4=Y%:block%!8=X%+XS%:block%!12=Y%+YS%
  270XS%=(512*16)+20:YS%=40
  280block%!16=0:block%!20=0:REM Scroll offsets
  290block%!24=-1:block%!28=&80000050:REM Depth, window flags
  300block%!32=&00070207:block%!36=&120103:REM Colours
  310block%!40=0:block%!44=-YS%:block%!48=XS%:block%!52=0
  320block%!56=&19:block%!60=3<<12:REM Titlebar/workarea flags
  330block%!64=0:block%!68=0:REM Sprite area
  340$(block%+72)="XuenTip"+CHR$0
  350block%!84=1
  360REM Define 1 icon starting at block%!88
  370!tooltipicon%=0:REM Null validation string
  380$(tooltipicon%+4)=Tip$+CHR$0:REM Icon text
  390block%!88=4:REM Bounding box
  400block%!92=-40:REM Bounding box
  410block%!96=((512*16)+20):REM Bounding box of _largest_ tip
  420block%!100=0:REM Bounding box
  430block%!104=&17003101
  440block%!108=tooltipicon%+4
  450block%!112=tooltipicon%
  460block%!116=512:REM Buffer length
  470SYS"Wimp_CreateWindow",,block% TO whandle_tooltip%
  480XS%=(LEN(Tip$)*16)+20:YS%=40
  490SYS"Wimp_GetPointerInfo",,block%
  500REM Define screen position of tooltip
  510XOffset%=XS%/2
  520IF (XOffset%>32) XOffset%=32
  530X%=(!block%)-XOffset%
  540PROCGetScreenSize
  550IF ((X%+XS%)>OS_MX%) X%=OS_MX%-XS%
  560IF (X%<0) X%=0
  570IF ((Y%+YS%)>OS_MY%) Y%=(block%!4)-(YS%+24)
  580Y%=-1024
  590REM IF ((Y%-YS%)<0) Y%=0
  600REM Get Tooltip window state
  610!block%=whandle_tooltip%
  620SYS"Wimp_GetWindowState",,block%
  630block%!4=X%:block%!8=-1024:block%!12=X%+XS%:block%!16=-1024
  640block%!20=0:block%!24=0:REM Scroll offsets
  650REM block%!28=-1
  660SYS"Wimp_OpenWindow",,block%
  670ToolTip%=0
  680
  690
  700
  710REM Create the dummy back window
  720REM Define screen position of tooltip
  730XS%=(LEN(Tip$)*16)+20:YS%=40
  740XOffset%=XS%/2
  750IF (XOffset%>32) XOffset%=32
  760X%=64
  770Y%=-1024
  780!block%=X%:block%!4=Y%:block%!8=X%+XS%:block%!12=Y%+YS%
  790XS%=(512*16)+20:YS%=40
  800block%!16=0:block%!20=0:REM Scroll offsets
  810block%!24=-1:block%!28=&80000050:REM Depth, window flags
  820block%!32=&00070207:block%!36=&120103:REM Colours
  830block%!40=0:block%!44=-YS%:block%!48=XS%:block%!52=0
  840block%!56=&19:block%!60=3<<12:REM Titlebar/workarea flags
  850block%!64=0:block%!68=0:REM Sprite area
  860$(block%+72)="XuenDummy"+CHR$0
  870block%!84=1
  880REM Define 1 icon starting at block%!88
  890!tooltipicon%=0:REM Null validation string
  900$(tooltipicon%+4)=Tip$+CHR$0:REM Icon text
  910block%!88=4:REM Bounding box
  920block%!92=-32:REM Bounding box
  930block%!96=((512*16)+20):REM Bounding box of _largest_ tip
  940block%!100=-8:REM Bounding box
  950block%!104=&17003101
  960block%!108=tooltipicon%+4
  970block%!112=tooltipicon%
  980block%!116=512:REM Buffer length
  990SYS"Wimp_CreateWindow",,block% TO whandle_dummyback%
 1000REM Get Tooltip window state
 1010!block%=whandle_dummyback%
 1020SYS"Wimp_GetWindowState",,block%
 1030block%!28=-2
 1040SYS"Wimp_OpenWindow",,block%
 1050after%=whandle_dummyback%:cascade%=0
 1060
 1070ENDPROC
 1080
 1090DEFPROCDestroyToolTip
 1100!block%=whandle_tooltip%
 1110SYS"Wimp_CloseWindow",,block%
 1120SYS"Wimp_DeleteWindow",,block%
 1130
 1140!block%=whandle_dummyback%
 1150SYS"Wimp_CloseWindow",,block%
 1160SYS"Wimp_DeleteWindow",,block%
 1170ENDPROC
 1180
 1190DEFPROCUpdateToolTipTime
 1200LOCAL XOffset%, OldTip$
 1210OldTip$=Tip$
 1220PROCGetDate
 1230Tip$=AppDate$
 1240IF (OldTip$<>Tip$) THEN
 1250REM IF (TipID%=1) Tip$="after% = &"+STR$~(after%)
 1260XS%=(LEN(Tip$)*16)+20:YS%=40
 1270SYS"Wimp_GetPointerInfo",,block2%
 1280REM Adjust Tooltip window state
 1290!block2%=whandle_tooltip%
 1300SYS"Wimp_GetWindowState",,block2%
 1310X%=block2%!4
 1320Y%=block2%!8
 1330!block2%=whandle_tooltip%
 1340block2%!4=X%:block2%!8=Y%:block2%!12=X%+XS%:block2%!16=Y%+YS%
 1350block2%!20=0:block2%!24=0:REM Scroll offsets
 1360block2%!28=-1
 1370$(tooltipicon%+4)=Tip$+CHR$0:REM Icon text
 1380REMSYS"Wimp_OpenWindow",,block2%
 1390REM Update icon
 1400!block2%=whandle_tooltip%
 1410block2%!4=0
 1420SYS"Wimp_GetIconState",,block2%
 1430block2%!8=0:REM Don't change anything,
 1440block2%!12=0:REM Just signal an update ...
 1450SYS"Wimp_SetIconState",,block2%
 1460ENDIF
 1470ENDPROC
 1480
 1490DEFPROCOpenToolTip(TipID%)
 1500LOCAL XOffset%, RandTipID%, RSeed%
 1510IF (TipID%=ToolTip%) ENDPROC
 1520IF (ToolTip%>0) PROCCloseToolTip
 1530REM Create ToolTip Window
 1540IF (TipID%=1) THEN
 1550 PROCGetDate
 1560 Tip$=AppDate$
 1570ENDIF
 1580IF (TipID%=2) THEN
 1590 REM Tip$="Click for more ..."
 1600 Tip$=""
 1610 RandTipID%=RND(RandTipMax%)
 1620 Tip$=Tip$+RandTip$(RandTipID%) 
 1630ENDIF
 1640IF (TipID%=3) Tip$="currentwindow% = "+STR$(currentwindow%)
 1650IF (TipID%=4) Tip$=GlobalToolTip$
 1660REM IF (TipID%=1) Tip$="after% = &"+STR$~(after%)
 1670XS%=(LEN(Tip$)*16)+20:YS%=40
 1680SYS"Wimp_GetPointerInfo",,block%
 1690REM Define screen position of tooltip
 1700XOffset%=XS%/2
 1710IF (XOffset%>32) XOffset%=32
 1720X%=(!block%)-XOffset%
 1730Y%=(block%!4)+24
 1740PROCGetScreenSize
 1750IF ((X%+XS%)>OS_MX%) X%=OS_MX%-XS%
 1760IF (X%<0) X%=0
 1770IF ((Y%+YS%)>OS_MY%) Y%=(block%!4)-(YS%+24)
 1780REM IF ((Y%-YS%)<0) Y%=0
 1790
 1800REM Adjust Tooltip window state
 1810!block%=whandle_tooltip%
 1820SYS"Wimp_GetWindowState",,block%
 1830!block%=whandle_tooltip%
 1840block%!4=X%:block%!8=Y%:block%!12=X%+XS%:block%!16=Y%+YS%
 1850block%!20=0:block%!24=0:REM Scroll offsets
 1860block%!28=-1
 1870$(tooltipicon%+4)=Tip$+CHR$0:REM Icon text
 1880SYS"Wimp_OpenWindow",,block%
 1890ToolTip%=TipID%
 1900tooltip_timer%=TIME
 1910ENDPROC
 1920
 1930DEFPROCCloseToolTip
 1940IF (ToolTip%=0) ENDPROC
 1950!block%=whandle_tooltip%
 1960SYS"Wimp_GetWindowState",,block%
 1970!block%=whandle_tooltip%
 1980block%!8=-1024
 1990block%!16=-1024
 2000SYS"Wimp_OpenWindow",,block%
 2010REMSYS"Wimp_CloseWindow",,block%
 2020REM SYS"Wimp_DeleteWindow",,block%
 2030ToolTip%=0
 2040ENDPROC
 2050
 2060DEFPROCPersistCloseToolTip
 2070IF (ToolTip%=0) ENDPROC
 2080OldToolTip%=ToolTip%
 2090REM!block%=whandle_tooltip%
 2100REMSYS"Wimp_CloseWindow",,block%
 2110!block%=whandle_tooltip%
 2120SYS"Wimp_GetWindowState",,block%
 2130!block%=whandle_tooltip%
 2140block%!8=-1024
 2150block%!16=-1024
 2160SYS"Wimp_OpenWindow",,block%
 2170REM SYS"Wimp_DeleteWindow",,block%
 2180ToolTip%=0
 2190ENDPROC
 2200


9� ***************************************************

��CreateToolTip
(� XOffset%
21� Create the tooltip and dummy global windows
<6� The tooltip window displays brief info about the
F� icon under the pointer.
P6� The dummy window is needed to provide a 'bottom'
Z3� window for the window re-organisation tool to
d� start from.
n
x� Create the tooltip window
�Tip$="Hello"
�XS%=(�(Tip$)*16)+20:YS%=40
�#ș"Wimp_GetPointerInfo",,block%
�'� Define screen position of tooltip
�XOffset%=XS%/2
�� (XOffset%>32) XOffset%=32
�X%=(!block%)-XOffset%
�Y%=(block%!4)+24
��GetScreenSize
�%� ((X%+XS%)>OS_MX%) X%=OS_MX%-XS%
�� (X%<0) X%=0
�.� ((Y%+YS%)>OS_MY%) Y%=(block%!4)-(YS%+24)
�� IF ((Y%-YS%)<0) Y%=0
;!block%=X%:block%!4=Y%:block%!8=X%+XS%:block%!12=Y%+YS%
XS%=(512*16)+20:YS%=40
,block%!16=0:block%!20=0:� Scroll offsets
":block%!24=-1:block%!28=&80000050:� Depth, window flags
,3block%!32=&00070207:block%!36=&120103:� Colours
68block%!40=0:block%!44=-YS%:block%!48=XS%:block%!52=0
@;block%!56=&19:block%!60=3<<12:� Titlebar/workarea flags
J)block%!64=0:block%!68=0:� Sprite area
T$(block%+72)="XuenTip"+�0
^block%!84=1
h)� Define 1 icon starting at block%!88
r,!tooltipicon%=0:� Null validation string
|)$(tooltipicon%+4)=Tip$+�0:� Icon text
�block%!88=4:� Bounding box
� block%!92=-40:� Bounding box
�;block%!96=((512*16)+20):� Bounding box of _largest_ tip
�block%!100=0:� Bounding box
�block%!104=&17003101
�block%!108=tooltipicon%+4
�block%!112=tooltipicon%
�"block%!116=512:� Buffer length
�4ș"Wimp_CreateWindow",,block% � whandle_tooltip%
�XS%=(�(Tip$)*16)+20:YS%=40
�#ș"Wimp_GetPointerInfo",,block%
�'� Define screen position of tooltip
�XOffset%=XS%/2
� (XOffset%>32) XOffset%=32
X%=(!block%)-XOffset%
�GetScreenSize
&%� ((X%+XS%)>OS_MX%) X%=OS_MX%-XS%
0� (X%<0) X%=0
:.� ((Y%+YS%)>OS_MY%) Y%=(block%!4)-(YS%+24)
DY%=-1024
N� IF ((Y%-YS%)<0) Y%=0
X� Get Tooltip window state
b!block%=whandle_tooltip%
l#ș"Wimp_GetWindowState",,block%
v?block%!4=X%:block%!8=-1024:block%!12=X%+XS%:block%!16=-1024
�,block%!20=0:block%!24=0:� Scroll offsets
�� block%!28=-1
�ș"Wimp_OpenWindow",,block%
�ToolTip%=0
�
�
�
�"� Create the dummy back window
�'� Define screen position of tooltip
�XS%=(�(Tip$)*16)+20:YS%=40
�XOffset%=XS%/2
�� (XOffset%>32) XOffset%=32
�	X%=64
Y%=-1024
;!block%=X%:block%!4=Y%:block%!8=X%+XS%:block%!12=Y%+YS%
XS%=(512*16)+20:YS%=40
 ,block%!16=0:block%!20=0:� Scroll offsets
*:block%!24=-1:block%!28=&80000050:� Depth, window flags
43block%!32=&00070207:block%!36=&120103:� Colours
>8block%!40=0:block%!44=-YS%:block%!48=XS%:block%!52=0
H;block%!56=&19:block%!60=3<<12:� Titlebar/workarea flags
R)block%!64=0:block%!68=0:� Sprite area
\$(block%+72)="XuenDummy"+�0
fblock%!84=1
p)� Define 1 icon starting at block%!88
z,!tooltipicon%=0:� Null validation string
�)$(tooltipicon%+4)=Tip$+�0:� Icon text
�block%!88=4:� Bounding box
� block%!92=-32:� Bounding box
�;block%!96=((512*16)+20):� Bounding box of _largest_ tip
� block%!100=-8:� Bounding box
�block%!104=&17003101
�block%!108=tooltipicon%+4
�block%!112=tooltipicon%
�"block%!116=512:� Buffer length
�6ș"Wimp_CreateWindow",,block% � whandle_dummyback%
�� Get Tooltip window state
�!block%=whandle_dummyback%
�#ș"Wimp_GetWindowState",,block%
block%!28=-2
ș"Wimp_OpenWindow",,block%
(after%=whandle_dummyback%:cascade%=0
$
.�
8
B��DestroyToolTip
L!block%=whandle_tooltip%
V ș"Wimp_CloseWindow",,block%
`!ș"Wimp_DeleteWindow",,block%
j
t!block%=whandle_dummyback%
~ ș"Wimp_CloseWindow",,block%
�!ș"Wimp_DeleteWindow",,block%
��
�
���UpdateToolTipTime
�� XOffset%, OldTip$
�OldTip$=Tip$
��GetDate
�Tip$=AppDate$
�� (OldTip$<>Tip$) �
�3� IF (TipID%=1) Tip$="after% = &"+STR$~(after%)
�XS%=(�(Tip$)*16)+20:YS%=40
�$ș"Wimp_GetPointerInfo",,block2%
!� Adjust Tooltip window state

!block2%=whandle_tooltip%
$ș"Wimp_GetWindowState",,block2%
X%=block2%!4
(Y%=block2%!8
2!block2%=whandle_tooltip%
<Ablock2%!4=X%:block2%!8=Y%:block2%!12=X%+XS%:block2%!16=Y%+YS%
F.block2%!20=0:block2%!24=0:� Scroll offsets
Pblock2%!28=-1
Z)$(tooltipicon%+4)=Tip$+�0:� Icon text
d"�SYS"Wimp_OpenWindow",,block2%
n� Update icon
x!block2%=whandle_tooltip%
�block2%!4=0
�"ș"Wimp_GetIconState",,block2%
�(block2%!8=0:� Don't change anything,
�,block2%!12=0:� Just signal an update ...
�"ș"Wimp_SetIconState",,block2%
��
��
�
���OpenToolTip(TipID%)
�"� XOffset%, RandTipID%, RSeed%
�� (TipID%=ToolTip%) �
� � (ToolTip%>0) �CloseToolTip
�� Create ToolTip Window
� (TipID%=1) �

 �GetDate
 Tip$=AppDate$
"�
,� (TipID%=2) �
6  � Tip$="Click for more ..."
@ Tip$=""
J RandTipID%=�(RandTipMax%)
T$ Tip$=Tip$+RandTip$(RandTipID%) 
^�
h;� (TipID%=3) Tip$="currentwindow% = "+�(currentwindow%)
r$� (TipID%=4) Tip$=GlobalToolTip$
|3� IF (TipID%=1) Tip$="after% = &"+STR$~(after%)
�XS%=(�(Tip$)*16)+20:YS%=40
�#ș"Wimp_GetPointerInfo",,block%
�'� Define screen position of tooltip
�XOffset%=XS%/2
�� (XOffset%>32) XOffset%=32
�X%=(!block%)-XOffset%
�Y%=(block%!4)+24
��GetScreenSize
�%� ((X%+XS%)>OS_MX%) X%=OS_MX%-XS%
�� (X%<0) X%=0
�.� ((Y%+YS%)>OS_MY%) Y%=(block%!4)-(YS%+24)
�� IF ((Y%-YS%)<0) Y%=0
�
!� Adjust Tooltip window state
!block%=whandle_tooltip%
#ș"Wimp_GetWindowState",,block%
&!block%=whandle_tooltip%
0=block%!4=X%:block%!8=Y%:block%!12=X%+XS%:block%!16=Y%+YS%
:,block%!20=0:block%!24=0:� Scroll offsets
Dblock%!28=-1
N)$(tooltipicon%+4)=Tip$+�0:� Icon text
Xș"Wimp_OpenWindow",,block%
bToolTip%=TipID%
ltooltip_timer%=�
v�
�
���CloseToolTip
�� (ToolTip%=0) �
�!block%=whandle_tooltip%
�#ș"Wimp_GetWindowState",,block%
�!block%=whandle_tooltip%
�block%!8=-1024
�block%!16=-1024
�ș"Wimp_OpenWindow",,block%
�"�SYS"Wimp_CloseWindow",,block%
�$� SYS"Wimp_DeleteWindow",,block%
�ToolTip%=0
��

��PersistCloseToolTip
� (ToolTip%=0) �
 OldToolTip%=ToolTip%
*�!block%=whandle_tooltip%
4"�SYS"Wimp_CloseWindow",,block%
>!block%=whandle_tooltip%
H#ș"Wimp_GetWindowState",,block%
R!block%=whandle_tooltip%
\block%!8=-1024
fblock%!16=-1024
pș"Wimp_OpenWindow",,block%
z$� SYS"Wimp_DeleteWindow",,block%
�ToolTip%=0
��
�
�
00000000  0d 00 0a 39 f4 20 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |...9. **********|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000030  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 00 14 04 0d 00 1e  |*********.......|
00000040  13 dd f2 43 72 65 61 74  65 54 6f 6f 6c 54 69 70  |...CreateToolTip|
00000050  0d 00 28 0e ea 20 58 4f  66 66 73 65 74 25 0d 00  |..(.. XOffset%..|
00000060  32 31 f4 20 43 72 65 61  74 65 20 74 68 65 20 74  |21. Create the t|
00000070  6f 6f 6c 74 69 70 20 61  6e 64 20 64 75 6d 6d 79  |ooltip and dummy|
00000080  20 67 6c 6f 62 61 6c 20  77 69 6e 64 6f 77 73 0d  | global windows.|
00000090  00 3c 36 f4 20 54 68 65  20 74 6f 6f 6c 74 69 70  |.<6. The tooltip|
000000a0  20 77 69 6e 64 6f 77 20  64 69 73 70 6c 61 79 73  | window displays|
000000b0  20 62 72 69 65 66 20 69  6e 66 6f 20 61 62 6f 75  | brief info abou|
000000c0  74 20 74 68 65 0d 00 46  1d f4 20 69 63 6f 6e 20  |t the..F.. icon |
000000d0  75 6e 64 65 72 20 74 68  65 20 70 6f 69 6e 74 65  |under the pointe|
000000e0  72 2e 0d 00 50 36 f4 20  54 68 65 20 64 75 6d 6d  |r...P6. The dumm|
000000f0  79 20 77 69 6e 64 6f 77  20 69 73 20 6e 65 65 64  |y window is need|
00000100  65 64 20 74 6f 20 70 72  6f 76 69 64 65 20 61 20  |ed to provide a |
00000110  27 62 6f 74 74 6f 6d 27  0d 00 5a 33 f4 20 77 69  |'bottom'..Z3. wi|
00000120  6e 64 6f 77 20 66 6f 72  20 74 68 65 20 77 69 6e  |ndow for the win|
00000130  64 6f 77 20 72 65 2d 6f  72 67 61 6e 69 73 61 74  |dow re-organisat|
00000140  69 6f 6e 20 74 6f 6f 6c  20 74 6f 0d 00 64 11 f4  |ion tool to..d..|
00000150  20 73 74 61 72 74 20 66  72 6f 6d 2e 0d 00 6e 04  | start from...n.|
00000160  0d 00 78 1f f4 20 43 72  65 61 74 65 20 74 68 65  |..x.. Create the|
00000170  20 74 6f 6f 6c 74 69 70  20 77 69 6e 64 6f 77 0d  | tooltip window.|
00000180  00 82 10 54 69 70 24 3d  22 48 65 6c 6c 6f 22 0d  |...Tip$="Hello".|
00000190  00 8c 1e 58 53 25 3d 28  a9 28 54 69 70 24 29 2a  |...XS%=(.(Tip$)*|
000001a0  31 36 29 2b 32 30 3a 59  53 25 3d 34 30 0d 00 96  |16)+20:YS%=40...|
000001b0  23 c8 99 22 57 69 6d 70  5f 47 65 74 50 6f 69 6e  |#.."Wimp_GetPoin|
000001c0  74 65 72 49 6e 66 6f 22  2c 2c 62 6c 6f 63 6b 25  |terInfo",,block%|
000001d0  0d 00 a0 27 f4 20 44 65  66 69 6e 65 20 73 63 72  |...'. Define scr|
000001e0  65 65 6e 20 70 6f 73 69  74 69 6f 6e 20 6f 66 20  |een position of |
000001f0  74 6f 6f 6c 74 69 70 0d  00 aa 12 58 4f 66 66 73  |tooltip....XOffs|
00000200  65 74 25 3d 58 53 25 2f  32 0d 00 b4 1f e7 20 28  |et%=XS%/2..... (|
00000210  58 4f 66 66 73 65 74 25  3e 33 32 29 20 58 4f 66  |XOffset%>32) XOf|
00000220  66 73 65 74 25 3d 33 32  0d 00 be 19 58 25 3d 28  |fset%=32....X%=(|
00000230  21 62 6c 6f 63 6b 25 29  2d 58 4f 66 66 73 65 74  |!block%)-XOffset|
00000240  25 0d 00 c8 14 59 25 3d  28 62 6c 6f 63 6b 25 21  |%....Y%=(block%!|
00000250  34 29 2b 32 34 0d 00 d2  12 f2 47 65 74 53 63 72  |4)+24.....GetScr|
00000260  65 65 6e 53 69 7a 65 0d  00 dc 25 e7 20 28 28 58  |eenSize...%. ((X|
00000270  25 2b 58 53 25 29 3e 4f  53 5f 4d 58 25 29 20 58  |%+XS%)>OS_MX%) X|
00000280  25 3d 4f 53 5f 4d 58 25  2d 58 53 25 0d 00 e6 11  |%=OS_MX%-XS%....|
00000290  e7 20 28 58 25 3c 30 29  20 58 25 3d 30 0d 00 f0  |. (X%<0) X%=0...|
000002a0  2e e7 20 28 28 59 25 2b  59 53 25 29 3e 4f 53 5f  |.. ((Y%+YS%)>OS_|
000002b0  4d 59 25 29 20 59 25 3d  28 62 6c 6f 63 6b 25 21  |MY%) Y%=(block%!|
000002c0  34 29 2d 28 59 53 25 2b  32 34 29 0d 00 fa 1a f4  |4)-(YS%+24).....|
000002d0  20 49 46 20 28 28 59 25  2d 59 53 25 29 3c 30 29  | IF ((Y%-YS%)<0)|
000002e0  20 59 25 3d 30 0d 01 04  3b 21 62 6c 6f 63 6b 25  | Y%=0...;!block%|
000002f0  3d 58 25 3a 62 6c 6f 63  6b 25 21 34 3d 59 25 3a  |=X%:block%!4=Y%:|
00000300  62 6c 6f 63 6b 25 21 38  3d 58 25 2b 58 53 25 3a  |block%!8=X%+XS%:|
00000310  62 6c 6f 63 6b 25 21 31  32 3d 59 25 2b 59 53 25  |block%!12=Y%+YS%|
00000320  0d 01 0e 1a 58 53 25 3d  28 35 31 32 2a 31 36 29  |....XS%=(512*16)|
00000330  2b 32 30 3a 59 53 25 3d  34 30 0d 01 18 2c 62 6c  |+20:YS%=40...,bl|
00000340  6f 63 6b 25 21 31 36 3d  30 3a 62 6c 6f 63 6b 25  |ock%!16=0:block%|
00000350  21 32 30 3d 30 3a f4 20  53 63 72 6f 6c 6c 20 6f  |!20=0:. Scroll o|
00000360  66 66 73 65 74 73 0d 01  22 3a 62 6c 6f 63 6b 25  |ffsets..":block%|
00000370  21 32 34 3d 2d 31 3a 62  6c 6f 63 6b 25 21 32 38  |!24=-1:block%!28|
00000380  3d 26 38 30 30 30 30 30  35 30 3a f4 20 44 65 70  |=&80000050:. Dep|
00000390  74 68 2c 20 77 69 6e 64  6f 77 20 66 6c 61 67 73  |th, window flags|
000003a0  0d 01 2c 33 62 6c 6f 63  6b 25 21 33 32 3d 26 30  |..,3block%!32=&0|
000003b0  30 30 37 30 32 30 37 3a  62 6c 6f 63 6b 25 21 33  |0070207:block%!3|
000003c0  36 3d 26 31 32 30 31 30  33 3a f4 20 43 6f 6c 6f  |6=&120103:. Colo|
000003d0  75 72 73 0d 01 36 38 62  6c 6f 63 6b 25 21 34 30  |urs..68block%!40|
000003e0  3d 30 3a 62 6c 6f 63 6b  25 21 34 34 3d 2d 59 53  |=0:block%!44=-YS|
000003f0  25 3a 62 6c 6f 63 6b 25  21 34 38 3d 58 53 25 3a  |%:block%!48=XS%:|
00000400  62 6c 6f 63 6b 25 21 35  32 3d 30 0d 01 40 3b 62  |block%!52=0..@;b|
00000410  6c 6f 63 6b 25 21 35 36  3d 26 31 39 3a 62 6c 6f  |lock%!56=&19:blo|
00000420  63 6b 25 21 36 30 3d 33  3c 3c 31 32 3a f4 20 54  |ck%!60=3<<12:. T|
00000430  69 74 6c 65 62 61 72 2f  77 6f 72 6b 61 72 65 61  |itlebar/workarea|
00000440  20 66 6c 61 67 73 0d 01  4a 29 62 6c 6f 63 6b 25  | flags..J)block%|
00000450  21 36 34 3d 30 3a 62 6c  6f 63 6b 25 21 36 38 3d  |!64=0:block%!68=|
00000460  30 3a f4 20 53 70 72 69  74 65 20 61 72 65 61 0d  |0:. Sprite area.|
00000470  01 54 1d 24 28 62 6c 6f  63 6b 25 2b 37 32 29 3d  |.T.$(block%+72)=|
00000480  22 58 75 65 6e 54 69 70  22 2b bd 30 0d 01 5e 0f  |"XuenTip"+.0..^.|
00000490  62 6c 6f 63 6b 25 21 38  34 3d 31 0d 01 68 29 f4  |block%!84=1..h).|
000004a0  20 44 65 66 69 6e 65 20  31 20 69 63 6f 6e 20 73  | Define 1 icon s|
000004b0  74 61 72 74 69 6e 67 20  61 74 20 62 6c 6f 63 6b  |tarting at block|
000004c0  25 21 38 38 0d 01 72 2c  21 74 6f 6f 6c 74 69 70  |%!88..r,!tooltip|
000004d0  69 63 6f 6e 25 3d 30 3a  f4 20 4e 75 6c 6c 20 76  |icon%=0:. Null v|
000004e0  61 6c 69 64 61 74 69 6f  6e 20 73 74 72 69 6e 67  |alidation string|
000004f0  0d 01 7c 29 24 28 74 6f  6f 6c 74 69 70 69 63 6f  |..|)$(tooltipico|
00000500  6e 25 2b 34 29 3d 54 69  70 24 2b bd 30 3a f4 20  |n%+4)=Tip$+.0:. |
00000510  49 63 6f 6e 20 74 65 78  74 0d 01 86 1e 62 6c 6f  |Icon text....blo|
00000520  63 6b 25 21 38 38 3d 34  3a f4 20 42 6f 75 6e 64  |ck%!88=4:. Bound|
00000530  69 6e 67 20 62 6f 78 0d  01 90 20 62 6c 6f 63 6b  |ing box... block|
00000540  25 21 39 32 3d 2d 34 30  3a f4 20 42 6f 75 6e 64  |%!92=-40:. Bound|
00000550  69 6e 67 20 62 6f 78 0d  01 9a 3b 62 6c 6f 63 6b  |ing box...;block|
00000560  25 21 39 36 3d 28 28 35  31 32 2a 31 36 29 2b 32  |%!96=((512*16)+2|
00000570  30 29 3a f4 20 42 6f 75  6e 64 69 6e 67 20 62 6f  |0):. Bounding bo|
00000580  78 20 6f 66 20 5f 6c 61  72 67 65 73 74 5f 20 74  |x of _largest_ t|
00000590  69 70 0d 01 a4 1f 62 6c  6f 63 6b 25 21 31 30 30  |ip....block%!100|
000005a0  3d 30 3a f4 20 42 6f 75  6e 64 69 6e 67 20 62 6f  |=0:. Bounding bo|
000005b0  78 0d 01 ae 18 62 6c 6f  63 6b 25 21 31 30 34 3d  |x....block%!104=|
000005c0  26 31 37 30 30 33 31 30  31 0d 01 b8 1d 62 6c 6f  |&17003101....blo|
000005d0  63 6b 25 21 31 30 38 3d  74 6f 6f 6c 74 69 70 69  |ck%!108=tooltipi|
000005e0  63 6f 6e 25 2b 34 0d 01  c2 1b 62 6c 6f 63 6b 25  |con%+4....block%|
000005f0  21 31 31 32 3d 74 6f 6f  6c 74 69 70 69 63 6f 6e  |!112=tooltipicon|
00000600  25 0d 01 cc 22 62 6c 6f  63 6b 25 21 31 31 36 3d  |%..."block%!116=|
00000610  35 31 32 3a f4 20 42 75  66 66 65 72 20 6c 65 6e  |512:. Buffer len|
00000620  67 74 68 0d 01 d6 34 c8  99 22 57 69 6d 70 5f 43  |gth...4.."Wimp_C|
00000630  72 65 61 74 65 57 69 6e  64 6f 77 22 2c 2c 62 6c  |reateWindow",,bl|
00000640  6f 63 6b 25 20 b8 20 77  68 61 6e 64 6c 65 5f 74  |ock% . whandle_t|
00000650  6f 6f 6c 74 69 70 25 0d  01 e0 1e 58 53 25 3d 28  |ooltip%....XS%=(|
00000660  a9 28 54 69 70 24 29 2a  31 36 29 2b 32 30 3a 59  |.(Tip$)*16)+20:Y|
00000670  53 25 3d 34 30 0d 01 ea  23 c8 99 22 57 69 6d 70  |S%=40...#.."Wimp|
00000680  5f 47 65 74 50 6f 69 6e  74 65 72 49 6e 66 6f 22  |_GetPointerInfo"|
00000690  2c 2c 62 6c 6f 63 6b 25  0d 01 f4 27 f4 20 44 65  |,,block%...'. De|
000006a0  66 69 6e 65 20 73 63 72  65 65 6e 20 70 6f 73 69  |fine screen posi|
000006b0  74 69 6f 6e 20 6f 66 20  74 6f 6f 6c 74 69 70 0d  |tion of tooltip.|
000006c0  01 fe 12 58 4f 66 66 73  65 74 25 3d 58 53 25 2f  |...XOffset%=XS%/|
000006d0  32 0d 02 08 1f e7 20 28  58 4f 66 66 73 65 74 25  |2..... (XOffset%|
000006e0  3e 33 32 29 20 58 4f 66  66 73 65 74 25 3d 33 32  |>32) XOffset%=32|
000006f0  0d 02 12 19 58 25 3d 28  21 62 6c 6f 63 6b 25 29  |....X%=(!block%)|
00000700  2d 58 4f 66 66 73 65 74  25 0d 02 1c 12 f2 47 65  |-XOffset%.....Ge|
00000710  74 53 63 72 65 65 6e 53  69 7a 65 0d 02 26 25 e7  |tScreenSize..&%.|
00000720  20 28 28 58 25 2b 58 53  25 29 3e 4f 53 5f 4d 58  | ((X%+XS%)>OS_MX|
00000730  25 29 20 58 25 3d 4f 53  5f 4d 58 25 2d 58 53 25  |%) X%=OS_MX%-XS%|
00000740  0d 02 30 11 e7 20 28 58  25 3c 30 29 20 58 25 3d  |..0.. (X%<0) X%=|
00000750  30 0d 02 3a 2e e7 20 28  28 59 25 2b 59 53 25 29  |0..:.. ((Y%+YS%)|
00000760  3e 4f 53 5f 4d 59 25 29  20 59 25 3d 28 62 6c 6f  |>OS_MY%) Y%=(blo|
00000770  63 6b 25 21 34 29 2d 28  59 53 25 2b 32 34 29 0d  |ck%!4)-(YS%+24).|
00000780  02 44 0c 59 25 3d 2d 31  30 32 34 0d 02 4e 1a f4  |.D.Y%=-1024..N..|
00000790  20 49 46 20 28 28 59 25  2d 59 53 25 29 3c 30 29  | IF ((Y%-YS%)<0)|
000007a0  20 59 25 3d 30 0d 02 58  1e f4 20 47 65 74 20 54  | Y%=0..X.. Get T|
000007b0  6f 6f 6c 74 69 70 20 77  69 6e 64 6f 77 20 73 74  |ooltip window st|
000007c0  61 74 65 0d 02 62 1c 21  62 6c 6f 63 6b 25 3d 77  |ate..b.!block%=w|
000007d0  68 61 6e 64 6c 65 5f 74  6f 6f 6c 74 69 70 25 0d  |handle_tooltip%.|
000007e0  02 6c 23 c8 99 22 57 69  6d 70 5f 47 65 74 57 69  |.l#.."Wimp_GetWi|
000007f0  6e 64 6f 77 53 74 61 74  65 22 2c 2c 62 6c 6f 63  |ndowState",,bloc|
00000800  6b 25 0d 02 76 3f 62 6c  6f 63 6b 25 21 34 3d 58  |k%..v?block%!4=X|
00000810  25 3a 62 6c 6f 63 6b 25  21 38 3d 2d 31 30 32 34  |%:block%!8=-1024|
00000820  3a 62 6c 6f 63 6b 25 21  31 32 3d 58 25 2b 58 53  |:block%!12=X%+XS|
00000830  25 3a 62 6c 6f 63 6b 25  21 31 36 3d 2d 31 30 32  |%:block%!16=-102|
00000840  34 0d 02 80 2c 62 6c 6f  63 6b 25 21 32 30 3d 30  |4...,block%!20=0|
00000850  3a 62 6c 6f 63 6b 25 21  32 34 3d 30 3a f4 20 53  |:block%!24=0:. S|
00000860  63 72 6f 6c 6c 20 6f 66  66 73 65 74 73 0d 02 8a  |croll offsets...|
00000870  12 f4 20 62 6c 6f 63 6b  25 21 32 38 3d 2d 31 0d  |.. block%!28=-1.|
00000880  02 94 1f c8 99 22 57 69  6d 70 5f 4f 70 65 6e 57  |....."Wimp_OpenW|
00000890  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 02  |indow",,block%..|
000008a0  9e 0e 54 6f 6f 6c 54 69  70 25 3d 30 0d 02 a8 04  |..ToolTip%=0....|
000008b0  0d 02 b2 04 0d 02 bc 04  0d 02 c6 22 f4 20 43 72  |...........". Cr|
000008c0  65 61 74 65 20 74 68 65  20 64 75 6d 6d 79 20 62  |eate the dummy b|
000008d0  61 63 6b 20 77 69 6e 64  6f 77 0d 02 d0 27 f4 20  |ack window...'. |
000008e0  44 65 66 69 6e 65 20 73  63 72 65 65 6e 20 70 6f  |Define screen po|
000008f0  73 69 74 69 6f 6e 20 6f  66 20 74 6f 6f 6c 74 69  |sition of toolti|
00000900  70 0d 02 da 1e 58 53 25  3d 28 a9 28 54 69 70 24  |p....XS%=(.(Tip$|
00000910  29 2a 31 36 29 2b 32 30  3a 59 53 25 3d 34 30 0d  |)*16)+20:YS%=40.|
00000920  02 e4 12 58 4f 66 66 73  65 74 25 3d 58 53 25 2f  |...XOffset%=XS%/|
00000930  32 0d 02 ee 1f e7 20 28  58 4f 66 66 73 65 74 25  |2..... (XOffset%|
00000940  3e 33 32 29 20 58 4f 66  66 73 65 74 25 3d 33 32  |>32) XOffset%=32|
00000950  0d 02 f8 09 58 25 3d 36  34 0d 03 02 0c 59 25 3d  |....X%=64....Y%=|
00000960  2d 31 30 32 34 0d 03 0c  3b 21 62 6c 6f 63 6b 25  |-1024...;!block%|
00000970  3d 58 25 3a 62 6c 6f 63  6b 25 21 34 3d 59 25 3a  |=X%:block%!4=Y%:|
00000980  62 6c 6f 63 6b 25 21 38  3d 58 25 2b 58 53 25 3a  |block%!8=X%+XS%:|
00000990  62 6c 6f 63 6b 25 21 31  32 3d 59 25 2b 59 53 25  |block%!12=Y%+YS%|
000009a0  0d 03 16 1a 58 53 25 3d  28 35 31 32 2a 31 36 29  |....XS%=(512*16)|
000009b0  2b 32 30 3a 59 53 25 3d  34 30 0d 03 20 2c 62 6c  |+20:YS%=40.. ,bl|
000009c0  6f 63 6b 25 21 31 36 3d  30 3a 62 6c 6f 63 6b 25  |ock%!16=0:block%|
000009d0  21 32 30 3d 30 3a f4 20  53 63 72 6f 6c 6c 20 6f  |!20=0:. Scroll o|
000009e0  66 66 73 65 74 73 0d 03  2a 3a 62 6c 6f 63 6b 25  |ffsets..*:block%|
000009f0  21 32 34 3d 2d 31 3a 62  6c 6f 63 6b 25 21 32 38  |!24=-1:block%!28|
00000a00  3d 26 38 30 30 30 30 30  35 30 3a f4 20 44 65 70  |=&80000050:. Dep|
00000a10  74 68 2c 20 77 69 6e 64  6f 77 20 66 6c 61 67 73  |th, window flags|
00000a20  0d 03 34 33 62 6c 6f 63  6b 25 21 33 32 3d 26 30  |..43block%!32=&0|
00000a30  30 30 37 30 32 30 37 3a  62 6c 6f 63 6b 25 21 33  |0070207:block%!3|
00000a40  36 3d 26 31 32 30 31 30  33 3a f4 20 43 6f 6c 6f  |6=&120103:. Colo|
00000a50  75 72 73 0d 03 3e 38 62  6c 6f 63 6b 25 21 34 30  |urs..>8block%!40|
00000a60  3d 30 3a 62 6c 6f 63 6b  25 21 34 34 3d 2d 59 53  |=0:block%!44=-YS|
00000a70  25 3a 62 6c 6f 63 6b 25  21 34 38 3d 58 53 25 3a  |%:block%!48=XS%:|
00000a80  62 6c 6f 63 6b 25 21 35  32 3d 30 0d 03 48 3b 62  |block%!52=0..H;b|
00000a90  6c 6f 63 6b 25 21 35 36  3d 26 31 39 3a 62 6c 6f  |lock%!56=&19:blo|
00000aa0  63 6b 25 21 36 30 3d 33  3c 3c 31 32 3a f4 20 54  |ck%!60=3<<12:. T|
00000ab0  69 74 6c 65 62 61 72 2f  77 6f 72 6b 61 72 65 61  |itlebar/workarea|
00000ac0  20 66 6c 61 67 73 0d 03  52 29 62 6c 6f 63 6b 25  | flags..R)block%|
00000ad0  21 36 34 3d 30 3a 62 6c  6f 63 6b 25 21 36 38 3d  |!64=0:block%!68=|
00000ae0  30 3a f4 20 53 70 72 69  74 65 20 61 72 65 61 0d  |0:. Sprite area.|
00000af0  03 5c 1f 24 28 62 6c 6f  63 6b 25 2b 37 32 29 3d  |.\.$(block%+72)=|
00000b00  22 58 75 65 6e 44 75 6d  6d 79 22 2b bd 30 0d 03  |"XuenDummy"+.0..|
00000b10  66 0f 62 6c 6f 63 6b 25  21 38 34 3d 31 0d 03 70  |f.block%!84=1..p|
00000b20  29 f4 20 44 65 66 69 6e  65 20 31 20 69 63 6f 6e  |). Define 1 icon|
00000b30  20 73 74 61 72 74 69 6e  67 20 61 74 20 62 6c 6f  | starting at blo|
00000b40  63 6b 25 21 38 38 0d 03  7a 2c 21 74 6f 6f 6c 74  |ck%!88..z,!toolt|
00000b50  69 70 69 63 6f 6e 25 3d  30 3a f4 20 4e 75 6c 6c  |ipicon%=0:. Null|
00000b60  20 76 61 6c 69 64 61 74  69 6f 6e 20 73 74 72 69  | validation stri|
00000b70  6e 67 0d 03 84 29 24 28  74 6f 6f 6c 74 69 70 69  |ng...)$(tooltipi|
00000b80  63 6f 6e 25 2b 34 29 3d  54 69 70 24 2b bd 30 3a  |con%+4)=Tip$+.0:|
00000b90  f4 20 49 63 6f 6e 20 74  65 78 74 0d 03 8e 1e 62  |. Icon text....b|
00000ba0  6c 6f 63 6b 25 21 38 38  3d 34 3a f4 20 42 6f 75  |lock%!88=4:. Bou|
00000bb0  6e 64 69 6e 67 20 62 6f  78 0d 03 98 20 62 6c 6f  |nding box... blo|
00000bc0  63 6b 25 21 39 32 3d 2d  33 32 3a f4 20 42 6f 75  |ck%!92=-32:. Bou|
00000bd0  6e 64 69 6e 67 20 62 6f  78 0d 03 a2 3b 62 6c 6f  |nding box...;blo|
00000be0  63 6b 25 21 39 36 3d 28  28 35 31 32 2a 31 36 29  |ck%!96=((512*16)|
00000bf0  2b 32 30 29 3a f4 20 42  6f 75 6e 64 69 6e 67 20  |+20):. Bounding |
00000c00  62 6f 78 20 6f 66 20 5f  6c 61 72 67 65 73 74 5f  |box of _largest_|
00000c10  20 74 69 70 0d 03 ac 20  62 6c 6f 63 6b 25 21 31  | tip... block%!1|
00000c20  30 30 3d 2d 38 3a f4 20  42 6f 75 6e 64 69 6e 67  |00=-8:. Bounding|
00000c30  20 62 6f 78 0d 03 b6 18  62 6c 6f 63 6b 25 21 31  | box....block%!1|
00000c40  30 34 3d 26 31 37 30 30  33 31 30 31 0d 03 c0 1d  |04=&17003101....|
00000c50  62 6c 6f 63 6b 25 21 31  30 38 3d 74 6f 6f 6c 74  |block%!108=toolt|
00000c60  69 70 69 63 6f 6e 25 2b  34 0d 03 ca 1b 62 6c 6f  |ipicon%+4....blo|
00000c70  63 6b 25 21 31 31 32 3d  74 6f 6f 6c 74 69 70 69  |ck%!112=tooltipi|
00000c80  63 6f 6e 25 0d 03 d4 22  62 6c 6f 63 6b 25 21 31  |con%..."block%!1|
00000c90  31 36 3d 35 31 32 3a f4  20 42 75 66 66 65 72 20  |16=512:. Buffer |
00000ca0  6c 65 6e 67 74 68 0d 03  de 36 c8 99 22 57 69 6d  |length...6.."Wim|
00000cb0  70 5f 43 72 65 61 74 65  57 69 6e 64 6f 77 22 2c  |p_CreateWindow",|
00000cc0  2c 62 6c 6f 63 6b 25 20  b8 20 77 68 61 6e 64 6c  |,block% . whandl|
00000cd0  65 5f 64 75 6d 6d 79 62  61 63 6b 25 0d 03 e8 1e  |e_dummyback%....|
00000ce0  f4 20 47 65 74 20 54 6f  6f 6c 74 69 70 20 77 69  |. Get Tooltip wi|
00000cf0  6e 64 6f 77 20 73 74 61  74 65 0d 03 f2 1e 21 62  |ndow state....!b|
00000d00  6c 6f 63 6b 25 3d 77 68  61 6e 64 6c 65 5f 64 75  |lock%=whandle_du|
00000d10  6d 6d 79 62 61 63 6b 25  0d 03 fc 23 c8 99 22 57  |mmyback%...#.."W|
00000d20  69 6d 70 5f 47 65 74 57  69 6e 64 6f 77 53 74 61  |imp_GetWindowSta|
00000d30  74 65 22 2c 2c 62 6c 6f  63 6b 25 0d 04 06 10 62  |te",,block%....b|
00000d40  6c 6f 63 6b 25 21 32 38  3d 2d 32 0d 04 10 1f c8  |lock%!28=-2.....|
00000d50  99 22 57 69 6d 70 5f 4f  70 65 6e 57 69 6e 64 6f  |."Wimp_OpenWindo|
00000d60  77 22 2c 2c 62 6c 6f 63  6b 25 0d 04 1a 28 61 66  |w",,block%...(af|
00000d70  74 65 72 25 3d 77 68 61  6e 64 6c 65 5f 64 75 6d  |ter%=whandle_dum|
00000d80  6d 79 62 61 63 6b 25 3a  63 61 73 63 61 64 65 25  |myback%:cascade%|
00000d90  3d 30 0d 04 24 04 0d 04  2e 05 e1 0d 04 38 04 0d  |=0..$........8..|
00000da0  04 42 14 dd f2 44 65 73  74 72 6f 79 54 6f 6f 6c  |.B...DestroyTool|
00000db0  54 69 70 0d 04 4c 1c 21  62 6c 6f 63 6b 25 3d 77  |Tip..L.!block%=w|
00000dc0  68 61 6e 64 6c 65 5f 74  6f 6f 6c 74 69 70 25 0d  |handle_tooltip%.|
00000dd0  04 56 20 c8 99 22 57 69  6d 70 5f 43 6c 6f 73 65  |.V .."Wimp_Close|
00000de0  57 69 6e 64 6f 77 22 2c  2c 62 6c 6f 63 6b 25 0d  |Window",,block%.|
00000df0  04 60 21 c8 99 22 57 69  6d 70 5f 44 65 6c 65 74  |.`!.."Wimp_Delet|
00000e00  65 57 69 6e 64 6f 77 22  2c 2c 62 6c 6f 63 6b 25  |eWindow",,block%|
00000e10  0d 04 6a 04 0d 04 74 1e  21 62 6c 6f 63 6b 25 3d  |..j...t.!block%=|
00000e20  77 68 61 6e 64 6c 65 5f  64 75 6d 6d 79 62 61 63  |whandle_dummybac|
00000e30  6b 25 0d 04 7e 20 c8 99  22 57 69 6d 70 5f 43 6c  |k%..~ .."Wimp_Cl|
00000e40  6f 73 65 57 69 6e 64 6f  77 22 2c 2c 62 6c 6f 63  |oseWindow",,bloc|
00000e50  6b 25 0d 04 88 21 c8 99  22 57 69 6d 70 5f 44 65  |k%...!.."Wimp_De|
00000e60  6c 65 74 65 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |leteWindow",,blo|
00000e70  63 6b 25 0d 04 92 05 e1  0d 04 9c 04 0d 04 a6 17  |ck%.............|
00000e80  dd f2 55 70 64 61 74 65  54 6f 6f 6c 54 69 70 54  |..UpdateToolTipT|
00000e90  69 6d 65 0d 04 b0 17 ea  20 58 4f 66 66 73 65 74  |ime..... XOffset|
00000ea0  25 2c 20 4f 6c 64 54 69  70 24 0d 04 ba 10 4f 6c  |%, OldTip$....Ol|
00000eb0  64 54 69 70 24 3d 54 69  70 24 0d 04 c4 0c f2 47  |dTip$=Tip$.....G|
00000ec0  65 74 44 61 74 65 0d 04  ce 11 54 69 70 24 3d 41  |etDate....Tip$=A|
00000ed0  70 70 44 61 74 65 24 0d  04 d8 17 e7 20 28 4f 6c  |ppDate$..... (Ol|
00000ee0  64 54 69 70 24 3c 3e 54  69 70 24 29 20 8c 0d 04  |dTip$<>Tip$) ...|
00000ef0  e2 33 f4 20 49 46 20 28  54 69 70 49 44 25 3d 31  |.3. IF (TipID%=1|
00000f00  29 20 54 69 70 24 3d 22  61 66 74 65 72 25 20 3d  |) Tip$="after% =|
00000f10  20 26 22 2b 53 54 52 24  7e 28 61 66 74 65 72 25  | &"+STR$~(after%|
00000f20  29 0d 04 ec 1e 58 53 25  3d 28 a9 28 54 69 70 24  |)....XS%=(.(Tip$|
00000f30  29 2a 31 36 29 2b 32 30  3a 59 53 25 3d 34 30 0d  |)*16)+20:YS%=40.|
00000f40  04 f6 24 c8 99 22 57 69  6d 70 5f 47 65 74 50 6f  |..$.."Wimp_GetPo|
00000f50  69 6e 74 65 72 49 6e 66  6f 22 2c 2c 62 6c 6f 63  |interInfo",,bloc|
00000f60  6b 32 25 0d 05 00 21 f4  20 41 64 6a 75 73 74 20  |k2%...!. Adjust |
00000f70  54 6f 6f 6c 74 69 70 20  77 69 6e 64 6f 77 20 73  |Tooltip window s|
00000f80  74 61 74 65 0d 05 0a 1d  21 62 6c 6f 63 6b 32 25  |tate....!block2%|
00000f90  3d 77 68 61 6e 64 6c 65  5f 74 6f 6f 6c 74 69 70  |=whandle_tooltip|
00000fa0  25 0d 05 14 24 c8 99 22  57 69 6d 70 5f 47 65 74  |%...$.."Wimp_Get|
00000fb0  57 69 6e 64 6f 77 53 74  61 74 65 22 2c 2c 62 6c  |WindowState",,bl|
00000fc0  6f 63 6b 32 25 0d 05 1e  10 58 25 3d 62 6c 6f 63  |ock2%....X%=bloc|
00000fd0  6b 32 25 21 34 0d 05 28  10 59 25 3d 62 6c 6f 63  |k2%!4..(.Y%=bloc|
00000fe0  6b 32 25 21 38 0d 05 32  1d 21 62 6c 6f 63 6b 32  |k2%!8..2.!block2|
00000ff0  25 3d 77 68 61 6e 64 6c  65 5f 74 6f 6f 6c 74 69  |%=whandle_toolti|
00001000  70 25 0d 05 3c 41 62 6c  6f 63 6b 32 25 21 34 3d  |p%..<Ablock2%!4=|
00001010  58 25 3a 62 6c 6f 63 6b  32 25 21 38 3d 59 25 3a  |X%:block2%!8=Y%:|
00001020  62 6c 6f 63 6b 32 25 21  31 32 3d 58 25 2b 58 53  |block2%!12=X%+XS|
00001030  25 3a 62 6c 6f 63 6b 32  25 21 31 36 3d 59 25 2b  |%:block2%!16=Y%+|
00001040  59 53 25 0d 05 46 2e 62  6c 6f 63 6b 32 25 21 32  |YS%..F.block2%!2|
00001050  30 3d 30 3a 62 6c 6f 63  6b 32 25 21 32 34 3d 30  |0=0:block2%!24=0|
00001060  3a f4 20 53 63 72 6f 6c  6c 20 6f 66 66 73 65 74  |:. Scroll offset|
00001070  73 0d 05 50 11 62 6c 6f  63 6b 32 25 21 32 38 3d  |s..P.block2%!28=|
00001080  2d 31 0d 05 5a 29 24 28  74 6f 6f 6c 74 69 70 69  |-1..Z)$(tooltipi|
00001090  63 6f 6e 25 2b 34 29 3d  54 69 70 24 2b bd 30 3a  |con%+4)=Tip$+.0:|
000010a0  f4 20 49 63 6f 6e 20 74  65 78 74 0d 05 64 22 f4  |. Icon text..d".|
000010b0  53 59 53 22 57 69 6d 70  5f 4f 70 65 6e 57 69 6e  |SYS"Wimp_OpenWin|
000010c0  64 6f 77 22 2c 2c 62 6c  6f 63 6b 32 25 0d 05 6e  |dow",,block2%..n|
000010d0  11 f4 20 55 70 64 61 74  65 20 69 63 6f 6e 0d 05  |.. Update icon..|
000010e0  78 1d 21 62 6c 6f 63 6b  32 25 3d 77 68 61 6e 64  |x.!block2%=whand|
000010f0  6c 65 5f 74 6f 6f 6c 74  69 70 25 0d 05 82 0f 62  |le_tooltip%....b|
00001100  6c 6f 63 6b 32 25 21 34  3d 30 0d 05 8c 22 c8 99  |lock2%!4=0..."..|
00001110  22 57 69 6d 70 5f 47 65  74 49 63 6f 6e 53 74 61  |"Wimp_GetIconSta|
00001120  74 65 22 2c 2c 62 6c 6f  63 6b 32 25 0d 05 96 28  |te",,block2%...(|
00001130  62 6c 6f 63 6b 32 25 21  38 3d 30 3a f4 20 44 6f  |block2%!8=0:. Do|
00001140  6e 27 74 20 63 68 61 6e  67 65 20 61 6e 79 74 68  |n't change anyth|
00001150  69 6e 67 2c 0d 05 a0 2c  62 6c 6f 63 6b 32 25 21  |ing,...,block2%!|
00001160  31 32 3d 30 3a f4 20 4a  75 73 74 20 73 69 67 6e  |12=0:. Just sign|
00001170  61 6c 20 61 6e 20 75 70  64 61 74 65 20 2e 2e 2e  |al an update ...|
00001180  0d 05 aa 22 c8 99 22 57  69 6d 70 5f 53 65 74 49  |...".."Wimp_SetI|
00001190  63 6f 6e 53 74 61 74 65  22 2c 2c 62 6c 6f 63 6b  |conState",,block|
000011a0  32 25 0d 05 b4 05 cd 0d  05 be 05 e1 0d 05 c8 04  |2%..............|
000011b0  0d 05 d2 19 dd f2 4f 70  65 6e 54 6f 6f 6c 54 69  |......OpenToolTi|
000011c0  70 28 54 69 70 49 44 25  29 0d 05 dc 22 ea 20 58  |p(TipID%)...". X|
000011d0  4f 66 66 73 65 74 25 2c  20 52 61 6e 64 54 69 70  |Offset%, RandTip|
000011e0  49 44 25 2c 20 52 53 65  65 64 25 0d 05 e6 19 e7  |ID%, RSeed%.....|
000011f0  20 28 54 69 70 49 44 25  3d 54 6f 6f 6c 54 69 70  | (TipID%=ToolTip|
00001200  25 29 20 e1 0d 05 f0 20  e7 20 28 54 6f 6f 6c 54  |%) .... . (ToolT|
00001210  69 70 25 3e 30 29 20 f2  43 6c 6f 73 65 54 6f 6f  |ip%>0) .CloseToo|
00001220  6c 54 69 70 0d 05 fa 1b  f4 20 43 72 65 61 74 65  |lTip..... Create|
00001230  20 54 6f 6f 6c 54 69 70  20 57 69 6e 64 6f 77 0d  | ToolTip Window.|
00001240  06 04 12 e7 20 28 54 69  70 49 44 25 3d 31 29 20  |.... (TipID%=1) |
00001250  8c 0d 06 0e 0d 20 f2 47  65 74 44 61 74 65 0d 06  |..... .GetDate..|
00001260  18 12 20 54 69 70 24 3d  41 70 70 44 61 74 65 24  |.. Tip$=AppDate$|
00001270  0d 06 22 05 cd 0d 06 2c  12 e7 20 28 54 69 70 49  |.."....,.. (TipI|
00001280  44 25 3d 32 29 20 8c 0d  06 36 20 20 f4 20 54 69  |D%=2) ...6  . Ti|
00001290  70 24 3d 22 43 6c 69 63  6b 20 66 6f 72 20 6d 6f  |p$="Click for mo|
000012a0  72 65 20 2e 2e 2e 22 0d  06 40 0c 20 54 69 70 24  |re ..."..@. Tip$|
000012b0  3d 22 22 0d 06 4a 1e 20  52 61 6e 64 54 69 70 49  |=""..J. RandTipI|
000012c0  44 25 3d b3 28 52 61 6e  64 54 69 70 4d 61 78 25  |D%=.(RandTipMax%|
000012d0  29 0d 06 54 24 20 54 69  70 24 3d 54 69 70 24 2b  |)..T$ Tip$=Tip$+|
000012e0  52 61 6e 64 54 69 70 24  28 52 61 6e 64 54 69 70  |RandTip$(RandTip|
000012f0  49 44 25 29 20 0d 06 5e  05 cd 0d 06 68 3b e7 20  |ID%) ..^....h;. |
00001300  28 54 69 70 49 44 25 3d  33 29 20 54 69 70 24 3d  |(TipID%=3) Tip$=|
00001310  22 63 75 72 72 65 6e 74  77 69 6e 64 6f 77 25 20  |"currentwindow% |
00001320  3d 20 22 2b c3 28 63 75  72 72 65 6e 74 77 69 6e  |= "+.(currentwin|
00001330  64 6f 77 25 29 0d 06 72  24 e7 20 28 54 69 70 49  |dow%)..r$. (TipI|
00001340  44 25 3d 34 29 20 54 69  70 24 3d 47 6c 6f 62 61  |D%=4) Tip$=Globa|
00001350  6c 54 6f 6f 6c 54 69 70  24 0d 06 7c 33 f4 20 49  |lToolTip$..|3. I|
00001360  46 20 28 54 69 70 49 44  25 3d 31 29 20 54 69 70  |F (TipID%=1) Tip|
00001370  24 3d 22 61 66 74 65 72  25 20 3d 20 26 22 2b 53  |$="after% = &"+S|
00001380  54 52 24 7e 28 61 66 74  65 72 25 29 0d 06 86 1e  |TR$~(after%)....|
00001390  58 53 25 3d 28 a9 28 54  69 70 24 29 2a 31 36 29  |XS%=(.(Tip$)*16)|
000013a0  2b 32 30 3a 59 53 25 3d  34 30 0d 06 90 23 c8 99  |+20:YS%=40...#..|
000013b0  22 57 69 6d 70 5f 47 65  74 50 6f 69 6e 74 65 72  |"Wimp_GetPointer|
000013c0  49 6e 66 6f 22 2c 2c 62  6c 6f 63 6b 25 0d 06 9a  |Info",,block%...|
000013d0  27 f4 20 44 65 66 69 6e  65 20 73 63 72 65 65 6e  |'. Define screen|
000013e0  20 70 6f 73 69 74 69 6f  6e 20 6f 66 20 74 6f 6f  | position of too|
000013f0  6c 74 69 70 0d 06 a4 12  58 4f 66 66 73 65 74 25  |ltip....XOffset%|
00001400  3d 58 53 25 2f 32 0d 06  ae 1f e7 20 28 58 4f 66  |=XS%/2..... (XOf|
00001410  66 73 65 74 25 3e 33 32  29 20 58 4f 66 66 73 65  |fset%>32) XOffse|
00001420  74 25 3d 33 32 0d 06 b8  19 58 25 3d 28 21 62 6c  |t%=32....X%=(!bl|
00001430  6f 63 6b 25 29 2d 58 4f  66 66 73 65 74 25 0d 06  |ock%)-XOffset%..|
00001440  c2 14 59 25 3d 28 62 6c  6f 63 6b 25 21 34 29 2b  |..Y%=(block%!4)+|
00001450  32 34 0d 06 cc 12 f2 47  65 74 53 63 72 65 65 6e  |24.....GetScreen|
00001460  53 69 7a 65 0d 06 d6 25  e7 20 28 28 58 25 2b 58  |Size...%. ((X%+X|
00001470  53 25 29 3e 4f 53 5f 4d  58 25 29 20 58 25 3d 4f  |S%)>OS_MX%) X%=O|
00001480  53 5f 4d 58 25 2d 58 53  25 0d 06 e0 11 e7 20 28  |S_MX%-XS%..... (|
00001490  58 25 3c 30 29 20 58 25  3d 30 0d 06 ea 2e e7 20  |X%<0) X%=0..... |
000014a0  28 28 59 25 2b 59 53 25  29 3e 4f 53 5f 4d 59 25  |((Y%+YS%)>OS_MY%|
000014b0  29 20 59 25 3d 28 62 6c  6f 63 6b 25 21 34 29 2d  |) Y%=(block%!4)-|
000014c0  28 59 53 25 2b 32 34 29  0d 06 f4 1a f4 20 49 46  |(YS%+24)..... IF|
000014d0  20 28 28 59 25 2d 59 53  25 29 3c 30 29 20 59 25  | ((Y%-YS%)<0) Y%|
000014e0  3d 30 0d 06 fe 04 0d 07  08 21 f4 20 41 64 6a 75  |=0.......!. Adju|
000014f0  73 74 20 54 6f 6f 6c 74  69 70 20 77 69 6e 64 6f  |st Tooltip windo|
00001500  77 20 73 74 61 74 65 0d  07 12 1c 21 62 6c 6f 63  |w state....!bloc|
00001510  6b 25 3d 77 68 61 6e 64  6c 65 5f 74 6f 6f 6c 74  |k%=whandle_toolt|
00001520  69 70 25 0d 07 1c 23 c8  99 22 57 69 6d 70 5f 47  |ip%...#.."Wimp_G|
00001530  65 74 57 69 6e 64 6f 77  53 74 61 74 65 22 2c 2c  |etWindowState",,|
00001540  62 6c 6f 63 6b 25 0d 07  26 1c 21 62 6c 6f 63 6b  |block%..&.!block|
00001550  25 3d 77 68 61 6e 64 6c  65 5f 74 6f 6f 6c 74 69  |%=whandle_toolti|
00001560  70 25 0d 07 30 3d 62 6c  6f 63 6b 25 21 34 3d 58  |p%..0=block%!4=X|
00001570  25 3a 62 6c 6f 63 6b 25  21 38 3d 59 25 3a 62 6c  |%:block%!8=Y%:bl|
00001580  6f 63 6b 25 21 31 32 3d  58 25 2b 58 53 25 3a 62  |ock%!12=X%+XS%:b|
00001590  6c 6f 63 6b 25 21 31 36  3d 59 25 2b 59 53 25 0d  |lock%!16=Y%+YS%.|
000015a0  07 3a 2c 62 6c 6f 63 6b  25 21 32 30 3d 30 3a 62  |.:,block%!20=0:b|
000015b0  6c 6f 63 6b 25 21 32 34  3d 30 3a f4 20 53 63 72  |lock%!24=0:. Scr|
000015c0  6f 6c 6c 20 6f 66 66 73  65 74 73 0d 07 44 10 62  |oll offsets..D.b|
000015d0  6c 6f 63 6b 25 21 32 38  3d 2d 31 0d 07 4e 29 24  |lock%!28=-1..N)$|
000015e0  28 74 6f 6f 6c 74 69 70  69 63 6f 6e 25 2b 34 29  |(tooltipicon%+4)|
000015f0  3d 54 69 70 24 2b bd 30  3a f4 20 49 63 6f 6e 20  |=Tip$+.0:. Icon |
00001600  74 65 78 74 0d 07 58 1f  c8 99 22 57 69 6d 70 5f  |text..X..."Wimp_|
00001610  4f 70 65 6e 57 69 6e 64  6f 77 22 2c 2c 62 6c 6f  |OpenWindow",,blo|
00001620  63 6b 25 0d 07 62 13 54  6f 6f 6c 54 69 70 25 3d  |ck%..b.ToolTip%=|
00001630  54 69 70 49 44 25 0d 07  6c 14 74 6f 6f 6c 74 69  |TipID%..l.toolti|
00001640  70 5f 74 69 6d 65 72 25  3d 91 0d 07 76 05 e1 0d  |p_timer%=...v...|
00001650  07 80 04 0d 07 8a 12 dd  f2 43 6c 6f 73 65 54 6f  |.........CloseTo|
00001660  6f 6c 54 69 70 0d 07 94  14 e7 20 28 54 6f 6f 6c  |olTip..... (Tool|
00001670  54 69 70 25 3d 30 29 20  e1 0d 07 9e 1c 21 62 6c  |Tip%=0) .....!bl|
00001680  6f 63 6b 25 3d 77 68 61  6e 64 6c 65 5f 74 6f 6f  |ock%=whandle_too|
00001690  6c 74 69 70 25 0d 07 a8  23 c8 99 22 57 69 6d 70  |ltip%...#.."Wimp|
000016a0  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
000016b0  2c 2c 62 6c 6f 63 6b 25  0d 07 b2 1c 21 62 6c 6f  |,,block%....!blo|
000016c0  63 6b 25 3d 77 68 61 6e  64 6c 65 5f 74 6f 6f 6c  |ck%=whandle_tool|
000016d0  74 69 70 25 0d 07 bc 12  62 6c 6f 63 6b 25 21 38  |tip%....block%!8|
000016e0  3d 2d 31 30 32 34 0d 07  c6 13 62 6c 6f 63 6b 25  |=-1024....block%|
000016f0  21 31 36 3d 2d 31 30 32  34 0d 07 d0 1f c8 99 22  |!16=-1024......"|
00001700  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00001710  2c 2c 62 6c 6f 63 6b 25  0d 07 da 22 f4 53 59 53  |,,block%...".SYS|
00001720  22 57 69 6d 70 5f 43 6c  6f 73 65 57 69 6e 64 6f  |"Wimp_CloseWindo|
00001730  77 22 2c 2c 62 6c 6f 63  6b 25 0d 07 e4 24 f4 20  |w",,block%...$. |
00001740  53 59 53 22 57 69 6d 70  5f 44 65 6c 65 74 65 57  |SYS"Wimp_DeleteW|
00001750  69 6e 64 6f 77 22 2c 2c  62 6c 6f 63 6b 25 0d 07  |indow",,block%..|
00001760  ee 0e 54 6f 6f 6c 54 69  70 25 3d 30 0d 07 f8 05  |..ToolTip%=0....|
00001770  e1 0d 08 02 04 0d 08 0c  19 dd f2 50 65 72 73 69  |...........Persi|
00001780  73 74 43 6c 6f 73 65 54  6f 6f 6c 54 69 70 0d 08  |stCloseToolTip..|
00001790  16 14 e7 20 28 54 6f 6f  6c 54 69 70 25 3d 30 29  |... (ToolTip%=0)|
000017a0  20 e1 0d 08 20 18 4f 6c  64 54 6f 6f 6c 54 69 70  | ... .OldToolTip|
000017b0  25 3d 54 6f 6f 6c 54 69  70 25 0d 08 2a 1d f4 21  |%=ToolTip%..*..!|
000017c0  62 6c 6f 63 6b 25 3d 77  68 61 6e 64 6c 65 5f 74  |block%=whandle_t|
000017d0  6f 6f 6c 74 69 70 25 0d  08 34 22 f4 53 59 53 22  |ooltip%..4".SYS"|
000017e0  57 69 6d 70 5f 43 6c 6f  73 65 57 69 6e 64 6f 77  |Wimp_CloseWindow|
000017f0  22 2c 2c 62 6c 6f 63 6b  25 0d 08 3e 1c 21 62 6c  |",,block%..>.!bl|
00001800  6f 63 6b 25 3d 77 68 61  6e 64 6c 65 5f 74 6f 6f  |ock%=whandle_too|
00001810  6c 74 69 70 25 0d 08 48  23 c8 99 22 57 69 6d 70  |ltip%..H#.."Wimp|
00001820  5f 47 65 74 57 69 6e 64  6f 77 53 74 61 74 65 22  |_GetWindowState"|
00001830  2c 2c 62 6c 6f 63 6b 25  0d 08 52 1c 21 62 6c 6f  |,,block%..R.!blo|
00001840  63 6b 25 3d 77 68 61 6e  64 6c 65 5f 74 6f 6f 6c  |ck%=whandle_tool|
00001850  74 69 70 25 0d 08 5c 12  62 6c 6f 63 6b 25 21 38  |tip%..\.block%!8|
00001860  3d 2d 31 30 32 34 0d 08  66 13 62 6c 6f 63 6b 25  |=-1024..f.block%|
00001870  21 31 36 3d 2d 31 30 32  34 0d 08 70 1f c8 99 22  |!16=-1024..p..."|
00001880  57 69 6d 70 5f 4f 70 65  6e 57 69 6e 64 6f 77 22  |Wimp_OpenWindow"|
00001890  2c 2c 62 6c 6f 63 6b 25  0d 08 7a 24 f4 20 53 59  |,,block%..z$. SY|
000018a0  53 22 57 69 6d 70 5f 44  65 6c 65 74 65 57 69 6e  |S"Wimp_DeleteWin|
000018b0  64 6f 77 22 2c 2c 62 6c  6f 63 6b 25 0d 08 84 0e  |dow",,block%....|
000018c0  54 6f 6f 6c 54 69 70 25  3d 30 0d 08 8e 05 e1 0d  |ToolTip%=0......|
000018d0  08 98 04 0d ff                                    |.....|
000018d5

© Dominic Ford 2021–2025.

Our privacy policy is here.
Last updated: 01 May 2025, 21:49 UTC
Website designed by .