--- a/FileBrowserV2.st Thu Jan 18 22:08:56 2007 +0100
+++ b/FileBrowserV2.st Fri Jan 19 00:44:31 2007 +0100
@@ -13,7 +13,7 @@
AbstractFileBrowser subclass:#FileBrowserV2
instanceVariableNames:'fileEntryFieldHolder pathEntryField previewProcess
- listOfDeviceDrives selectedDeviceDrive imgView'
+ listOfDeviceDrives selectedDeviceDrive imgView colLabel lineLabel'
classVariableNames:''
poolDictionaries:''
category:'Interface-Tools-File'
@@ -703,8 +703,8 @@
level: -1
translateLabel: true
labelChannel: modeLabelHolder
+ adjust: right
postBuildCallback: postBuildEditModeInfoLabel:
- adjust: right
)
(LabelSpec
label: 'L'
@@ -715,6 +715,7 @@
translateLabel: true
labelChannel: cursorLineLabelHolder
adjust: right
+ postBuildCallback: postBuildLineLabel:
)
(LabelSpec
label: 'C'
@@ -760,8 +761,6 @@
)
)
-
- "Modified: / 11-09-2006 / 12:24:32 / cg"
! !
!FileBrowserV2 class methodsFor:'menu specs'!
@@ -1704,6 +1703,21 @@
].
]
].
+ anEvent isButtonMultiPressEvent ifTrue:[
+ anEvent view == lineLabel ifTrue:[
+ self
+ applicationNamed:#FileApplicationNoteBook
+ ifPresentDo:[:appl |
+ |subApp|
+
+ subApp := appl selectedApplication.
+ subApp notNil ifTrue:[
+ subApp editView gotoLine
+ ]
+ ].
+ ].
+ ].
+
^ false
! !
@@ -1826,6 +1840,10 @@
self filterBackgroundColor value:aWidget backgroundColor.
!
+postBuildLineLabel:aWidget
+ lineLabel := aWidget
+!
+
postBuildPathViewBox:aWidget
aWidget backgroundColor:(MenuPanel defaultBackgroundColor).
@@ -1856,7 +1874,7 @@
!FileBrowserV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.160 2006-12-04 12:17:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.161 2007-01-18 23:44:31 cg Exp $'
! !
FileBrowserV2 initialize!