--- a/DragAndDropManager.st	Sun Mar 09 23:06:15 2008 +0100
+++ b/DragAndDropManager.st	Mon Mar 10 10:21:15 2008 +0100
@@ -1177,7 +1177,10 @@
 !DragAndDropManager methodsFor:'drawing'!
 
 displayObjectFor:anObject on:aDevice
-    "converts an object to a display object"
+    "converts an object to a display object.
+     CG (to CA): this is an ugly hack and must be fixed to be OO,
+                 in sending something like #asDragAndDropDisplayObjectOn:aDevice
+                 to anObject, and doing all specific optimizations there."
 
     |obj s1 s2|
 
@@ -1580,7 +1583,7 @@
 !DragAndDropManager class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.74 2007-12-03 09:56:28 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.75 2008-03-10 09:21:15 cg Exp $'
 ! !
 
 DragAndDropManager initialize!