equal
deleted
inserted
replaced
1062 !PopUpList methodsFor:'queries'! |
1062 !PopUpList methodsFor:'queries'! |
1063 |
1063 |
1064 preferredExtent |
1064 preferredExtent |
1065 "redefined to make certain that the menu is fully defined" |
1065 "redefined to make certain that the menu is fully defined" |
1066 |
1066 |
1067 "/ If I have an explicit preferredExtent.. |
|
1068 explicitExtent notNil ifTrue:[ |
|
1069 ^ explicitExtent |
|
1070 ]. |
|
1071 |
|
1072 "/ If I have a cached preferredExtent value.. |
|
1073 preferredExtent notNil ifTrue:[ |
|
1074 ^ preferredExtent |
|
1075 ]. |
|
1076 |
|
1077 menu isNil ifTrue:[ |
1067 menu isNil ifTrue:[ |
1078 self getListFromModel |
1068 self getListFromModel |
1079 ]. |
1069 ]. |
1080 self computeLabelSize. |
|
1081 ^ super preferredExtent. |
1070 ^ super preferredExtent. |
1082 |
1071 |
1083 "Modified: 19.7.1996 / 20:45:16 / cg" |
1072 "Modified: 19.7.1996 / 20:45:16 / cg" |
1084 ! |
1073 ! |
1085 |
1074 |
1154 ! ! |
1143 ! ! |
1155 |
1144 |
1156 !PopUpList class methodsFor:'documentation'! |
1145 !PopUpList class methodsFor:'documentation'! |
1157 |
1146 |
1158 version |
1147 version |
1159 ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.81 2009-10-21 14:24:28 cg Exp $' |
1148 ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.82 2009-10-21 14:27:54 cg Exp $' |
1160 ! |
1149 ! |
1161 |
1150 |
1162 version_CVS |
1151 version_CVS |
1163 ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.81 2009-10-21 14:24:28 cg Exp $' |
1152 ^ '$Header: /cvs/stx/stx/libwidg/PopUpList.st,v 1.82 2009-10-21 14:27:54 cg Exp $' |
1164 ! ! |
1153 ! ! |