1122 |
1122 |
1123 preferredIconSize |
1123 preferredIconSize |
1124 "Get the preferrered icon size. These are typically set by the window manager. |
1124 "Get the preferrered icon size. These are typically set by the window manager. |
1125 We return nil here (as if there are no special size preferences)." |
1125 We return nil here (as if there are no special size preferences)." |
1126 |
1126 |
1127 |sizes spec sz| |
1127 |sizes spec sz sz2| |
1128 |
1128 |
1129 preferredIconSize isNil ifTrue:[ |
1129 preferredIconSize isNil ifTrue:[ |
1130 sizes := self iconSizes. |
1130 sizes := self iconSizes. |
1131 sizes notNil ifTrue:[ |
1131 sizes notNil ifTrue:[ |
1132 spec := sizes first. |
1132 spec := sizes first. |
1133 |
1133 |
1134 "/ we prefer square icons ... |
1134 "/ we prefer square icons ... |
1135 |
1135 |
1136 sz := (spec at:#maxWidth) min: (spec at:#maxHeight). |
1136 sz := (spec at:#maxWidth) min: (spec at:#maxHeight). |
|
1137 sz > 64 ifTrue:[ |
|
1138 sz2 := (spec at:#minWidth) max: (spec at:#minHeight). |
|
1139 sz2 <= 48 ifTrue:[ |
|
1140 sz := 48 |
|
1141 ] |
|
1142 ]. |
1137 preferredIconSize := sz @ sz |
1143 preferredIconSize := sz @ sz |
1138 ]. |
1144 ]. |
1139 preferredIconSize isNil ifTrue:[ |
1145 preferredIconSize isNil ifTrue:[ |
1140 preferredIconSize := 48@48 |
1146 preferredIconSize := 48@48 |
1141 ]. |
1147 ]. |
1142 ]. |
1148 ]. |
1143 |
1149 |
1144 ^ preferredIconSize |
1150 ^ preferredIconSize |
1145 |
1151 |
1146 " |
1152 " |
1147 Display preferredIconSize |
1153 Display preferredIconSize |
1148 Display preferredIconSize:32@32 |
1154 Display preferredIconSize:32@32 |
1149 " |
1155 Display preferredIconSize:nil |
1150 |
1156 " |
1151 "Modified: 10.6.1996 / 21:03:29 / cg" |
1157 |
|
1158 "Modified: 10.6.1996 / 22:10:58 / cg" |
1152 ! |
1159 ! |
1153 |
1160 |
1154 preferredIconSize:anExtentPoint |
1161 preferredIconSize:anExtentPoint |
1155 "set the preferrered icon size. |
1162 "set the preferrered icon size. |
1156 By default, the preferredIconSize is queried from the display, |
1163 By default, the preferredIconSize is queried from the display, |