equal
deleted
inserted
replaced
1089 ] |
1089 ] |
1090 ]. |
1090 ]. |
1091 |
1091 |
1092 (aStringOrFormOrImage ~~ logo) ifTrue:[ |
1092 (aStringOrFormOrImage ~~ logo) ifTrue:[ |
1093 "/ |
1093 "/ |
1094 "/ avoid recompute of size, if its an image with |
1094 "/ avoid recompute of size, if it's an image with |
1095 "/ the same size |
1095 "/ the same size |
1096 "/ |
1096 "/ |
1097 aStringOrFormOrImage isImageOrForm ifTrue:[ |
1097 aStringOrFormOrImage isImageOrForm ifTrue:[ |
1098 logo notNil ifTrue:[ |
1098 logo notNil ifTrue:[ |
1099 logo isImageOrForm ifTrue:[ |
1099 logo isImageOrForm ifTrue:[ |
1125 self repairDamage |
1125 self repairDamage |
1126 ]. |
1126 ]. |
1127 ] |
1127 ] |
1128 |
1128 |
1129 "Created: / 13-10-2010 / 12:16:34 / cg" |
1129 "Created: / 13-10-2010 / 12:16:34 / cg" |
|
1130 "Modified (format): / 13-02-2017 / 20:26:33 / cg" |
1130 ! |
1131 ! |
1131 |
1132 |
1132 label:newLabel suppressResize:suppress |
1133 label:newLabel suppressResize:suppress |
1133 "change the label and optionally suppress a resize operation" |
1134 "change the label and optionally suppress a resize operation" |
1134 |
1135 |
1179 "set the adjust, how which must be one of |
1180 "set the adjust, how which must be one of |
1180 |
1181 |
1181 #left -> left adjust logo |
1182 #left -> left adjust logo |
1182 #right -> right adjust logo |
1183 #right -> right adjust logo |
1183 #center -> center logo |
1184 #center -> center logo |
1184 #centerEach -> like #center, but if its a multiline logo, |
1185 #centerEach -> like #center, but if it's a multiline logo, |
1185 center each line individually. |
1186 center each line individually. |
1186 |
1187 |
1187 #centerRight -> center logo if it fits; |
1188 #centerRight -> center logo if it fits; |
1188 BUT, if it does not fit, right adjust the logo |
1189 BUT, if it does not fit, right adjust the logo |
1189 (use with filenames, where the interesting part is |
1190 (use with filenames, where the interesting part is |
1210 (adjust ~~ how) ifTrue:[ |
1211 (adjust ~~ how) ifTrue:[ |
1211 adjust := how. |
1212 adjust := how. |
1212 self newLayout |
1213 self newLayout |
1213 ] |
1214 ] |
1214 |
1215 |
1215 "Modified: 13.4.1996 / 11:17:58 / cg" |
1216 "Modified: / 13-04-1996 / 11:17:58 / cg" |
|
1217 "Modified (comment): / 13-02-2017 / 20:26:28 / cg" |
1216 ! |
1218 ! |
1217 |
1219 |
1218 extraMarginForBorder |
1220 extraMarginForBorder |
1219 "some (round) borders may need more space" |
1221 "some (round) borders may need more space" |
1220 |
1222 |