#REFACTORING by cg
class: FileApplicationNoteBook
changed:
#cursorColLabelHolder
#cursorLineAndColumnLabelHolder
#cursorLineLabelHolder
#fileEncodingHolder
#inputTabColumnConversionHolder
#lineEndConventionHolder
#lockFileEncodingHolder
#modeLabelHolder
#modeLabelMenuHolder
--- a/FileApplicationNoteBook.st Tue Jul 17 13:40:33 2018 +0200
+++ b/FileApplicationNoteBook.st Wed Jul 18 13:35:20 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 2002 by eXept Software AG
All Rights Reserved
@@ -956,71 +954,91 @@
!
cursorColLabelHolder
+ <resource: #uiAspect>
+
^ self
aspectFor:#cursorColLabelHolder
ifAbsent:[
- IndirectValue for:(' ' asValue)
+ IndirectValue for:(ValueHolder with:' ')
]
+
+ "Modified: / 18-07-2018 / 10:34:01 / Claus Gittinger"
!
cursorLineAndColumnLabelHolder
+ <resource: #uiAspect>
+
^ self
aspectFor:#cursorLineAndColumnLabelHolder
ifAbsent:[
- IndirectValue for:(' ' asValue)
+ IndirectValue for:(ValueHolder with:' ')
]
+
+ "Modified: / 18-07-2018 / 10:34:04 / Claus Gittinger"
!
cursorLineLabelHolder
+ <resource: #uiAspect>
+
^ self
aspectFor:#cursorLineLabelHolder
ifAbsent:[
- IndirectValue for:(' ' asValue)
+ IndirectValue for:(ValueHolder with:' ')
]
+
+ "Modified: / 18-07-2018 / 10:34:06 / Claus Gittinger"
!
fileEncodingHolder
^ self
aspectFor:#fileEncodingHolder
ifAbsent:[
- IndirectValue for:('iso8859-1' asValue)
+ IndirectValue for:(ValueHolder with:'iso8859-1')
]
+
+ "Modified: / 18-07-2018 / 10:32:33 / Claus Gittinger"
!
inputTabColumnConversionHolder
^ self
aspectFor:#inputTabColumnConversionHolder
ifAbsent:[
- IndirectValue for:(8 asValue)
+ IndirectValue for:(ValueHolder with:8)
]
"Created: / 06-01-2012 / 15:26:32 / cg"
+ "Modified: / 18-07-2018 / 10:32:28 / Claus Gittinger"
!
lineEndConventionHolder
^ self
aspectFor:#lineEndConventionHolder
ifAbsent:[
- IndirectValue for:(#'nl' asValue)
+ IndirectValue for:(ValueHolder with:#'nl')
]
"Created: / 06-01-2012 / 13:03:24 / cg"
+ "Modified: / 18-07-2018 / 10:32:21 / Claus Gittinger"
!
lockFileEncodingHolder
^ self
aspectFor:#lockFileEncodingHolder
ifAbsent:[
- IndirectValue for:(false asValue)
+ IndirectValue for:(ValueHolder with:false)
]
+
+ "Modified: / 18-07-2018 / 10:32:13 / Claus Gittinger"
!
modeLabelHolder
^ self
aspectFor:#modeLabelHolder
ifAbsent:[
- IndirectValue for:(' ' asValue)
+ IndirectValue for:(ValueHolder with:' ')
]
+
+ "Modified: / 18-07-2018 / 10:32:00 / Claus Gittinger"
!
modeLabelMenu
@@ -1037,11 +1055,10 @@
modeLabelMenuHolder
^ self
aspectFor:#modeLabelMenuHolder
- ifAbsent:[
- IndirectValue for:(nil asValue)
- ]
+ ifAbsent:[ IndirectValue for:(ValueHolder new) ]
"Created: / 11-09-2006 / 12:28:08 / cg"
+ "Modified: / 18-07-2018 / 10:31:47 / Claus Gittinger"
!
privateTabList