--- a/Tools__Inspector2.st	Sun Aug 21 12:29:33 2011 +0200
+++ b/Tools__Inspector2.st	Sun Aug 21 12:30:29 2011 +0200
@@ -207,12 +207,18 @@
             hideMenuOnActivated: false
             labelImage: (ResourceRetriever ToolbarIconLibrary startNewFileBrowserIcon)
           )
+         (MenuItem
+            label: 'Refresh for Changed Object'
+            itemValue: refreshTabs
+            translateLabel: true
+            isButton: true
+            startGroup: right
+            labelImage: (ResourceRetriever ToolbarIconLibrary reloadIcon)
+          )
          )
         nil
         nil
       )
-
-    "Modified: / 19-08-2011 / 09:27:19 / cg"
 ! !
 
 !Inspector2 class methodsFor:'startup'!
@@ -430,7 +436,7 @@
 !
 
 browseClassAction
-    "open a class browser, or try to add a tab to the previously openeed class browser"
+    "open a class browser, or try to add a tab to the previously opened class browser"
 
     | class |
 
@@ -450,7 +456,7 @@
     browser := UserPreferences current systemBrowserClass openInClass:class selector:nil "/ browseSingleClass: class
 
     "Modified: / 23-07-2011 / 11:28:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified (comment): / 19-08-2011 / 09:32:21 / cg"
+    "Modified (comment): / 21-08-2011 / 08:37:59 / cg"
 !
 
 browseFileAction
@@ -470,6 +476,17 @@
 
     "Created: / 21-02-2008 / 19:52:03 / janfrog"
     "Modified: / 15-07-2011 / 16:26:33 / cg"
+!
+
+refreshTabs
+    self navigationHistoryHolder currentItem refreshTabs.
+    self tabViewAspect changed.
+
+"/    sel := selectionIndex.
+"/    self selectionIndex:nil.
+"/    self selectionIndex:sel.
+
+    "Created: / 21-08-2011 / 08:23:00 / cg"
 ! !
 
 !Inspector2 methodsFor:'opening'!
@@ -546,7 +563,7 @@
 !Inspector2::NavigationState class methodsFor:'documentation'!
 
 version
-    ^'$Id: Tools__Inspector2.st,v 1.17 2011-08-21 09:40:08 vrany Exp $'
+    ^'$Id: Tools__Inspector2.st,v 1.18 2011-08-21 10:30:29 cg Exp $'
 !
 
 version_SVN
@@ -674,7 +691,6 @@
     browser showInheritedMethods.
     browser selectClass: theObject class theNonMetaclass.
 
-
     tabs add:
         (Tools::Inspector2Tab new
             priority: 0;
@@ -683,6 +699,7 @@
                         client: browser spec: spec))
 
     "Created: / 22-07-2011 / 18:48:17 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 21-08-2011 / 08:40:59 / cg"
 !
 
 initializeCommonTabs
@@ -708,20 +725,20 @@
     theObject inspector2Tabs do: [:selector|
             | tab |
             tab := [ theObject perform: selector ] 
-                        on: Error do: 
-                            [:ex|
+                        on: Error do:[:ex|
+                            "/ for debugging:  ex reject.
                             Tools::Inspector2Tab new 
                                 label: selector;
                                 text:
                                     (ex description, Character cr, Character cr,
-                                     ex suspendedContext fullPrintString)].
+                                     ex suspendedContext fullPrintAllString)].
             (tab notNil and:[tab isKindOf: Tools::Inspector2Tab])
                 ifTrue:[tabs add: tab]].
 
     "Created: / 16-01-2008 / 17:25:24 / janfrog"
     "Modified: / 17-02-2008 / 10:30:43 / janfrog"
     "Modified: / 07-11-2008 / 08:40:35 / Jan Vrany <vranyj1@fel.cvut.cz>"
-    "Modified (comment): / 05-07-2011 / 13:43:23 / cg"
+    "Modified (format): / 21-08-2011 / 08:01:34 / cg"
 !
 
 initializeTabs
@@ -733,16 +750,23 @@
 
     "Created: / 16-01-2008 / 16:54:28 / janfrog"
     "Modified: / 17-02-2008 / 10:08:04 / janfrog"
+!
+
+refreshTabs
+    tabs := nil.
+    self initializeTabs.
+
+    "Created: / 21-08-2011 / 08:23:11 / cg"
 ! !
 
 !Inspector2 class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.17 2011-08-21 09:40:08 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.18 2011-08-21 10:30:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.17 2011-08-21 09:40:08 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__Inspector2.st,v 1.18 2011-08-21 10:30:29 cg Exp $'
 !
 
 version_CVS_jvrany