equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
1177 |
1179 |
1178 subviewsInFocusOrder |
1180 subviewsInFocusOrder |
1179 |
1181 |
1180 subViews isEmptyOrNil ifTrue:[ ^ #() ]. |
1182 subViews isEmptyOrNil ifTrue:[ ^ #() ]. |
1181 |
1183 |
1182 (reverseOrderIfOKAtLeft == true |
1184 (reverseOrderIfOKAtLeft == true and:[Dialog defaultOKButtonAtLeft]) ifTrue:[ |
1183 and:[Dialog defaultOKButtonAtLeft]) ifTrue:[ |
|
1184 ^ subViews reversed |
1185 ^ subViews reversed |
1185 ]. |
1186 ]. |
1186 ^ subViews |
1187 ^ subViews |
1187 ! ! |
1188 ! ! |
1188 |
1189 |
1196 resizeToMaxH maxHeight maxWidth m2 subViews restWidth y2 bw| |
1197 resizeToMaxH maxHeight maxWidth m2 subViews restWidth y2 bw| |
1197 |
1198 |
1198 subViews := self subViewsToConsider. |
1199 subViews := self subViewsToConsider. |
1199 (numChilds := subViews size) == 0 ifTrue:[^ self]. |
1200 (numChilds := subViews size) == 0 ifTrue:[^ self]. |
1200 |
1201 |
1201 reverseOrderIfOKAtLeft == true ifTrue:[ |
1202 ((reverseOrderIfOKAtLeft == true) and:[Dialog defaultOKButtonAtLeft]) ifTrue:[ |
1202 (Dialog defaultOKButtonAtLeft) ifTrue:[ |
1203 subViews := subViews reversed. |
1203 subViews := subViews reversed. |
|
1204 ] |
|
1205 ]. |
1204 ]. |
1206 |
1205 |
1207 "/ self extentChangedFlag ifTrue:[ |
1206 "/ self extentChangedFlag ifTrue:[ |
1208 "/ ext := self computeExtent. |
1207 "/ ext := self computeExtent. |
1209 "/ width := ext x. |
1208 "/ width := ext x. |