diff -r 965cfbbf4bf2 -r bf884041701f UIObjectView.st
--- a/UIObjectView.st	Tue Mar 30 21:09:38 1999 +0200
+++ b/UIObjectView.st	Wed Mar 31 08:17:28 1999 +0200
@@ -13,9 +13,9 @@
 
 
 ObjectView subclass:#UIObjectView
-	instanceVariableNames:'saveSelection inputView enableChannel undoHistory copiedExtent
-		copiedLayout resizeData clipChildren selectionHiddenLevel
-		gridParameters setOfSuperViewsSizeChanged'
+	instanceVariableNames:'saveSelection inputView undoHistory copiedExtent copiedLayout
+		resizeData clipChildren selectionHiddenLevel gridParameters
+		setOfSuperViewsSizeChanged'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-UIPainter'
@@ -297,12 +297,6 @@
 
 !UIObjectView methodsFor:'accessing'!
 
-enableChannel
-    "returns the channel which keeps false if running test otherwise true
-    "
-  ^ enableChannel
-!
-
 gridAlign
     "returns state of aligning to grid
     "
@@ -392,6 +386,26 @@
 
 !UIObjectView methodsFor:'accessing behavior'!
 
+enableStateChanged
+    "set the modification / test mode
+    "
+    |aState|
+
+    (aState := enableChannel value) ifFalse:[
+        aState ifFalse:[
+            saveSelection := self selection.
+            self select:nil.
+            inputView unmap.
+        ] ifTrue:[
+            inputView raise.
+            inputView realize.
+            self select:saveSelection.
+        ]
+    ]
+
+    "Created: / 30.3.1999 / 16:17:24 / stefan"
+!
+
 enabled
     ^ enableChannel value
 !
@@ -399,22 +413,10 @@
 enabled:aState
     "set the modification / test mode
     "
-    (aState == enableChannel value) ifFalse:[
-        aState ifFalse:[
-            saveSelection := self selection.
-            self select:nil.
-            enableChannel value:aState.
-            inputView unmap.
-        ] ifTrue:[
-            inputView raise.
-            inputView realize.
-            enableChannel value:aState.
-            self select:saveSelection.
-        ]
-    ]
-
-
-
+
+    enableChannel value:aState
+
+    "Modified: / 30.3.1999 / 16:18:12 / stefan"
 !
 
 resetModification
@@ -567,7 +569,7 @@
     self setDefaultActions.
 
     undoHistory          := UndoHistory on:self.
-    enableChannel        := true asValue.
+    self enableChannel:(true asValue).
     clipChildren         := true.
     selectionHiddenLevel := 0.
 
@@ -576,6 +578,7 @@
     ].
 
     "Modified: / 20.7.1998 / 18:14:51 / cg"
+    "Modified: / 30.3.1999 / 16:19:15 / stefan"
 !
 
 map