diff -r 86a9efd53284 -r 171c7e762935 FileBrowserV2.st
--- 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!