; $VER: Save As Default 1.0 (10.7.2004) Alex Carmona

Failat 10

Set Replace `RequestChoice TITLE "Save As Default" BODY "WARNING:*NDo you really want to replace the default theme with this one?" GADGETS "_Yes" "_No" TYPE WARNING`

If $Replace EQ 1

 If Exists ENV:Sys/Font.prefs
 Copy ENV:Sys/Font.prefs TO ENVARC:Sys QUIET
 Endif

 If Exists ENV:Sys/GUI.prefs
 Copy ENV:Sys/GUI.prefs TO ENVARC:Sys QUIET
 Endif

 If Exists ENV:Sys/Palette.prefs
 Copy ENV:Sys/Palette.prefs TO ENVARC:Sys QUIET
 Endif

 If Exists ENV:Sys/Pointer.prefs
 Copy ENV:Sys/Pointer.prefs TO ENVARC:Sys QUIET
 Endif

 If Exists ENV:Sys/PopupMenu.prefs
 Copy ENV:Sys/PopupMenu.prefs TO ENVARC:Sys QUIET
 Endif

 If Exists ENV:Sys/WBPattern.prefs
 Copy ENV:Sys/WBPattern.prefs TO ENVARC:Sys QUIET
 Endif

 If Exists ENV:Sys/Workbench.prefs
 Copy ENV:Sys/Workbench.prefs TO ENVARC:Sys QUIET
 Endif

Endif

Unset Replace

Quit
