home *** CD-ROM | disk | FTP | other *** search
- /* $VER: AutoConfig macro */
-
- OPTIONS RESULTS /* enable return codes */
-
- if (LEFT(ADDRESS(), 6) ~= "GOLDED") then /* not started by GoldEd ? */
- address 'GOLDED.1'
-
- 'LOCK CURRENT' /* lock GUI, gain access */
- OPTIONS FAILAT 6 /* ignore warnings */
- SIGNAL ON SYNTAX /* ensure clean exit */
-
- /* ------------------------ INSERT YOUR CODE HERE: ------------------- */
-
- 'REQUEST BODY="A new syntax parser has been installed.|Do you want to use this parser ?" BUTTON="_USE|no"'
-
- if (RESULT = 1) then do
-
- 'SYNTAX LOAD CONFIG="GOLDED:presets/warpC++.syn" USE=TRUE'
-
- 'REQUEST HIDE=FALSE BODY="GoldED''s preferences have been changed.|Save new configuration ?" BUTTON="_SAVE|no"'
-
- if (RESULT = 1) then
- 'PREFS SAVE'
- end
-
- /* ---------------------------- END OF YOUR CODE --------------------- */
-
- 'UNLOCK' /* VERY important: unlock GUI */
- EXIT
-
- SYNTAX:
-
- SAY "Sorry, error line" SIGL ":" ERRORTEXT(RC) ":-("
- 'UNLOCK'
- EXIT
-