home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ST-Computer Leser 2002 January
/
STC_CD_01_2002.iso
/
APP
/
WIN98
/
SOURCEGF
/
USERWORK.LST
next >
Wrap
File List
|
2002-01-14
|
513b
|
24 lines
> PROCEDURE user_rsc_var_init
' snap_windows!=TRUE
quit_alert!=TRUE
'
LET regkey_var$="Enter Registration Key Here" ! max Länge: 28 - Baum: info&
'
RETURN
> PROCEDURE user_on_open
~@win_open_dialog(1,info&,-1)
RETURN
> PROCEDURE user_rsc_interact(index&,tree&,object&,mc&,sub_me&)
SELECT tree&
CASE info&
SELECT object&
CASE 12,14
~@alert_standard(1,6,"")
@win_close_dialog(info&)
exit_program!=TRUE
CASE validate&
~@alert_standard(1,5,"")
ENDSELECT
ENDSELECT
RETURN