equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 COPYRIGHT (c) 1996 by Claus Gittinger |
2 COPYRIGHT (c) 1996 by Claus Gittinger |
5 All Rights Reserved |
3 All Rights Reserved |
6 |
4 |
7 This software is furnished under a license and may be used |
5 This software is furnished under a license and may be used |
1268 ^ InspectorView |
1266 ^ InspectorView |
1269 ]. |
1267 ]. |
1270 sel == #inspect ifTrue:[ |
1268 sel == #inspect ifTrue:[ |
1271 ^ InspectorView openOn:self |
1269 ^ InspectorView openOn:self |
1272 ]. |
1270 ]. |
1273 |
1271 sel == #'inspectorValueListIconFor:' ifTrue:[ |
|
1272 ^ (args at:1) imageFor_others |
|
1273 ]. |
|
1274 self == #'inspectorValueStringInListFor:' ifTrue:[ |
|
1275 ^ '{...}' |
|
1276 ]. |
|
1277 |
1274 sel == #instVarAt: ifTrue:[ |
1278 sel == #instVarAt: ifTrue:[ |
1275 |nr| |
1279 |nr| |
1276 |
1280 |
1277 nr := args at:1. |
1281 nr := args at:1. |
1278 nr == 1 ifTrue:[^ i1]. |
1282 nr == 1 ifTrue:[^ i1]. |
1496 ^ nil. |
1500 ^ nil. |
1497 |
1501 |
1498 "Created: / 13-05-1996 / 20:22:22 / cg" |
1502 "Created: / 13-05-1996 / 20:22:22 / cg" |
1499 "Modified: / 16-07-2017 / 13:54:58 / cg" |
1503 "Modified: / 16-07-2017 / 13:54:58 / cg" |
1500 "Modified (format): / 24-07-2017 / 16:43:06 / stefan" |
1504 "Modified (format): / 24-07-2017 / 16:43:06 / stefan" |
|
1505 "Modified: / 31-01-2019 / 23:57:16 / Claus Gittinger" |
1501 ! ! |
1506 ! ! |
1502 |
1507 |
1503 !Structure class methodsFor:'documentation'! |
1508 !Structure class methodsFor:'documentation'! |
1504 |
1509 |
1505 version |
1510 version |