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