check if an event has been registered for when the drag ends..
?e_offset% =
shell_GetEventListOffset(wh%,-1,_U% + 72,24,
e_offset% >= 0
blk% = _U%!72 + e_offset%
name_ic% = blk%!16
1 _name$ =
shell_IconGetData(wh%,name_ic%)
temp% = blk%!20
$temp% <> ""
void% =
("FN" + $temp%+"(_name$)")
+*|Stop PROCshell_HandleAttachedDataSave
*|Start FNshell_InstallLib
shell_InstallLib( lib$ )
void%, mess$
mess$ = "The library routine 'FNshell_InstallLib' is no longer supported. Please load the library with the LIBRARY command and call the initialise routine with 'void% = FN_shell_<libname>_init'"
Cvoid% =
shell_MessageWindow( mess$,
shell_GetAppName, "" )
_closedown% =
LOCAL file_handle%
LOCAL ERROR
file_handle% = OPENIN( lib$ )
IF file_handle% = 0 THEN CLOSE# file_handle% : ERROR 1, "Unable to install " + lib$
CLOSE# file_handle%
LIBRARY lib$
lib$ = RIGHT$( lib$, 10 )
WHILE INSTR( lib$, "." )
lib$ = MID$( lib$, INSTR( lib$, "." ) + 1 )
ENDWHILE
ON ERROR MODE12:PRINT"FN_shell_" + lib$ + "_Init not found":END