FilenameEditFieldV2.st
changeset 6446 5d2119be7b34
parent 6250 5b0673ccff1c
child 8798 7c48ce02da90
--- 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 $'
 ! !