/* $VER: SetLessonDefaults.rexx 1.1 (24.03.95)
   Copyright 1995 Soft-Logik Publishing Corporation
   May not be distributed without Soft-Logik Publishing Corporation's express written permission */

/* SAME OLD STUFF */
OPTIONS RESULTS
TRACE OFF
ADDRESS COMMAND
/* Make sure rexx support is opened */
IF ~SHOW('L','rexxsupport.library') THEN
   CALL ADDLIB('rexxsupport.library',0,-30)

ADDRESS 'PAGESTREAM'

/* Must save out user's current printing prefs and then reload them,
   because loading a settings file will erase their print prefs */
saveprintprefs file 't:lessonprint.prefs'
loadsettings file 'pagestream3:macros/setlessondefaults.prefs'
loadprintprefs file 't:lessonprint.prefs'

/* Allocate requester */
allocarexxrequester '"Lesson Defaults"' 424 71
    reqhandle=result
/* Add gadgets */
addarexxgadget reqhandle EXIT 177 54 70 label "_Ok"
    addhandle=result
addarexxgadget reqhandle TEXT 8 10 408 border none string "'You are now ready to do lessons 1, 2 or 5. Note'"
addarexxgadget reqhandle TEXT 8 20 408 border none string "'that the features required for lessons 3 and 4 are'"
addarexxgadget reqhandle TEXT 8 30 408 border none string "'not fully implemented in this version.'"
doarexxrequester reqhandle
freearexxrequester reqhandle

ADDRESS COMMAND
'delete t:lessonprint.prefs >NIL:'