WorkspaceApplication.st
changeset 15817 f6046130309e
parent 15816 64d953f953a1
child 15825 462e872a3fb6
child 15833 b058e6078d5a
--- a/WorkspaceApplication.st	Fri Aug 28 15:33:07 2015 +0200
+++ b/WorkspaceApplication.st	Fri Aug 28 15:45:58 2015 +0200
@@ -20,7 +20,8 @@
 		smalltalkMenuEnabledHolder clipBoardWatcherProcess
 		fetchClipboardLines cursorLineHolder cursorColHolder
 		modeLabelHolder toolBarView namespaceHolder
-		canChangeLanguageHolder cursorLineAndColumnInfoHolder'
+		canChangeLanguageHolder cursorLineAndColumnInfoHolder
+		cursorLineAndColumnLabelHolder'
 	classVariableNames:'LastFilterBlockString LastProcessingBlockString
 		LastGeneratorBlockString LastTeaWaitTime DefaultToolBarVisible
 		ClipBoardFetchingInstance LastLanguage MyWorkspaceOpened
@@ -583,8 +584,7 @@
                    layout: (LayoutFrame -50 1 0 0.0 0 1 0 1.0)
                    activeHelpKey: lineAndColumnLabel
                    level: -1
-                   translateLabel: true
-                   labelChannel: cursorLineAndColumnInfoHolder
+                   labelChannel: cursorLineAndColumnLabelHolder
                    adjust: left
                  )
                 )
@@ -2148,11 +2148,11 @@
     "Created: / 22-01-2011 / 11:36:08 / cg"
 !
 
-cursorLineAndColumnInfoHolder
-    cursorLineAndColumnInfoHolder isNil ifTrue:[
-        cursorLineAndColumnInfoHolder := IndirectValue for:(ValueHolder with:1)
+cursorLineAndColumnLabelHolder
+    cursorLineAndColumnLabelHolder isNil ifTrue:[
+        cursorLineAndColumnLabelHolder := IndirectValue for:(ValueHolder with:1)
     ].
-    ^ cursorLineAndColumnInfoHolder
+    ^ cursorLineAndColumnLabelHolder
 !
 
 cursorLineHolder
@@ -4418,12 +4418,12 @@
     self syntaxHolder value:(self syntaxFromEvaluatorClass:compilerClass).
 
     (selectedWorkspace notNil and:[ selectedWorkspace scrolledView isTextView or:[selectedWorkspaceApp notNil] ]) ifTrue:[
-        self cursorLineAndColumnInfoHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorLineAndColumnInfoHolder ifNotUnderstood:nil ).
+        self cursorLineAndColumnLabelHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorLineAndColumnLabelHolder ifNotUnderstood:nil ).
         self cursorLineHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorLineHolder ifNotUnderstood:nil ).
         self cursorColHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#cursorColHolder ifNotUnderstood:nil ).
         self modeLabelHolder valueHolder:( selectedWorkspaceApp ? selectedWorkspace perform:#modeLabelHolder ifNotUnderstood:nil ).
     ] ifFalse:[
-        self cursorLineAndColumnInfoHolder valueHolder:nil.
+        self cursorLineAndColumnLabelHolder valueHolder:nil.
         self cursorLineHolder valueHolder:nil.
         self cursorColHolder valueHolder:nil.
         self modeLabelHolder valueHolder:nil.