checkin from browser
authorpenk
Wed, 09 Jul 2003 13:50:00 +0200
changeset 5027 d58f89caf66f
parent 5026 0eae1f1848ba
child 5028 a2d5198f514b
checkin from browser
FileBrowserV2SettingsAppl.st
--- a/FileBrowserV2SettingsAppl.st	Wed Jul 09 13:46:45 2003 +0200
+++ b/FileBrowserV2SettingsAppl.st	Wed Jul 09 13:50:00 2003 +0200
@@ -313,7 +313,7 @@
     |aspectList req writeToCurrentFileBrowser|
 
     aspectList := AbstractFileBrowser userPreferencesAspectList.
-    req := self requestor.
+    req := self settingsDialog.
     writeToCurrentFileBrowser := (req notNil and:[req isKindOf:AbstractFileBrowser]).
     aspectList do:[ :aAspect | |value|
         value := (self perform:aAspect) value.
@@ -338,7 +338,7 @@
 readSettings
     |req receiver aspectList|
 
-    req := self requestor.
+    req := self settingsDialog.
     receiver := (req notNil and:[req isKindOf:AbstractFileBrowser]) ifTrue:[
                 req
             ] ifFalse:[
@@ -549,7 +549,7 @@
 
     |aspectList req receiver|
 
-    req := self requestor.
+    req := self settingsDialog.
     receiver := (req notNil and:[req isKindOf:AbstractFileBrowser]) ifTrue:[
                 req
             ] ifFalse:[
@@ -568,5 +568,5 @@
 !FileBrowserV2SettingsAppl class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.9 2003-06-12 12:17:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.10 2003-07-09 11:50:00 penk Exp $'
 ! !