--- a/UIObjectView.st Wed Mar 31 18:27:20 1999 +0200
+++ b/UIObjectView.st Thu Apr 01 15:30:20 1999 +0200
@@ -389,17 +389,17 @@
enableStateChanged
"set the modification / test mode
"
- |aState|
-
- (aState := enableChannel value) ifFalse:[
- aState ifFalse:[
- saveSelection := self selection.
- self select:nil.
+ self shown ifTrue:[
+ enableChannel value ifFalse:[
+ saveSelection := selection.
+ self hideSelection.
+ selection := nil.
inputView unmap.
] ifTrue:[
inputView raise.
inputView realize.
- self select:saveSelection.
+ selection := saveSelection.
+ self showSelection
]
]
@@ -436,7 +436,7 @@
testMode:aBoolean
"change test mode
"
- self enabled:(aBoolean not)
+ enableChannel value:(aBoolean not)
! !
!UIObjectView methodsFor:'blocked'!