changeset 6221 | c7b2afbe561d |
parent 6208 | 15a6a6d337de |
child 6236 | e3a66d6c4017 |
6220:319368c35cb9 | 6221:c7b2afbe561d |
---|---|
10051 reAdjustGeometry |
10051 reAdjustGeometry |
10052 "sent late in snapin processing - gives me a chance |
10052 "sent late in snapin processing - gives me a chance |
10053 to resize for changed font dimensions." |
10053 to resize for changed font dimensions." |
10054 |
10054 |
10055 super reAdjustGeometry. |
10055 super reAdjustGeometry. |
10056 |
|
10056 okButton notNil ifTrue:[okButton resize]. |
10057 okButton notNil ifTrue:[okButton resize]. |
10057 abortButton notNil ifTrue:[abortButton resize]. |
10058 abortButton notNil ifTrue:[abortButton resize]. |
10059 |
|
10058 self resize |
10060 self resize |
10061 |
|
10062 "Modified: / 22-10-2017 / 01:26:24 / cg" |
|
10059 ! ! |
10063 ! ! |
10060 |
10064 |
10061 !DialogBox methodsFor:'layout control'! |
10065 !DialogBox methodsFor:'layout control'! |
10062 |
10066 |
10063 bottomAlign:widgets |
10067 bottomAlign:widgets |
10550 h := h |
10554 h := h |
10551 + p y |
10555 + p y |
10552 + ViewSpacing. |
10556 + ViewSpacing. |
10553 ]. |
10557 ]. |
10554 |
10558 |
10559 verticalPanel notNil ifTrue:[ |
|
10560 w := w max:vPanelExt x. |
|
10561 ]. |
|
10562 |
|
10555 "/ okButton isNil ifTrue:[ |
10563 "/ okButton isNil ifTrue:[ |
10556 "/ ^ super preferredExtent |
10564 "/ ^ super preferredExtent |
10557 "/ ]. |
10565 "/ ]. |
10558 "/ p := buttonPanel preferredExtent. |
10566 "/ p := buttonPanel preferredExtent. |
10559 "/ w := p x. |
10567 "/ w := p x. |
10561 "/ + p y |
10569 "/ + p y |
10562 "/ + ViewSpacing. |
10570 "/ + ViewSpacing. |
10563 "/ |
10571 "/ |
10564 ^ w @ h |
10572 ^ w @ h |
10565 |
10573 |
10566 "Modified: / 24-08-2017 / 16:52:00 / cg" |
10574 "Modified: / 22-10-2017 / 01:29:03 / cg" |
10567 ! |
10575 ! |
10568 |
10576 |
10569 specificationFor:aKey |
10577 specificationFor:aKey |
10570 "return an interface specs literal encoding. |
10578 "return an interface specs literal encoding. |
10571 Notice - Dialog should be moved under AppModel so this becomes obsolete." |
10579 Notice - Dialog should be moved under AppModel so this becomes obsolete." |