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