--- a/AbstractDirectoryBrowser.st	Tue Apr 08 18:30:00 2003 +0200
+++ b/AbstractDirectoryBrowser.st	Tue Apr 08 18:30:48 2003 +0200
@@ -116,11 +116,18 @@
 !
 
 initiateAutoScrollDownFor:aDropContext
-    self window sensor pushUserEvent:#autoScrollDownForDrop: for:self withArgument:aDropContext.
+    self pushUserEvent:#autoScrollDownForDrop: withArgument:aDropContext.
 !
 
 initiateAutoScrollUpFor:aDropContext
-    self window sensor pushUserEvent:#autoScrollUpForDrop: for:self withArgument:aDropContext
+    self pushUserEvent:#autoScrollUpForDrop: withArgument:aDropContext
+!
+
+pushUserEvent:selector withArgument:argument
+    self window sensor 
+        pushUserEvent:selector 
+        for:self 
+        withArgument:argument
 ! !
 
 !AbstractDirectoryBrowser methodsFor:'file actions'!
@@ -183,5 +190,5 @@
 !AbstractDirectoryBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.5 2003-04-02 21:34:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractDirectoryBrowser.st,v 1.6 2003-04-08 16:30:48 cg Exp $'
 ! !