class: MessageNode
authorClaus Gittinger <cg@exept.de>
Sat, 31 Aug 2013 13:33:18 +0200
changeset 13423 792b998bcc1a
parent 13422 86835045a828
child 13424 519f7ba8803e
class: MessageNode comment/format in:5 methods
extensions.st
--- a/extensions.st	Sat Aug 31 01:05:12 2013 +0200
+++ b/extensions.st	Sat Aug 31 13:33:18 2013 +0200
@@ -135,6 +135,14 @@
     "Created: / 15-11-2011 / 14:24:10 / cg"
 ! !
 
+!Boolean methodsFor:'inspecting'!
+
+inspectorValueStringInListFor:anInspector
+    "returns a string to be shown in the inspector's list"
+
+    ^ self printString
+! !
+
 !Breakpoint methodsFor:'accessing'!
 
 icon
@@ -1231,7 +1239,8 @@
 !Object methodsFor:'inspecting'!
 
 inspectorValueStringInListFor:anInspector
-    "returns a string to be shown in the inspector's list"
+    "returns a string to be shown in the inspector's list.
+     Only to be redefined where it is guaranteed, that the returned string is short."
 
     ^ self classNameWithArticle
 
@@ -1273,6 +1282,14 @@
     "
 ! !
 
+!Point methodsFor:'inspecting'!
+
+inspectorValueStringInListFor:anInspector
+    "returns a string to be shown in the inspector's list"
+
+    ^ self printString
+! !
+
 !PopUpMenu methodsFor:'converting'!
 
 asMenu
@@ -1339,6 +1356,14 @@
     "Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
+!Rectangle methodsFor:'inspecting'!
+
+inspectorValueStringInListFor:anInspector
+    "returns a string to be shown in the inspector's list"
+
+    ^ self origin printString,'->',self corner printString
+! !
+
 !RunArray methodsFor:'user interface'!
 
 inspectorClass
@@ -2057,5 +2082,6 @@
 !stx_libtool class methodsFor:'documentation'!
 
 extensionsVersion_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.115 2013-06-29 11:39:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/extensions.st,v 1.116 2013-08-31 11:33:18 cg Exp $'
 ! !
+