#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Wed, 18 Jul 2018 13:35:20 +0200
changeset 18271 f30308d770d0
parent 18270 07b44c3ea287
child 18274 78c789c6c2bf
#REFACTORING by cg class: FileApplicationNoteBook changed: #cursorColLabelHolder #cursorLineAndColumnLabelHolder #cursorLineLabelHolder #fileEncodingHolder #inputTabColumnConversionHolder #lineEndConventionHolder #lockFileEncodingHolder #modeLabelHolder #modeLabelMenuHolder
FileApplicationNoteBook.st
--- 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