FileBrowserV2.st
changeset 13681 a138cfefd5bd
parent 13276 15e6702f9c45
child 13854 4b62c02ef738
--- a/FileBrowserV2.st	Wed Nov 20 04:26:00 2013 +0000
+++ b/FileBrowserV2.st	Wed Nov 20 10:28:17 2013 +0100
@@ -1742,53 +1742,56 @@
     |focusView key rawKey fileName|
 
     anEvent isKeyPressEvent ifTrue:[
-	focusView := anEvent targetView.
-	key := anEvent key.
-	rawKey := anEvent rawKey.
+        focusView := anEvent targetView.
+        key := anEvent key.
+        rawKey := anEvent rawKey.
 
-	(focusView isSameOrComponentOf:self window) ifTrue:[
+        (focusView isSameOrComponentOf:self window) ifTrue:[
 
-	    (focusView == pathEntryField) ifFalse:[ ^ false].
+            (focusView == pathEntryField) ifFalse:[ ^ false].
 
-	    (key == #Return) ifTrue:[
-		fileName := pathEntryField list first asFilename.
-		(fileName exists and:[fileName isDirectory not]) ifTrue:[
-		    self openApplForFile:fileName
-		].
-	    ].
-	]
+            (key == #Return) ifTrue:[
+                fileName := pathEntryField list first asFilename.
+                (fileName exists and:[fileName isDirectory not]) ifTrue:[
+                    self openApplForFile:fileName
+                ].
+            ].
+        ]
     ].
 
     (anEvent isButtonPressEvent or:[anEvent isButtonMultiPressEvent]) ifTrue:[
-	self
-	    applicationNamed:#FileApplicationNoteBook
-	    ifPresentDo:[:appl |
-		|subApp eventView viewsName|
+        self
+            applicationNamed:#FileApplicationNoteBook
+            ifPresentDo:[:appl |
+                |subApp editor eventView viewsName|
 
-		subApp := appl selectedApplication.
-		subApp notNil ifTrue:[
-		    eventView := anEvent view.
-		    viewsName := eventView name.
+                subApp := appl selectedApplication.
+                subApp notNil ifTrue:[
+                    eventView := anEvent view.
+                    viewsName := eventView name.
 
-		    anEvent isButtonMultiPressEvent ifTrue:[
-			viewsName = 'LineLabel' ifTrue:[
-			    subApp editView gotoLine
-			].
-			viewsName = 'ModeLabel' ifTrue:[
-			    eventView activateMenu
-			].
-			viewsName = 'EncodingLabel' ifTrue:[
-			    eventView activateMenu
-			].
-		    ] ifFalse:[
-			anEvent button == 2 ifTrue:[
-			    eventView name = 'LineLabel' ifTrue:[
-				subApp editView gotoLine
-			    ].
-			].
-		    ].
-		].
-	    ].
+                    anEvent isButtonMultiPressEvent ifTrue:[
+                        viewsName = 'LineLabel' ifTrue:[
+                            editor := subApp perform:#editView ifNotUnderstood:nil.
+                            editor notNil ifTrue:[
+                                editor gotoLine
+                            ].
+                        ].
+                        viewsName = 'ModeLabel' ifTrue:[
+                            eventView activateMenu
+                        ].
+                        viewsName = 'EncodingLabel' ifTrue:[
+                            eventView activateMenu
+                        ].
+                    ] ifFalse:[
+                        anEvent button == 2 ifTrue:[
+                            eventView name = 'LineLabel' ifTrue:[
+                                subApp editView gotoLine
+                            ].
+                        ].
+                    ].
+                ].
+            ].
     ].
 
     ^ false
@@ -2027,7 +2030,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.212 2013-07-31 10:27:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.213 2013-11-20 09:28:17 cg Exp $'
 ! !