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