--- a/SettingsDialog.st	Mon Dec 16 18:22:55 2002 +0100
+++ b/SettingsDialog.st	Mon Dec 16 18:24:12 2002 +0100
@@ -337,7 +337,9 @@
 
     item := self selectedItem value.
     (item isNil or:[item isCategory or:[item application isNil]]) ifTrue:[ ^ self].
-    item application saveSettings.
+    self withWaitCursorDo:[
+        item application saveSettings.
+    ].
 !
 
 help
@@ -706,7 +708,7 @@
 
     |fileName resources|
 
-    resources := self class owningClass classResources.
+    resources := AbstractLauncherApplication classResources.
 
     fileName := Dialog 
         requestFileName:(resources string:'Save settings in:') 
@@ -732,7 +734,7 @@
 
     |resources s screen currentUserPrefs|
 
-    resources := self class owningClass classResources.
+    resources := AbstractSettingsApplication classResources.
 
     s := fileName asFilename writeStream.
     s isNil ifTrue:[
@@ -1062,5 +1064,5 @@
 !SettingsDialog class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.2 2002-12-16 09:07:29 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SettingsDialog.st,v 1.3 2002-12-16 17:24:12 penk Exp $'
 ! !