570 |
570 |
571 super reAdjustGeometry. |
571 super reAdjustGeometry. |
572 labelField resize. |
572 labelField resize. |
573 okButton resize. |
573 okButton resize. |
574 abortButton resize. |
574 abortButton resize. |
|
575 |
575 self resize |
576 self resize |
|
577 |
|
578 "Modified (format): / 22-10-2017 / 01:20:18 / cg" |
576 ! ! |
579 ! ! |
577 |
580 |
578 !EnterBox methodsFor:'queries'! |
581 !EnterBox methodsFor:'queries'! |
579 |
582 |
580 preferredExtent |
583 preferredExtent |
581 "compute the boxes preferredExtent from the components' sizes" |
584 "compute the boxes preferredExtent from the components' sizes" |
582 |
585 |
583 |wWanted hWanted vs2 min |
586 |wWanted hWanted vs2 min |
584 labelPref enterPref panelPref| |
587 labelPref enterPref bPanelPref vPanelPref| |
585 |
588 |
586 "/ If I have an explicit preferredExtent.. |
589 "/ If I have an explicit preferredExtent.. |
587 explicitExtent notNil ifTrue:[ |
590 explicitExtent notNil ifTrue:[ |
588 ^ explicitExtent |
591 ^ explicitExtent |
589 ]. |
592 ]. |
591 "/ If I have a cached preferredExtent value.. |
594 "/ If I have a cached preferredExtent value.. |
592 preferredExtent notNil ifTrue:[ |
595 preferredExtent notNil ifTrue:[ |
593 ^ preferredExtent |
596 ^ preferredExtent |
594 ]. |
597 ]. |
595 |
598 |
596 panelPref := buttonPanel preferredExtent. |
599 bPanelPref := buttonPanel preferredExtent. |
597 labelPref := labelField preferredExtent. |
600 labelPref := labelField preferredExtent. |
598 enterPref := enterField preferredExtent. |
601 enterPref := enterField preferredExtent. |
599 wWanted := (labelPref x max:enterPref x) max:panelPref x. |
602 wWanted := (labelPref x max:enterPref x) max:bPanelPref x. |
600 |
603 |
601 hWanted := labelPref y + ViewSpacing + enterPref y + |
604 hWanted := labelPref y + ViewSpacing + enterPref y + |
602 ViewSpacing + panelPref y + ViewSpacing. |
605 ViewSpacing + bPanelPref y + ViewSpacing. |
|
606 |
603 verticalPanel notNil ifTrue:[ |
607 verticalPanel notNil ifTrue:[ |
604 hWanted := hWanted + ViewSpacing + (verticalPanel preferredHeight). |
608 vPanelPref := verticalPanel preferredExtent. |
|
609 hWanted := hWanted + ViewSpacing + (vPanelPref y). |
|
610 wWanted := wWanted max:vPanelPref x. |
605 ]. |
611 ]. |
606 |
612 |
607 vs2 := ViewSpacing * 2. |
613 vs2 := ViewSpacing * 2. |
608 min := self class minExtent. |
614 min := self class minExtent. |
609 wWanted := (wWanted max: min x) + vs2. |
615 wWanted := (wWanted max: min x) + vs2. |
610 hWanted := (hWanted max: min y) + vs2. |
616 hWanted := (hWanted max: min y) + vs2. |
611 |
617 |
612 ^ wWanted @ hWanted |
618 ^ wWanted @ hWanted |
613 |
619 |
614 "Modified: / 22-01-1998 / 09:57:55 / md" |
620 "Modified: / 22-01-1998 / 09:57:55 / md" |
615 "Modified: / 27-07-1998 / 20:18:41 / cg" |
|
616 "Modified: / 30-03-2017 / 18:42:12 / stefan" |
621 "Modified: / 30-03-2017 / 18:42:12 / stefan" |
|
622 "Modified: / 22-10-2017 / 01:26:34 / cg" |
617 ! ! |
623 ! ! |
618 |
624 |
619 !EnterBox methodsFor:'startup'! |
625 !EnterBox methodsFor:'startup'! |
620 |
626 |
621 request |
627 request |