home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 107 / af107sub.adf / gui4cli.LZX / Gui4Cli / Tools / Config.gc < prev    next >
Text File  |  2003-12-15  |  3KB  |  117 lines
  1. G4C
  2.  
  3.  
  4. WINBIG 61 11 505 163 "Players Configuration"
  5. wintype 11110001
  6.  
  7. BOX 0 0 0 0 out button
  8.  
  9. xonload
  10. gosub Config.gc loadprefs
  11. guiopen Config.gc
  12.  
  13. xonclose
  14. ifexists file env:.dir.prefs
  15.     delete env:.dir.prefs
  16. endif
  17. guiquit Config.gc
  18.  
  19. ; -------------- the listview
  20.  
  21. XLISTVIEW 6 4 493 124 "" cfg_lvline "" 0 txt
  22. gadid 1
  23. gadfont topaz.font 8 000
  24. cgf_lvnum = $$LV.LINE
  25. cutvar cfg_lvline cut word 1 cfg_var    ; get variable name
  26. cutvar cfg_lvline cut word 1 ""         ; cut off the = character
  27. extract cfg_lvline unquote cfg_prog     ; clean-up program name
  28. update Config.gc 2 $cfg_prog
  29. setgad Config.gc 2 on
  30.  
  31. ; -------------- The buttons
  32.  
  33. XBUTTON 10 145 100 14 "Save"
  34. gosub Config.gc saveprefs
  35. guiquit Config.gc
  36.  
  37.  
  38. XBUTTON 115 145 100 14 "Use"
  39. guiquit Config.gc
  40.  
  41.  
  42. XBUTTON 455 145 20 14 "<"
  43. lvuse Config.gc 1
  44. lvmove -5
  45.  
  46.  
  47. XBUTTON 475 145 20 14 ">"
  48. lvuse Config.gc 1
  49. lvmove 5
  50.  
  51.  
  52. XTEXTIN 10 130 486 14 "" cfg_prog "" 512
  53. gadid 2
  54. gosub Config.gc updatelist
  55.  
  56.  
  57. XBUTTON 365 145 87 14 "Browse"
  58. reqfile -1 -1 300 -40 "Select File..." load cfg_prog SYS:
  59. update Config.gc 2 $cfg_prog
  60. setgad Config.gc 2 on
  61. gosub Config.gc updatelist
  62.  
  63.  
  64. ; -------------- Routines
  65.  
  66. xroutine loadprefs
  67. setvar .dir.prefs ""
  68. gosub Config.gc addprefs
  69. lvuse Config.gc 1
  70. lvchange env:.dir.prefs
  71.  
  72. xroutine saveprefs
  73. setvar .dir.prefs "G4C - Players\n\nxOnLoad\n"
  74. gosub  Config.gc addprefs
  75. append env:.dir.prefs "GuiQuit Players\n" 
  76. copy env:.dir.prefs guis:tools/prefs/players
  77.  
  78. xroutine addprefs
  79. append env:.dir.prefs '*DEF.EDITOR    = \"$*DEF.EDITOR\"\n'
  80. append env:.dir.prefs '*DEF.GUIDE     = \"$*DEF.GUIDE\"\n'
  81. append env:.dir.prefs '*DEF.HTML      = \"$*DEF.HTML\"\n'
  82. append env:.dir.prefs '*DEF.PAINT     = \"$*DEF.PAINT\"\n'
  83. append env:.dir.prefs '*DEF.GFXCON    = \"$*DEF.GFXCON\"\n'
  84. append env:.dir.prefs '*DEF.GFXED     = \"$*DEF.GFXED\"\n'
  85. append env:.dir.prefs '*DEF.GFX       = \"$*DEF.GFX\"\n'
  86. append env:.dir.prefs '*DEF.ILBM      = \"$*DEF.ILBM\"\n'
  87. append env:.dir.prefs '*DEF.PPM       = \"$*DEF.PPM\"\n'
  88. append env:.dir.prefs '*DEF.TGA       = \"$*DEF.TGA\"\n'
  89. append env:.dir.prefs '*DEF.PNG       = \"$*DEF.PNG\"\n'
  90. append env:.dir.prefs '*DEF.GIF       = \"$*DEF.GIF\"\n'
  91. append env:.dir.prefs '*DEF.JPG       = \"$*DEF.JPG\"\n'
  92. append env:.dir.prefs '*DEF.ANIM      = \"$*DEF.ANIM\"\n'
  93. append env:.dir.prefs '*DEF.FLC       = \"$*DEF.FLC\"\n'
  94. append env:.dir.prefs '*DEF.QT        = \"$*DEF.QT\"\n'
  95. append env:.dir.prefs '*DEF.AVI       = \"$*DEF.AVI\"\n'
  96. append env:.dir.prefs '*DEF.MPG       = \"$*DEF.MPG\"\n'
  97. ; append env:.dir.prefs '*DEF.8SVX      = \"$*DEF.8SVX\"\n' ; discontinued ?
  98. append env:.dir.prefs '*DEF.SMPL      = \"$*DEF.SMPL\"\n'
  99. append env:.dir.prefs '*DEF.MOD       = \"$*DEF.MOD\"\n'
  100. append env:.dir.prefs '*DEF.MPGA      = \"$*DEF.MPGA\"\n'
  101. append env:.dir.prefs '*DEF.LHA       = \"$*DEF.LHA\"\n'
  102. append env:.dir.prefs '*DEF.ZIP       = \"$*DEF.ZIP\"\n'
  103. append env:.dir.prefs '*DEF.UNZIP     = \"$*DEF.UNZIP\"\n'
  104. append env:.dir.prefs '*DEF.HEX       = \"$*DEF.HEX\"\n'
  105. append env:.dir.prefs '*DEF.PP        = \"$*DEF.PP\"\n'
  106. append env:.dir.prefs '*DEF.FONT      = \"$*DEF.FONT\"\n'
  107. append env:.dir.prefs '*DEF.DT        = \"$*DEF.DT\"\n'
  108.  
  109. xroutine updatelist
  110. setvar $cfg_var '$cfg_prog'
  111. setvar .dir.prefs ""
  112. gosub Config.gc addprefs
  113. lvuse Config.gc 1
  114. lvchange env:.dir.prefs
  115.  
  116.  
  117.