equal
deleted
inserted
replaced
575 (ext y max: self lampImageHeight) |
575 (ext y max: self lampImageHeight) |
576 ]. |
576 ]. |
577 ^ ext |
577 ^ ext |
578 |
578 |
579 "Modified: / 3.11.1997 / 14:26:54 / cg" |
579 "Modified: / 3.11.1997 / 14:26:54 / cg" |
580 ! ! |
|
581 |
|
582 !Toggle methodsFor:'queries'! |
|
583 |
|
584 preferredExtent |
|
585 "return my preferred extent - this is the minimum size I would like to have" |
|
586 |
|
587 |pref x y| |
|
588 |
|
589 "/ If I have an explicit preferredExtent.. |
|
590 explicitExtent notNil ifTrue:[ |
|
591 ^ explicitExtent |
|
592 ]. |
|
593 |
|
594 "/ If I have a cached preferredExtent value.. |
|
595 preferredExtent notNil ifTrue:[ |
|
596 ^ preferredExtent |
|
597 ]. |
|
598 |
|
599 pref := super preferredExtent. |
|
600 |
|
601 showLamp ifTrue:[ |
|
602 "/ add some space for the lamp. |
|
603 |
|
604 x := pref x + (self lampImageWidth) + hSpace. |
|
605 y := pref y max:(self lampImageHeight). |
|
606 pref := x @ y. |
|
607 ]. |
|
608 ^ pref |
|
609 |
|
610 "Modified: / 3.11.1997 / 14:26:41 / cg" |
|
611 ! ! |
580 ! ! |
612 |
581 |
613 !Toggle methodsFor:'redrawing'! |
582 !Toggle methodsFor:'redrawing'! |
614 |
583 |
615 drawToggleImage |
584 drawToggleImage |
655 ! ! |
624 ! ! |
656 |
625 |
657 !Toggle class methodsFor:'documentation'! |
626 !Toggle class methodsFor:'documentation'! |
658 |
627 |
659 version |
628 version |
660 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.55 2009-10-21 14:24:34 cg Exp $' |
629 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.56 2009-10-21 14:28:02 cg Exp $' |
661 ! |
630 ! |
662 |
631 |
663 version_CVS |
632 version_CVS |
664 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.55 2009-10-21 14:24:34 cg Exp $' |
633 ^ '$Header: /cvs/stx/stx/libwidg/Toggle.st,v 1.56 2009-10-21 14:28:02 cg Exp $' |
665 ! ! |
634 ! ! |