Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
class: Tools::Inspector2
authorClaus Gittinger <cg@exept.de>
Mon, 15 Jul 2013 17:12:25 +0200
changeset 13168 8de8aa65df94
parent 13167 0a9b919319a9
child 13169 13cf55425c88
class: Tools::Inspector2
Tools__Inspector2.st file | annotate | diff | comparison | revisions 
--- a/Tools__Inspector2.st	Mon Jul 15 11:44:11 2013 +0200
+++ b/Tools__Inspector2.st	Mon Jul 15 17:12:25 2013 +0200
@@ -1082,6 +1082,7 @@
     "Created: / 15-07-2011 / 16:25:42 / cg"
 ! !
 
+
 !Inspector2::NavigationState class methodsFor:'creating classes'!
 
 for:anObject 
@@ -1097,11 +1098,11 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
+    ^'$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.42 2013-07-15 15:12:25 cg Exp $'
 !
 
 version_SVN
-    ^'$Id: Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
+    ^'$Id: Tools__Inspector2.st,v 1.42 2013-07-15 15:12:25 cg Exp $'
 ! !
 
 !Inspector2::NavigationState methodsFor:'accessing'!
@@ -1285,15 +1286,20 @@
     theObject inspector2Tabs do: [:selector|
             | tab |
             tab := [ theObject perform: selector ] 
-                        on: Error do:[:ex|
-                            "/ for debugging:  ex reject.
+                        on: Error 
+                        do:[:ex|
+                            "/ for debugging:  
+                            "/ ex reject.
+                            Transcript show:'error in inspector setup: ',ex description.    
                             Tools::Inspector2Tab new 
                                 label: selector;
                                 text:
                                     (ex description, Character cr, Character cr,
-                                     ex suspendedContext fullPrintAllString)].
+                                     ex suspendedContext fullPrintAllString)
+                        ].
             (tab notNil and:[tab isKindOf: Tools::Inspector2Tab])
-                ifTrue:[tabs add: tab]].
+                ifTrue:[tabs add: tab]
+            ].
 
     "Created: / 16-01-2008 / 17:25:24 / janfrog"
     "Modified: / 17-02-2008 / 10:30:43 / janfrog"
@@ -1322,19 +1328,19 @@
 !Inspector2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.42 2013-07-15 15:12:25 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.42 2013-07-15 15:12:25 cg Exp $'
 !
 
 version_CVS_jvrany
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.42 2013-07-15 15:12:25 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id: Tools__Inspector2.st,v 1.41 2013-07-08 09:50:36 cg Exp $'
+    ^ '$Id: Tools__Inspector2.st,v 1.42 2013-07-15 15:12:25 cg Exp $'
 ! !
hg/stx-libtool