--- a/Tools__NewSystemBrowser.st	Thu Jul 07 01:18:17 2011 +0200
+++ b/Tools__NewSystemBrowser.st	Thu Jul 07 11:45:27 2011 +0200
@@ -423,6 +423,15 @@
 
     ^ super helpSpec addPairsFrom:#(
 
+#goBack
+''
+
+#goBackInGlobalHistory
+''
+
+#goForward
+''
+
 #recentlyVisitedMethods
 ''
 
@@ -13081,6 +13090,7 @@
     "Modified: / 29-09-2006 / 16:11:08 / cg"
 ! !
 
+
 !NewSystemBrowser class methodsFor:'menu specs-popup'!
 
 categoryPopUpMenu
@@ -13515,6 +13525,7 @@
             itemValue: goBackInGlobalHistory
             translateLabel: true
             isButton: true
+            isVisible: showGlobalHistory
             labelImage: (ResourceRetriever XPToolbarIconLibrary historyBackInGlobalListIcon)
           )
          (MenuItem
@@ -13524,6 +13535,7 @@
             itemValue: goBack
             translateLabel: true
             isButton: true
+            isVisible: showLocalHistory
             labelImage: (ResourceRetriever XPToolbarIconLibrary historyBackIcon)
           )
          (MenuItem
@@ -13533,6 +13545,7 @@
             itemValue: goForward
             translateLabel: true
             isButton: true
+            isVisible: showLocalHistory
             labelImage: (ResourceRetriever XPToolbarIconLibrary historyForwardIcon)
           )
          (MenuItem
@@ -14725,6 +14738,7 @@
     "Created: / 24.2.2000 / 23:28:06 / cg"
 ! !
 
+
 !NewSystemBrowser methodsFor:'aspects-organization'!
 
 categoryMenuVisible
@@ -15389,6 +15403,34 @@
     "Created: / 27-04-2010 / 16:02:49 / cg"
 !
 
+showGlobalHistory
+    |holder|
+
+    (holder := builder bindingAt:#showGlobalHistory) isNil ifTrue:[
+        holder := (AspectAdaptor forAspect: #showGlobalHistory)
+                    subject: UserPreferences current.
+        builder aspectAt:#showGlobalHistory put: holder.
+    ].
+    ^ holder
+
+    "Created: / 18-02-2000 / 17:44:17 / cg"
+    "Modified: / 12-02-2010 / 12:08:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 07-07-2011 / 00:11:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+showLocalHistory
+    |holder|
+
+    (holder := builder bindingAt:#showLocalHistory) isNil ifTrue:[
+        holder := (AspectAdaptor forAspect: #showLocalHistory)
+                    subject: UserPreferences current.
+        builder aspectAt:#showLocalHistory put: holder.
+    ].
+    ^ holder
+
+    "Created: / 07-07-2011 / 00:11:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 showMethodComplexity
     |holder|
 
@@ -17917,6 +17959,7 @@
     ^ UserPreferences current useSearchBarInBrowser or:[self codeView searchBarActionBlock notNil]
 ! !
 
+
 !NewSystemBrowser methodsFor:'change & update'!
 
 categorySelectionChanged
@@ -30249,6 +30292,7 @@
     ^ brwsr
 ! !
 
+
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut
@@ -37835,6 +37879,7 @@
     "Modified: / 25-06-2010 / 10:08:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+
 !NewSystemBrowser methodsFor:'menu actions-variables'!
 
 browseVarRefsOrModsWithTitle:browserTitle boxTitle:boxTitle variables:varType access:accessType all:browseAll
@@ -44161,6 +44206,7 @@
     ^ navigationState projectListApplication
 ! !
 
+
 !NewSystemBrowser methodsFor:'private-history'!
 
 lastSearchPatterns
@@ -49207,7 +49253,7 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1559 2011-07-06 19:44:36 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1560 2011-07-07 09:45:27 vrany Exp $'
 !
 
 version_SVN