--- 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.