FileBrowserV2.st
changeset 7798 77d5be1c9620
parent 7727 207a1b502e5b
child 7842 8f4607f5a4a1
--- a/FileBrowserV2.st	Mon May 21 14:21:20 2007 +0200
+++ b/FileBrowserV2.st	Mon May 21 15:12:12 2007 +0200
@@ -1682,22 +1682,42 @@
             ].
         ]
     ].
-    anEvent isButtonMultiPressEvent ifTrue:[
-        anEvent view name = 'LineLabel' ifTrue:[
-            self 
-                applicationNamed:#FileApplicationNoteBook
-                ifPresentDo:[:appl |
-                    |subApp|
+
+    (anEvent isButtonPressEvent or:[anEvent isButtonMultiPressEvent]) ifTrue:[
+        self 
+            applicationNamed:#FileApplicationNoteBook
+            ifPresentDo:[:appl |
+                |subApp eventView viewsName|
+
+                subApp := appl selectedApplication.
+                subApp notNil ifTrue:[
+                    eventView := anEvent view.
+                    viewsName := eventView name.
 
-                    subApp := appl selectedApplication.
-                    subApp notNil ifTrue:[
-                        subApp editView gotoLine
-                    ]
+                    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
+                            ].
+                        ].
+                    ].
                 ].
-        ].
+            ].
     ].
 
     ^ false
+
+    "Modified: / 17-05-2007 / 09:12:53 / cg"
 ! !
 
 !FileBrowserV2 methodsFor:'menu accessing'!
@@ -1849,7 +1869,7 @@
 !FileBrowserV2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.170 2007-03-12 09:55:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowserV2.st,v 1.171 2007-05-21 13:12:12 cg Exp $'
 ! !
 
 FileBrowserV2 initialize!