--- a/Tools__NavigationState.st Fri Feb 13 12:09:04 2015 +0100
+++ b/Tools__NavigationState.st Fri Feb 13 12:12:40 2015 +0100
@@ -200,14 +200,14 @@
editorNoteBookCanvasHolder
editorNoteBookCanvasHolder isNil ifTrue:[
- editorNoteBookCanvasHolder := nil asValue.
+ editorNoteBookCanvasHolder := ValueHolder with:nil.
].
^ editorNoteBookCanvasHolder
!
editorNoteBookListHolder
editorNoteBookListHolder isNil ifTrue:[
- editorNoteBookListHolder := #() asValue.
+ editorNoteBookListHolder := ValueHolder with:#().
].
^ editorNoteBookListHolder
!
@@ -286,7 +286,7 @@
selectedEditorNoteBookTabIndexHolder
selectedEditorNoteBookTabIndexHolder isNil ifTrue:[
- selectedEditorNoteBookTabIndexHolder := 1 asValue.
+ selectedEditorNoteBookTabIndexHolder := ValueHolder with:1.
].
^ selectedEditorNoteBookTabIndexHolder
!
@@ -637,7 +637,7 @@
categoryList
categoryList isNil ifTrue:[
- categoryList := nil asValue.
+ categoryList := ValueHolder with:nil.
].
^ categoryList
@@ -647,7 +647,7 @@
categoryListGenerator
categoryListGenerator isNil ifTrue:[
- categoryListGenerator := nil asValue.
+ categoryListGenerator := ValueHolder with:nil.
].
^ categoryListGenerator
@@ -657,22 +657,21 @@
classDocumentationHolder
classDocumentationHolder isNil ifTrue:[
- classDocumentationHolder := nil asValue.
+ classDocumentationHolder := ValueHolder with:nil.
].
^ classDocumentationHolder
!
classHierarchyTopClass
classHierarchyTopClass isNil ifTrue:[
- classHierarchyTopClass := nil asValue.
+ classHierarchyTopClass := ValueHolder with:nil.
].
^ classHierarchyTopClass
-
!
classList
classList isNil ifTrue:[
- classList := nil asValue.
+ classList := ValueHolder with:nil.
].
^ classList
@@ -681,16 +680,14 @@
classListGenerator
classListGenerator isNil ifTrue:[
- classListGenerator := nil asValue.
+ classListGenerator := ValueHolder with:nil.
].
^ classListGenerator
-
-
!
classListPerNameSpaceGenerator
classListPerNameSpaceGenerator isNil ifTrue:[
- classListPerNameSpaceGenerator := nil asValue.
+ classListPerNameSpaceGenerator := ValueHolder with:nil.
].
^ classListPerNameSpaceGenerator
@@ -699,15 +696,14 @@
codeHolder
codeHolder isNil ifTrue:[
- codeHolder := nil asValue.
+ codeHolder := ValueHolder with:nil.
].
^ codeHolder
-
!
codeModifiedHolder
codeModifiedHolder isNil ifTrue:[
- codeModifiedHolder := false asValue.
+ codeModifiedHolder := ValueHolder with:false.
].
^ codeModifiedHolder
!
@@ -743,7 +739,7 @@
filterClassVars
filterClassVars isNil ifTrue:[
- filterClassVars := false asValue.
+ filterClassVars := ValueHolder with:false.
].
^ filterClassVars
@@ -752,7 +748,7 @@
hidePrivateClasses
hidePrivateClasses isNil ifTrue:[
- hidePrivateClasses := false asValue.
+ hidePrivateClasses := ValueHolder with:false.
].
^ hidePrivateClasses
@@ -761,7 +757,7 @@
infoLabelHolder
infoLabelHolder isNil ifTrue:[
- infoLabelHolder := '' asValue.
+ infoLabelHolder := ValueHolder with:''.
].
^ infoLabelHolder
!
@@ -821,26 +817,23 @@
meta
meta isNil ifTrue:[
- meta := false asValue.
+ meta := ValueHolder with:false.
].
^ meta
-
-
!
metaToggleLabelHolder
metaToggleLabel isNil ifTrue:[
- metaToggleLabel := 'Class' asValue.
+ metaToggleLabel := ValueHolder with:'Class'.
].
^ metaToggleLabel
!
methodInfo
methodInfo isNil ifTrue:[
- methodInfo := nil asValue.
+ methodInfo := ValueHolder with:nil.
].
^ methodInfo
-
!
methodList
@@ -861,7 +854,7 @@
nameSpaceFilter
nameSpaceFilter isNil ifTrue:[
- nameSpaceFilter := nil asValue.
+ nameSpaceFilter := ValueHolder with:nil.
].
^ nameSpaceFilter
@@ -870,7 +863,7 @@
nameSpaceListGenerator
nameSpaceListGenerator isNil ifTrue:[
- nameSpaceListGenerator := nil asValue.
+ nameSpaceListGenerator := ValueHolder with:nil.
].
^ nameSpaceListGenerator
@@ -890,7 +883,7 @@
noAllItem
noAllItem isNil ifTrue:[
- noAllItem := nil asValue.
+ noAllItem := ValueHolder with:nil.
].
^ noAllItem
!
@@ -911,7 +904,7 @@
packageFilter
packageFilter isNil ifTrue:[
- packageFilter := nil asValue.
+ packageFilter := ValueHolder with:nil.
].
^ packageFilter
@@ -921,7 +914,7 @@
packageInfoBackgroundColorHolder
packageInfoBackgroundColorHolder isNil ifTrue:[
- packageInfoBackgroundColorHolder := nil asValue.
+ packageInfoBackgroundColorHolder := ValueHolder with:nil.
].
^ packageInfoBackgroundColorHolder
@@ -930,14 +923,14 @@
packageLabelHolder
packageLabelHolder isNil ifTrue:[
- packageLabelHolder := '' asValue.
+ packageLabelHolder := ValueHolder with:''.
].
^ packageLabelHolder
!
pluginVisibleHolder
pluginVisibleHolder isNil ifTrue:[
- pluginVisibleHolder := false asValue.
+ pluginVisibleHolder := ValueHolder with:false.
].
^ pluginVisibleHolder
@@ -977,7 +970,7 @@
projectListGenerator
projectListGenerator isNil ifTrue:[
- projectListGenerator := nil asValue.
+ projectListGenerator := ValueHolder with:nil.
].
^ projectListGenerator
@@ -987,17 +980,16 @@
protocolListGenerator
protocolListGenerator isNil ifTrue:[
- protocolListGenerator := nil asValue.
+ protocolListGenerator := ValueHolder with:nil.
].
^ protocolListGenerator
-
!
selectedCategories
"a value holder on the currently selected class categories"
selectedCategories isNil ifTrue:[
- selectedCategories := nil asValue.
+ selectedCategories := ValueHolder with:nil.
].
^ selectedCategories
!
@@ -1006,7 +998,7 @@
"a value holder on the currently selected classes"
selectedClasses isNil ifTrue:[
- selectedClasses := "SpecialValueHolder with:nil." nil asValue.
+ selectedClasses := "SpecialValueHolder with:nil." ValueHolder with:nil.
].
^ selectedClasses
@@ -1017,7 +1009,7 @@
"a value holder on the currently selected lint rules"
selectedLintRules isNil ifTrue:[
- selectedLintRules := nil asValue.
+ selectedLintRules := ValueHolder with:nil.
].
^ selectedLintRules
@@ -1028,7 +1020,7 @@
"a value holder on the currently selected methods"
selectedMethods isNil ifTrue:[
- selectedMethods := nil asValue.
+ selectedMethods := ValueHolder with:nil.
].
^ selectedMethods
!
@@ -1053,7 +1045,7 @@
"a value holder on the currently selected namespaces"
selectedNamespaces isNil ifTrue:[
- selectedNamespaces := nil asValue.
+ selectedNamespaces := ValueHolder with:nil.
].
^ selectedNamespaces
!
@@ -1062,7 +1054,7 @@
"a value holder on the currently selected projects"
selectedProjects isNil ifTrue:[
- selectedProjects := nil asValue.
+ selectedProjects := ValueHolder with:nil.
].
^ selectedProjects
!
@@ -1071,7 +1063,7 @@
"a value holder on the currently selected protocols"
selectedProtocols isNil ifTrue:[
- selectedProtocols := nil asValue.
+ selectedProtocols := ValueHolder with:nil.
].
^ selectedProtocols
!
@@ -1080,7 +1072,7 @@
"a value holder on the current selector generator"
selectorListGenerator isNil ifTrue:[
- selectorListGenerator := nil asValue.
+ selectorListGenerator := ValueHolder with:nil.
].
^ selectorListGenerator
!
@@ -1107,7 +1099,7 @@
sortBy
sortBy isNil ifTrue:[
- sortBy := nil asValue.
+ sortBy := ValueHolder with:nil.
].
^ sortBy
!
@@ -1203,14 +1195,13 @@
variableFilter
variableFilter isNil ifTrue:[
- variableFilter := nil asValue.
+ variableFilter := ValueHolder with:nil.
].
^ variableFilter
"Created: / 24.2.2000 / 23:45:28 / cg"
! !
-
!NavigationState methodsFor:'aspects-kludges'!
metaToggle
@@ -1731,15 +1722,15 @@
!NavigationState class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.57 2014-12-02 21:08:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.58 2015-02-13 11:12:40 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.57 2014-12-02 21:08:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationState.st,v 1.58 2015-02-13 11:12:40 cg Exp $'
!
version_SVN
- ^ '$Id: Tools__NavigationState.st,v 1.57 2014-12-02 21:08:21 cg Exp $'
+ ^ '$Id: Tools__NavigationState.st,v 1.58 2015-02-13 11:12:40 cg Exp $'
! !