--- 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 $'
! !
+