equal
deleted
inserted
replaced
1207 ]. |
1207 ]. |
1208 ! ! |
1208 ! ! |
1209 |
1209 |
1210 !StandardSystemView methodsFor:'printing & storing'! |
1210 !StandardSystemView methodsFor:'printing & storing'! |
1211 |
1211 |
1212 displayString |
1212 printOn:aStream |
1213 "just for your convenience in inspectors ... |
1213 "just for your convenience in inspectors ... |
1214 ... add the views label to the displayString." |
1214 ... add the views label to the displayString." |
1215 |
1215 |
1216 |s| |
1216 super printOn:aStream. |
1217 |
|
1218 s := super displayString. |
|
1219 label notNil ifTrue:[ |
1217 label notNil ifTrue:[ |
1220 s := s , '(' , label , ')' |
1218 aStream nextPut:$(. label printOn:aStream. aStream nextPut:$). |
1221 ]. |
1219 ]. |
1222 ^ s |
|
1223 ! ! |
1220 ! ! |
1224 |
1221 |
1225 !StandardSystemView methodsFor:'private'! |
1222 !StandardSystemView methodsFor:'private'! |
1226 |
1223 |
1227 convertedIcon |
1224 convertedIcon |
1549 ! ! |
1546 ! ! |
1550 |
1547 |
1551 !StandardSystemView class methodsFor:'documentation'! |
1548 !StandardSystemView class methodsFor:'documentation'! |
1552 |
1549 |
1553 version |
1550 version |
1554 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.186 2008-11-17 17:29:18 cg Exp $' |
1551 ^ '$Header: /cvs/stx/stx/libview/StandardSystemView.st,v 1.187 2009-04-02 21:51:51 stefan Exp $' |
1555 ! ! |
1552 ! ! |
1556 |
1553 |
1557 StandardSystemView initialize! |
1554 StandardSystemView initialize! |