--- a/Tools__NavigationHistory.st	Mon Jul 04 21:49:57 2011 +0200
+++ b/Tools__NavigationHistory.st	Mon Jul 04 22:47:37 2011 +0200
@@ -111,6 +111,14 @@
     "Created: / 03-07-2011 / 13:26:48 / cg"
 !
 
+collect:aBlock 
+    "backward compatible list protocol"
+
+    ^ items collect:aBlock
+
+    "Created: / 04-07-2011 / 22:45:21 / cg"
+!
+
 collect:aBlock thenSelect:filter
     "backward compatible list protocol"
 
@@ -127,6 +135,22 @@
     "Created: / 03-07-2011 / 13:25:37 / cg"
 !
 
+isEmpty
+    "backward compatible list protocol"
+
+    ^ items isEmpty
+
+    "Created: / 04-07-2011 / 22:44:54 / cg"
+!
+
+notEmpty
+    "backward compatible list protocol"
+
+    ^ items notEmpty
+
+    "Created: / 04-07-2011 / 22:45:45 / cg"
+!
+
 removeIdentical:anEntry
     "backward compatible list protocol"
 
@@ -134,6 +158,14 @@
     self changed: #value with:nil.
 
     "Created: / 03-07-2011 / 13:27:34 / cg"
+!
+
+reverseDo:aBlock
+    "backward compatible list protocol"
+
+    items reverseDo:aBlock
+
+    "Created: / 04-07-2011 / 22:44:28 / cg"
 ! !
 
 !NavigationHistory methodsFor:'initialization'!
@@ -270,7 +302,7 @@
 !NavigationHistory class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationHistory.st,v 1.7 2011-07-04 13:57:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationHistory.st,v 1.8 2011-07-04 20:47:37 cg Exp $'
 !
 
 version_CVS_jvrany