--- a/FileBrowserV2SettingsAppl.st Fri Feb 13 11:54:10 2015 +0100
+++ b/FileBrowserV2SettingsAppl.st Fri Feb 13 11:56:36 2015 +0100
@@ -442,7 +442,7 @@
alwaysUseSmalltalkTools
alwaysUseSmalltalkTools isNil ifTrue:[
- alwaysUseSmalltalkTools := true asValue.
+ alwaysUseSmalltalkTools := ValueHolder with:true.
alwaysUseSmalltalkTools onChangeSend:#updateModifiedChannel to:self
].
^ alwaysUseSmalltalkTools
@@ -450,7 +450,7 @@
filenameEntryFieldVisibleHolder
filenameEntryFieldVisibleHolder isNil ifTrue:[
- filenameEntryFieldVisibleHolder := true asValue.
+ filenameEntryFieldVisibleHolder := ValueHolder with:true.
filenameEntryFieldVisibleHolder onChangeSend:#updateModifiedChannel
to:self
].
@@ -459,7 +459,7 @@
openAlwaysInTextEditor
openAlwaysInTextEditor isNil ifTrue:[
- openAlwaysInTextEditor := true asValue.
+ openAlwaysInTextEditor := ValueHolder with:true.
openAlwaysInTextEditor onChangeSend:#updateModifiedChannel to:self
].
^ openAlwaysInTextEditor
@@ -467,7 +467,7 @@
openMultipleApplicationsForType
openMultipleApplicationsForType isNil ifTrue:[
- openMultipleApplicationsForType := true asValue.
+ openMultipleApplicationsForType := ValueHolder with:true.
openMultipleApplicationsForType onChangeSend:#updateModifiedChannel
to:self
].
@@ -476,7 +476,7 @@
showDirectoriesOnTop
showDirectoriesOnTop isNil ifTrue:[
- showDirectoriesOnTop := true asValue.
+ showDirectoriesOnTop := ValueHolder with:true.
showDirectoriesOnTop onChangeSend:#updateModifiedChannel to:self
].
^ showDirectoriesOnTop
@@ -486,7 +486,7 @@
showDirectoryTree
showDirectoryTree isNil ifTrue:[
- showDirectoryTree := true asValue.
+ showDirectoryTree := ValueHolder with:true.
showDirectoryTree onChangeSend:#updateModifiedChannel to:self
].
^ showDirectoryTree
@@ -494,7 +494,7 @@
showHiddenFiles
showHiddenFiles isNil ifTrue:[
- showHiddenFiles := true asValue.
+ showHiddenFiles := ValueHolder with:true.
showHiddenFiles onChangeSend:#updateModifiedChannel to:self
].
^ showHiddenFiles
@@ -504,7 +504,7 @@
sortCaseless
sortCaseless isNil ifTrue:[
- sortCaseless := true asValue.
+ sortCaseless := ValueHolder with:true.
sortCaseless onChangeSend:#updateModifiedChannel to:self
].
^ sortCaseless
@@ -512,7 +512,7 @@
sortDirectoriesBeforeFiles
sortDirectoriesBeforeFiles isNil ifTrue:[
- sortDirectoriesBeforeFiles := true asValue.
+ sortDirectoriesBeforeFiles := ValueHolder with:true.
sortDirectoriesBeforeFiles onChangeSend:#updateModifiedChannel to:self
].
^ sortDirectoriesBeforeFiles
@@ -520,7 +520,7 @@
toolBarVisibleHolder
toolBarVisibleHolder isNil ifTrue:[
- toolBarVisibleHolder := true asValue.
+ toolBarVisibleHolder := ValueHolder with:true.
toolBarVisibleHolder onChangeSend:#updateModifiedChannel to:self
].
^ toolBarVisibleHolder
@@ -529,7 +529,7 @@
useCodeView2InTools
"/ obsolete - will vanish
useCodeView2InTools isNil ifTrue:[
- useCodeView2InTools := true asValue.
+ useCodeView2InTools := ValueHolder with:true.
useCodeView2InTools onChangeSend:#updateModifiedChannel to:self
].
^ useCodeView2InTools
@@ -539,7 +539,7 @@
viewDescription
viewDescription isNil ifTrue:[
- viewDescription := false asValue.
+ viewDescription := ValueHolder with:false.
viewDescription onChangeSend:#updateModifiedChannel to:self
].
^ viewDescription
@@ -547,7 +547,7 @@
viewDetails
viewDetails isNil ifTrue:[
- viewDetails := true asValue.
+ viewDetails := ValueHolder with:true.
viewDetails onChangeSend:#updateModifiedChannel to:self
].
^ viewDetails
@@ -555,7 +555,7 @@
viewDirectoryDescription
viewDirectoryDescription isNil ifTrue:[
- viewDirectoryDescription := true asValue.
+ viewDirectoryDescription := ValueHolder with:true.
viewDirectoryDescription onChangeSend:#updateModifiedChannel to:self
].
^ viewDirectoryDescription
@@ -563,7 +563,7 @@
viewDirsInContentsBrowser
viewDirsInContentsBrowser isNil ifTrue:[
- viewDirsInContentsBrowser := true asValue.
+ viewDirsInContentsBrowser := ValueHolder with:true.
viewDirsInContentsBrowser onChangeSend:#updateModifiedChannel to:self
].
^ viewDirsInContentsBrowser
@@ -571,7 +571,7 @@
viewFilesInDirectoryTree
viewFilesInDirectoryTree isNil ifTrue:[
- viewFilesInDirectoryTree := true asValue.
+ viewFilesInDirectoryTree := ValueHolder with:true.
viewFilesInDirectoryTree onChangeSend:#updateModifiedChannel to:self
].
^ viewFilesInDirectoryTree
@@ -579,7 +579,7 @@
viewGroup
viewGroup isNil ifTrue:[
- viewGroup := true asValue.
+ viewGroup := ValueHolder with:true.
viewGroup onChangeSend:#updateModifiedChannel to:self
].
^ viewGroup
@@ -587,7 +587,7 @@
viewOwner
viewOwner isNil ifTrue:[
- viewOwner := true asValue.
+ viewOwner := ValueHolder with:true.
viewOwner onChangeSend:#updateModifiedChannel to:self
].
^ viewOwner
@@ -595,7 +595,7 @@
viewPermissions
viewPermissions isNil ifTrue:[
- viewPermissions := true asValue.
+ viewPermissions := ValueHolder with:true.
viewPermissions onChangeSend:#updateModifiedChannel to:self
].
^ viewPermissions
@@ -603,7 +603,7 @@
viewPreview
viewPreview isNil ifTrue:[
- viewPreview := true asValue.
+ viewPreview := ValueHolder with:true.
viewPreview onChangeSend:#updateModifiedChannel to:self
].
^ viewPreview
@@ -611,7 +611,7 @@
viewSize
viewSize isNil ifTrue:[
- viewSize := true asValue.
+ viewSize := ValueHolder with:true.
viewSize onChangeSend:#updateModifiedChannel to:self
].
^ viewSize
@@ -619,7 +619,7 @@
viewSizeInBytes
viewSizeInBytes isNil ifTrue:[
- viewSizeInBytes := false asValue.
+ viewSizeInBytes := ValueHolder with:false.
viewSizeInBytes onChangeSend:#updateModifiedChannel to:self
].
^ viewSizeInBytes
@@ -627,7 +627,7 @@
viewSizeInKiloBytes
viewSizeInKiloBytes isNil ifTrue:[
- viewSizeInKiloBytes := false asValue.
+ viewSizeInKiloBytes := ValueHolder with:false.
viewSizeInKiloBytes onChangeSend:#updateModifiedChannel to:self
].
^ viewSizeInKiloBytes
@@ -635,7 +635,7 @@
viewTime
viewTime isNil ifTrue:[
- viewTime := true asValue.
+ viewTime := ValueHolder with:true.
viewTime onChangeSend:#updateModifiedChannel to:self
].
^ viewTime
@@ -643,7 +643,7 @@
viewType
viewType isNil ifTrue:[
- viewType := true asValue.
+ viewType := ValueHolder with:true.
viewType onChangeSend:#updateModifiedChannel to:self
].
^ viewType
@@ -675,10 +675,10 @@
!FileBrowserV2SettingsAppl class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.37 2015-01-27 12:36:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.38 2015-02-13 10:56:36 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.37 2015-01-27 12:36:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2SettingsAppl.st,v 1.38 2015-02-13 10:56:36 cg Exp $'
! !