--- a/DSVColumnView.st	Mon Jan 31 15:01:20 2000 +0100
+++ b/DSVColumnView.st	Mon Jan 31 16:32:54 2000 +0100
@@ -27,7 +27,7 @@
 		checkToggleLevel comboButtonExtent comboButtonForm
 		comboButtonLevel clickPosition dragAccessPoint dragIsActive
 		dropTarget dropSource columnAdaptor tabAtEndAction
-		tabAtStartAction'
+		tabAtStartAction modifiedChannel'
 	classVariableNames:'DefaultForegroundColor DefaultBackgroundColor
 		DefaultHilightForegroundColor DefaultHilightBackgroundColor
 		ButtonLightColor ButtonShadowColor CheckToggleActiveImage
@@ -339,6 +339,22 @@
     ]
 !
 
+modifiedChannel
+    "return the value of the instance variable 'modifiedChannel' (automatically generated)"
+
+    ^ modifiedChannel
+
+    "Created: / 30.1.2000 / 12:10:57 / cg"
+!
+
+modifiedChannel:something
+    "set the value of the instance variable 'modifiedChannel' (automatically generated)"
+
+    modifiedChannel := something.
+
+    "Created: / 30.1.2000 / 12:10:57 / cg"
+!
+
 rowFontAscent
     "returns the inset of a printable text in a row
     "
@@ -1261,6 +1277,9 @@
             "/ update my input fields modelValue
             editValue value:realValue.
         ].
+        modifiedChannel notNil ifTrue:[
+            modifiedChannel value:true.
+        ].
         ^ self
     ].
 
@@ -1327,7 +1346,7 @@
     row := (what isNumber) ifTrue:[what] ifFalse:[chgObj].
     self redrawVisibleRow:row readSelector:arg1.
 
-    "Modified: / 15.10.1999 / 10:12:00 / cg"
+    "Modified: / 30.1.2000 / 12:16:49 / cg"
 ! !
 
 !DSVColumnView methodsFor:'drag & drop'!
@@ -3134,7 +3153,10 @@
                     ]
                 ]
             ].
-           (self columnAt:oldCol) at:oldRow put:edValue.
+            (self columnAt:oldCol) at:oldRow put:edValue.
+            modifiedChannel notNil ifTrue:[
+                modifiedChannel value:true
+            ].
             editValue := nil
         ].
         self destroyEditView.
@@ -3206,7 +3228,7 @@
         self windowGroup processExposeEvents
     ].
 
-
+    "Modified: / 30.1.2000 / 12:18:25 / cg"
 !
 
 validateSelection:aSelection
@@ -3245,5 +3267,5 @@
 !DSVColumnView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.96 2000-01-14 13:54:32 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/DSVColumnView.st,v 1.97 2000-01-31 15:32:54 cg Exp $'
 ! !