--- a/Tools_ProjectList.st	Sat Mar 20 16:42:11 2004 +0100
+++ b/Tools_ProjectList.st	Sat Mar 20 16:45:22 2004 +0100
@@ -361,23 +361,23 @@
     item isNil ifTrue:[^ nil].
 
     item canExpand ifTrue:[
-	now := AbsoluteTime now.
-	overItem := dropInfo at:#overItem ifAbsentPut:[item].
-	timeOverItem := dropInfo at:#timeOverItem ifAbsentPut:[now].
+        now := Timestamp now.
+        overItem := dropInfo at:#overItem ifAbsentPut:[item].
+        timeOverItem := dropInfo at:#timeOverItem ifAbsentPut:[now].
 
-	overItem ~~ item ifTrue:[
-	    dropInfo at:#timeOverItem put:now.
-	    dropInfo at:#overItem put:item.
-	    aDropContext passiveAction:[ self packageAtTargetPointOf:aDropContext ].
-	] ifFalse:[
-	    (now millisecondDeltaFrom:timeOverItem) >= (UserPreferences current timeToAutoExpandItemsWhenDraggingOver) ifTrue:[
-		aDropContext saveDraw:[ item expand. packageListView repairDamage ].
-		dropInfo removeKey:#timeOverItem.
-		dropInfo removeKey:#overItem.
-	    ] ifFalse:[
-		aDropContext passiveAction:[ self packageAtTargetPointOf:aDropContext ].
-	    ]
-	].
+        overItem ~~ item ifTrue:[
+            dropInfo at:#timeOverItem put:now.
+            dropInfo at:#overItem put:item.
+            aDropContext passiveAction:[ self packageAtTargetPointOf:aDropContext ].
+        ] ifFalse:[
+            (now millisecondDeltaFrom:timeOverItem) >= (UserPreferences current timeToAutoExpandItemsWhenDraggingOver) ifTrue:[
+                aDropContext saveDraw:[ item expand. packageListView repairDamage ].
+                dropInfo removeKey:#timeOverItem.
+                dropInfo removeKey:#overItem.
+            ] ifFalse:[
+                aDropContext passiveAction:[ self packageAtTargetPointOf:aDropContext ].
+            ]
+        ].
     ].
 
     package := item package.
@@ -619,5 +619,5 @@
 !ProjectList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.2 2004-02-26 19:03:55 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ProjectList.st,v 1.3 2004-03-20 15:45:22 stefan Exp $'
 ! !