class: InspectorView
authorClaus Gittinger <cg@exept.de>
Mon, 08 Jul 2013 11:51:56 +0200
changeset 13133 207c334d6f58
parent 13132 84c411de6047
child 13134 5bc0289aec42
child 13180 64a4186ddfce
class: InspectorView added: #openOn:title:
InspectorView.st
--- a/InspectorView.st	Mon Jul 08 11:50:36 2013 +0200
+++ b/InspectorView.st	Mon Jul 08 11:51:56 2013 +0200
@@ -195,6 +195,16 @@
     "Modified: / 23-10-2007 / 19:08:21 / cg"
 !
 
+openOn:anObject title:aString
+    "create and launch a new inspector for anObject"
+
+    (self openOn:anObject monitor:nil) topView label:aString
+
+    "
+     InspectorView openOn:(5 @ 7) title:'my point'
+    "
+!
+
 openOn:anObject withEvalPane:withEvalPane
     ^ self openOn:anObject
 !
@@ -3521,10 +3531,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.317 2013-06-25 17:12:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.318 2013-07-08 09:51:56 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.317 2013-06-25 17:12:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.318 2013-07-08 09:51:56 cg Exp $'
 ! !