equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
446 ^ false |
448 ^ false |
447 |
449 |
448 |
450 |
449 ! ! |
451 ! ! |
450 |
452 |
451 !PanelView methodsFor:'initialization'! |
453 !PanelView methodsFor:'initialization & release'! |
452 |
454 |
453 initialize |
455 initialize |
454 <modifier: #super> "must be called if redefined" |
456 <modifier: #super> "must be called if redefined" |
455 |
457 |
456 super initialize. |
458 super initialize. |
475 realize |
477 realize |
476 mustRearrange ifTrue:[ |
478 mustRearrange ifTrue:[ |
477 self setChildPositions |
479 self setChildPositions |
478 ]. |
480 ]. |
479 super realize |
481 super realize |
|
482 ! |
|
483 |
|
484 release |
|
485 backgroundChannel notNil ifTrue:[ |
|
486 backgroundChannel retractInterestsFor:self. |
|
487 backgroundChannel removeDependent:self. backgroundChannel := nil |
|
488 ]. |
|
489 super release |
480 ! |
490 ! |
481 |
491 |
482 resize |
492 resize |
483 super resize. |
493 super resize. |
484 mustRearrange ifTrue:[ |
494 mustRearrange ifTrue:[ |