equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1994 by Claus Gittinger |
4 COPYRIGHT (c) 1994 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 |
10452 |
10454 |
10453 forceResize |
10455 forceResize |
10454 "force a recomputation of my size. |
10456 "force a recomputation of my size. |
10455 Call this, when elements where added to a subcomponent, |
10457 Call this, when elements where added to a subcomponent, |
10456 of which I cannot know. |
10458 of which I cannot know. |
10457 Eg. when someone gets the buttonPanel and adds an element to it" |
10459 Eg. when someone gets the buttonPanel or the verticalPanel and adds an element to it" |
10458 |
10460 |
10459 needResize := true. |
10461 needResize := true. |
10460 self resize |
10462 self resize |
10461 |
10463 |
10462 "Modified (comment): / 24-08-2017 / 16:56:50 / cg" |
10464 "Modified (comment): / 24-08-2017 / 16:56:50 / cg" |
|
10465 "Modified (comment): / 15-06-2018 / 12:26:12 / Claus Gittinger" |
10463 ! |
10466 ! |
10464 |
10467 |
10465 hideAndEvaluate:aBlock |
10468 hideAndEvaluate:aBlock |
10466 "if I am modal, make myself invisible and evaluate aBlock. |
10469 "if I am modal, make myself invisible and evaluate aBlock. |
10467 If nonModal, stay up, but also evaluate the block." |
10470 If nonModal, stay up, but also evaluate the block." |