--- a/FilenameEditFieldV2.st Wed Dec 21 16:36:29 2005 +0100
+++ b/FilenameEditFieldV2.st Wed Dec 21 17:33:39 2005 +0100
@@ -196,7 +196,7 @@
].
self contents:newString addSeparatorToDirectories:isMultiMatch not.
- self cursorToEndOfLine.
+ myEditor cursorToEndOfLine.
]
].
@@ -205,11 +205,10 @@
!
realize
- "move the cursor to the end - thats the most interesting part of
- a filename
+ "move the cursor to the end - thats the most interesting part of a filename
"
super realize.
- self cursorToEndOfLine.
+ self editor cursorToEndOfLine.
"Created: 24.7.1997 / 18:21:51 / cg"
! !
@@ -220,14 +219,16 @@
"catch keyEvents in pulled menu (see redefined pullMenu-method).
Return true, if I have eaten the event"
+ |wg|
activeMenu notNil ifTrue:[
anEvent isKeyPressEvent ifTrue:[
anEvent key isCharacter ifTrue:[
"/ activeMenu windowGroup removePreEventHook:self.
- self windowGroup focusView:field.
- self windowGroup sensor pushEvent:anEvent.
+ wg := self windowGroup.
+ wg focusView:field.
+ wg sensor pushEvent:anEvent.
WindowGroup leaveSignal raiseRequest.
self error:'should not be reached'.
]
@@ -276,5 +277,5 @@
!FilenameEditFieldV2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.11 2005-04-14 09:12:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/FilenameEditFieldV2.st,v 1.12 2005-12-21 16:33:39 cg Exp $'
! !