--- a/ListModelView.st	Thu Aug 23 10:32:58 2001 +0200
+++ b/ListModelView.st	Sat Sep 01 14:25:48 2001 +0200
@@ -702,25 +702,22 @@
     |a1 a2|
 
     args isCollection ifFalse:[
-                 what == #at:     ifTrue:[self lineChangedAt:args        with:nil]
-        ifFalse:[what == #insert: ifTrue:[self listChangedInsert:args  nItems:1]
-        ifFalse:[what == #remove: ifTrue:[self listChangedRemove:args toIndex:args]]]
-    ] ifTrue:[
-        a1 := args at:1.
-        a2 := args at:2.
+        what == #at:     ifTrue:[self lineChangedAt:args        with:nil.  ^ self].
+        what == #insert: ifTrue:[self listChangedInsert:args  nItems:1.    ^ self].
+        what == #remove: ifTrue:[self listChangedRemove:args toIndex:args. ^ self].
+        ^ self.
+    ].
 
-                 what == #at:               ifTrue:[self lineChangedAt:a1        with:a2]
-        ifFalse:[what == #insertCollection: ifTrue:[self listChangedInsert:a1  nItems:a2]
-        ifFalse:[what == #removeFrom:       ifTrue:[self listChangedRemove:a1 toIndex:a2]
-        ifFalse:[what == #replace: ifTrue:[
-            a1 to:a2 do:[:i|self lineChangedAt:i with:nil]
-        ]]]]
-    ]
+    a1 := args at:1.
+    a2 := args at:2.
 
-
-
-
-
+    what == #at:               ifTrue:[self lineChangedAt:a1        with:a2. ^ self].
+    what == #insertCollection: ifTrue:[self listChangedInsert:a1  nItems:a2. ^ self].
+    what == #removeFrom:       ifTrue:[self listChangedRemove:a1 toIndex:a2. ^ self].
+    what == #replace:          ifTrue:[
+        a1 to:a2 do:[:i|self lineChangedAt:i with:nil].
+        ^ self
+    ].
 !
 
 update:what with:aPara from:chgObj
@@ -1634,6 +1631,6 @@
 !ListModelView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.51 2001-03-07 15:37:09 martin Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ListModelView.st,v 1.52 2001-09-01 12:25:48 cg Exp $'
 ! !
 ListModelView initialize!