--- 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 $'
! !