equal
deleted
inserted
replaced
387 !UIObjectView methodsFor:'accessing behavior'! |
387 !UIObjectView methodsFor:'accessing behavior'! |
388 |
388 |
389 enableStateChanged |
389 enableStateChanged |
390 "set the modification / test mode |
390 "set the modification / test mode |
391 " |
391 " |
392 |aState| |
392 self shown ifTrue:[ |
393 |
393 enableChannel value ifFalse:[ |
394 (aState := enableChannel value) ifFalse:[ |
394 saveSelection := selection. |
395 aState ifFalse:[ |
395 self hideSelection. |
396 saveSelection := self selection. |
396 selection := nil. |
397 self select:nil. |
|
398 inputView unmap. |
397 inputView unmap. |
399 ] ifTrue:[ |
398 ] ifTrue:[ |
400 inputView raise. |
399 inputView raise. |
401 inputView realize. |
400 inputView realize. |
402 self select:saveSelection. |
401 selection := saveSelection. |
|
402 self showSelection |
403 ] |
403 ] |
404 ] |
404 ] |
405 |
405 |
406 "Created: / 30.3.1999 / 16:17:24 / stefan" |
406 "Created: / 30.3.1999 / 16:17:24 / stefan" |
407 ! |
407 ! |
434 ! |
434 ! |
435 |
435 |
436 testMode:aBoolean |
436 testMode:aBoolean |
437 "change test mode |
437 "change test mode |
438 " |
438 " |
439 self enabled:(aBoolean not) |
439 enableChannel value:(aBoolean not) |
440 ! ! |
440 ! ! |
441 |
441 |
442 !UIObjectView methodsFor:'blocked'! |
442 !UIObjectView methodsFor:'blocked'! |
443 |
443 |
444 addObject:anObject |
444 addObject:anObject |