--- 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