# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1302986656 -7200
# Node ID 2edda6ff06005b30f249743d26198f95c240ce80
# Parent  125d044d2be00db57057c0839b7dccc5496192ae
changed:
        #changeItem:for:
        #openApplicationClass:withItem:withType:checkExisting:preSetItem:

Clarify behavior by using #addFirst: unstead of #add:

diff -r 125d044d2be0 -r 2edda6ff0600 FileApplicationNoteBook.st
--- a/FileApplicationNoteBook.st	Sat Apr 16 13:38:43 2011 +0200
+++ b/FileApplicationNoteBook.st	Sat Apr 16 22:44:16 2011 +0200
@@ -372,23 +372,22 @@
 
 !FileApplicationNoteBook methodsFor:'actions-app-common'!
 
-changeItem:anItem for:aAppl
-
+changeItem:anItem for:anAppl
     | applIndex string isDirectory |
 
-    applIndex := self getIndexFor:aAppl.
+    applIndex := self getIndexFor:anAppl.
     anItem notNil ifTrue:[
         isDirectory := anItem isDirectory or:[anItem linkTargetIsDirectory ].
 
         isDirectory ifFalse:[
-            (aAppl changeItem:anItem) ifFalse:[ ^ self].
-            self fileHistory add:anItem.
+            (anAppl changeItem:anItem) ifFalse:[ ^ self].
+            self fileHistory addFirst:anItem.
             self enableFileHistory value:true.
         ].
     ].
-    string := aAppl getTabString.
+    string := anAppl getTabString.
     self privateTabList at:applIndex put:(Text fromString:string).
-    self doSelect:aAppl.
+    self doSelect:anAppl.
 !
 
 changeModified:aSymbol for:aAppl
@@ -566,7 +565,7 @@
     checkExisting ifTrue:[
         (anItem notNil and:[anItem isDirectory not and:[anItem fileName isReadable not]]) ifTrue:[
             Dialog warn:'Can not open unreadable file ', anItem fileName baseName.
-            AbortSignal raise.
+            AbortOperationRequest raise.
         ].
         existingAppl := self tryToGetExistingApplFor:aClass withItem:anItem withType:aType preSetItem:aBlock.
         existingAppl notNil ifTrue:[
@@ -587,7 +586,7 @@
     ].
     (newAppl item:anItem) ifFalse:[ ^ nil ].
     (anItem notNil and:[(anItem isDirectory not) and:[aType ~= #directoryDescription]]) ifTrue:[
-        self fileHistory add:anItem.
+        self fileHistory addFirst:anItem.
         self enableFileHistory value:true.
     ].
     self setSameFileIndexFor:newAppl.
@@ -6303,9 +6302,9 @@
 !FileApplicationNoteBook class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.246 2011-02-21 16:22:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.247 2011-04-16 20:44:16 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.246 2011-02-21 16:22:11 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileApplicationNoteBook.st,v 1.247 2011-04-16 20:44:16 stefan Exp $'
 ! !