added: #first
authorClaus Gittinger <cg@exept.de>
Tue, 23 Oct 2012 15:13:20 +0200
changeset 11904 62240b5bf008
parent 11903 5b027fc44ff8
child 11905 528bf0604748
added: #first
Tools__NavigationHistory.st
--- a/Tools__NavigationHistory.st	Tue Oct 23 14:51:09 2012 +0200
+++ b/Tools__NavigationHistory.st	Tue Oct 23 15:13:20 2012 +0200
@@ -135,6 +135,14 @@
     "Created: / 03-07-2011 / 13:25:37 / cg"
 !
 
+first
+    "backward compatible list protocol"
+
+    ^ items first
+
+    "Created: / 04-07-2011 / 22:45:21 / cg"
+!
+
 isEmpty
     "backward compatible list protocol"
 
@@ -308,7 +316,7 @@
 !NavigationHistory class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationHistory.st,v 1.11 2012-09-02 11:20:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NavigationHistory.st,v 1.12 2012-10-23 13:13:20 cg Exp $'
 !
 
 version_CVS_jvrany