equal
deleted
inserted
replaced
895 |prefCheck prefLabel bw2| |
895 |prefCheck prefLabel bw2| |
896 |
896 |
897 "/ If I have an explicit preferredExtent .. |
897 "/ If I have an explicit preferredExtent .. |
898 |
898 |
899 preferredExtent notNil ifTrue:[ |
899 preferredExtent notNil ifTrue:[ |
900 ^ preferredExtent |
900 ^ preferredExtent |
901 ]. |
901 ]. |
902 |
902 |
903 (labelView isNil or:[labelView label isEmpty]) ifTrue:[ |
903 (labelView isNil or:[labelView label isEmptyOrNil]) ifTrue:[ |
904 ^ super preferredExtent |
904 ^ super preferredExtent |
905 ]. |
905 ]. |
906 ^ super preferredExtent + (10@0). |
906 ^ super preferredExtent + (10@0). |
907 |
907 |
908 "/ prefCheck := toggleView preferredExtent. |
908 "/ prefCheck := toggleView preferredExtent. |
909 "/ prefLabel := labelView preferredExtent. |
909 "/ prefLabel := labelView preferredExtent. |
910 "/ bw2 := borderWidth * 2. |
910 "/ bw2 := borderWidth * 2. |
911 "/ ^ (prefCheck x + prefLabel x + (3 * ViewSpacing)) @ ((prefCheck y max:prefLabel y) + bw2 + 2) |
911 "/ ^ (prefCheck x + prefLabel x + (3 * ViewSpacing)) @ ((prefCheck y max:prefLabel y) + bw2 + 2) |
912 |
912 |
913 "Modified: 19.7.1996 / 20:43:47 / cg" |
913 "Modified: / 12-01-2008 / 23:27:45 / cg" |
914 ! ! |
914 ! ! |
915 |
915 |
916 !CheckBox methodsFor:'queries-internal'! |
916 !CheckBox methodsFor:'queries-internal'! |
917 |
917 |
918 nativeWindowType |
918 nativeWindowType |
925 ! ! |
925 ! ! |
926 |
926 |
927 !CheckBox class methodsFor:'documentation'! |
927 !CheckBox class methodsFor:'documentation'! |
928 |
928 |
929 version |
929 version |
930 ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.76 2007-11-28 14:43:10 ca Exp $' |
930 ^ '$Header: /cvs/stx/stx/libwidg2/CheckBox.st,v 1.77 2008-01-17 09:59:30 cg Exp $' |
931 ! ! |
931 ! ! |