equal
deleted
inserted
replaced
1227 ]. |
1227 ]. |
1228 anObject isColor ifTrue:[ |
1228 anObject isColor ifTrue:[ |
1229 ^ self imageFor_colors |
1229 ^ self imageFor_colors |
1230 ]. |
1230 ]. |
1231 anObject isValueModel ifTrue:[ |
1231 anObject isValueModel ifTrue:[ |
1232 "/ this may be problemantic, if #value has a side effect... |
1232 "/ this may be problematic, if #value has a side effect... |
1233 Error handle:[:ex | |
1233 Error handle:[:ex | |
1234 ] do:[ |
1234 ] do:[ |
1235 value := anObject value. |
1235 value := anObject value. |
1236 value == true ifTrue:[^ self imageFor_trueHolder]. |
1236 value == true ifTrue:[^ self imageFor_trueHolder]. |
1237 value == false ifTrue:[^ self imageFor_falseHolder]. |
1237 value == false ifTrue:[^ self imageFor_falseHolder]. |
1244 |
1244 |
1245 ^ self imageFor_others |
1245 ^ self imageFor_others |
1246 |
1246 |
1247 "Created: / 16-05-2012 / 17:58:20 / cg" |
1247 "Created: / 16-05-2012 / 17:58:20 / cg" |
1248 "Modified: / 17-03-2017 / 11:26:59 / cg" |
1248 "Modified: / 17-03-2017 / 11:26:59 / cg" |
1249 "Modified (format): / 03-10-2018 / 10:33:02 / Claus Gittinger" |
1249 "Modified (format): / 03-10-2018 / 10:34:09 / Claus Gittinger" |
1250 ! |
1250 ! |
1251 |
1251 |
1252 iconForValueClass: aClass |
1252 iconForValueClass: aClass |
1253 "this is useful if we do not want to or cannot access the value itself easily; |
1253 "this is useful if we do not want to or cannot access the value itself easily; |
1254 For example as a helper for bridge objects" |
1254 For example as a helper for bridge objects" |