#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Fri, 01 Feb 2019 00:02:58 +0100
changeset 4327 cea16e8f47d6
parent 4326 beec6a420dec
child 4328 3ee2558d252e
#FEATURE by cg class: Structure changed: #doesNotUnderstand:
Structure.st
--- 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'!