--- a/DropContext.st	Mon Oct 06 17:41:00 2003 +0200
+++ b/DropContext.st	Mon Oct 06 17:50:31 2003 +0200
@@ -77,8 +77,8 @@
 !
 
 dropObjects
-    "returns the collection of droppable objects
-    "
+    "returns the collection of dropobjects"
+
     ^ dropObjects ? #()
 !
 
@@ -87,42 +87,42 @@
 !
 
 rootPoint
-    "returns the absolute point on the screen (rootPoint)
-    "
+    "returns the absolute point on the screen (rootPoint)"
+
     ^ rootPoint
 ! !
 
 !DropContext methodsFor:'accessing-source'!
 
 dropSource
-    "returns the drop source or nil
-    "
+    "returns the drop source or nil"
+
     ^ dropSource
 !
 
 sourceWidget
-    "returns the source widget the drag is started from
-    "
+    "returns the source widget the drag is started from"
+
     ^ sourceWidget
 ! !
 
 !DropContext methodsFor:'accessing-target'!
 
 dropTarget
-    "returns the drop target or nil
-    "
+    "returns the drop target or nil"
+
     ^ dropTarget
 !
 
 targetId
-    "returns the id of the target widget
-    "
+    "returns the id of the target widget"
+
     ^ targetId
 !
 
 targetPoint
-    "returns the relative point on the target widget
-    "
+    "returns the relative point on the target widget"
+
     |trn pnt dev|
 
     dev := sourceWidget device.
@@ -137,16 +137,16 @@
 !
 
 targetWidget
-    "returns the widget assigned to the current dropTarget
-    "
+    "returns the widget assigned to the current dropTarget"
+
     ^ targetWidget
 ! !
 
 !DropContext methodsFor:'actions'!
 
 doDrop
-    "evaluate the drop operation; set the feedBack
-    "
+    "evaluate the drop operation; set the feedBack"
+
     hasDropped := self canDrop.
 
     self isAlienView ifFalse:[
@@ -198,20 +198,18 @@
 
 contentsWillChange
     "called by the dropTarget-widget if the contents will change during a
-     dragAndDrop operation
-    "
+     dragAndDrop operation"
+
     dragHandler notNil ifTrue:[
         dragHandler dropTargetWillChange
     ]
-
-
 ! !
 
 !DropContext methodsFor:'drag & drop manager interface'!
 
 dropObjects:something
-    "set the collection of droppable objects
-    "
+    "set the collection of dropobjects"
+
     something notNil ifTrue:[
         dropObjects := something isCollection ifTrue:[something]
                                              ifFalse:[Array with:something]
@@ -219,33 +217,33 @@
 !
 
 dropSource:aDropSource
-    "set the dropSource
-    "
+    "set the dropSource"
+
     dropSource := aDropSource.
 !
 
 dropTarget:aDropTargetOrNil
-    "set a new drop target
-    "
+    "set a new drop target"
+
     dropTarget := aDropTargetOrNil.
 !
 
 rootPoint:something
-    "set the absolute point on the screen (rootPoint); called by the drag
-     and drop manager
-    "
+    "set the absolute point on the screen (rootPoint); 
+     called by the drag and drop manager"
+
     rootPoint := something.
 !
 
 sourceWidget:aView
-    "set the source widget the drag is started from
-    "
+    "set the source widget the drag is started from"
+
     sourceWidget := aView.
 !
 
 targetWidget:aViewOrNil id:anId
-    "set a new drop widget
-    "
+    "set a new drop widget"
+
     targetWidget := aViewOrNil.
     targetId     := anId.
 ! !
@@ -253,8 +251,8 @@
 !DropContext methodsFor:'queries'!
 
 canDrop
-    "returns true if current dropTarget can drop draggable objects
-    "
+    "returns true if current dropTarget can drop draggable objects"
+
     ^ dropTarget notNil ifTrue:[dropTarget canDrop:self] ifFalse:[false]
 !
 
@@ -271,14 +269,14 @@
 !
 
 isAlienView
-    "returns true if current dropTarget is not a ST/X view
-    "
+    "returns true if current dropTarget is not an ST/X view"
+
     ^ targetWidget isNil
 !
 
 isRootView
-    "returns true if the current target widget is the root view (screen)
-    "
+    "returns true if the current target widget is the root view (screen)"
+
     ^ targetWidget notNil ifTrue:[targetWidget isRootView]
                          ifFalse:[false]
 ! !
@@ -286,5 +284,5 @@
 !DropContext class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.7 2003-03-30 13:03:51 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DropContext.st,v 1.8 2003-10-06 15:50:31 cg Exp $'
 ! !