--- a/Structure.st Tue Jan 22 16:29:30 2019 +0100
+++ b/Structure.st Fri Feb 01 00:02:58 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1996 by Claus Gittinger
All Rights Reserved
@@ -1270,7 +1268,13 @@
sel == #inspect ifTrue:[
^ InspectorView openOn:self
].
-
+ sel == #'inspectorValueListIconFor:' ifTrue:[
+ ^ (args at:1) imageFor_others
+ ].
+ self == #'inspectorValueStringInListFor:' ifTrue:[
+ ^ '{...}'
+ ].
+
sel == #instVarAt: ifTrue:[
|nr|
@@ -1498,6 +1502,7 @@
"Created: / 13-05-1996 / 20:22:22 / cg"
"Modified: / 16-07-2017 / 13:54:58 / cg"
"Modified (format): / 24-07-2017 / 16:43:06 / stefan"
+ "Modified: / 31-01-2019 / 23:57:16 / Claus Gittinger"
! !
!Structure class methodsFor:'documentation'!