--- a/ObjectView.st	Tue Jul 26 13:38:52 2005 +0200
+++ b/ObjectView.st	Thu Aug 11 15:57:45 2005 +0200
@@ -1400,6 +1400,9 @@
 
         "/ if the motion is more than mouseMotionDeltaForMove
         "/ or the time-delta is longer than timeDeltaForMove
+        buttonPressTime isNil ifTrue: [
+            buttonPressTime := Time now.
+        ].
         (Timestamp now millisecondDeltaFrom:buttonPressTime) > self class mouseMotionTimeDeltaForMove ifFalse:[
             inMotion == true ifTrue:[
                 minDeltaForMotion := 1
@@ -3375,5 +3378,5 @@
 !ObjectView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.110 2005-07-22 16:09:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg/ObjectView.st,v 1.111 2005-08-11 13:57:45 ab Exp $'
 ! !