changed:
#changeItem:for:
#openApplicationClass:withItem:withType:checkExisting:preSetItem:
Clarify behavior by using #addFirst: unstead of #add:
--- 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 $'
! !