home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Utilities / Disk / CMInstall / CLIMasterII / modules / fled.g < prev    next >
Encoding:
Gui4CLI script  |  1998-06-24  |  939 b   |  62 lines
  1. G4C
  2.  
  3. winbig -1 -1 250 112  "Function List Editor"
  4. winsmall -1 -1 250 112
  5. wintype 11010001
  6. usetopaz
  7. varpath "climaster/*"
  8.  
  9. xonload
  10. guiopen fled.g
  11.  
  12. xonopen
  13. gosub routine.g funclist
  14. lvuse fled.g 1
  15. lvchange env:flist
  16. lvsort asc
  17. lvuse fled.g 2
  18. ifexists file cmst:config/functions
  19.     lvchange cmst:config/functions
  20. endif
  21.  
  22. xonclose
  23. lvuse climaster $cm_srce
  24. delete env:flist
  25. guiquit fled.g
  26.  
  27. xlistview 0 12 125 100 '' func '' 0 txt
  28. gadid 1
  29. lvuse fled.g 2
  30. lvsearch $func ci first
  31. if $$lv.rec != $func
  32.     lvadd $func
  33. else
  34.     stop
  35. endif
  36. lvsort asc
  37.  
  38. xlistview 125 12 125 100 '' '' '' 0 txt
  39. gadid 2
  40. lvdel -1
  41.  
  42. xbutton 0 0 60 12 All
  43. lvuse fled.g 2
  44. lvchange env:flist
  45. lvsort asc
  46.  
  47. xbutton 60 0 60 12 Clear
  48. lvuse fled.g 2
  49. lvclear
  50.  
  51. xbutton 120 0 60 12 Save
  52. lvuse fled.g 2
  53. lvsave cmst:config/functions
  54. lvuse climaster 6
  55. ifexists file cmst:config/functions
  56.     lvchange cmst:config/functions
  57. endif
  58. guiclose fled.g
  59.  
  60. xbutton 180 0 70 12 Cancel
  61. guiclose fled.g
  62.