fixed bug introduced by stefans beautification ;-)
authorClaus Gittinger <cg@exept.de>
Wed, 26 Nov 2003 18:37:33 +0100
changeset 5380 2f738f3a34b1
parent 5379 70a101a1d056
child 5381 a9ce3fe323c6
fixed bug introduced by stefans beautification ;-) (never change a working system)
AbstractFileBrowser.st
--- a/AbstractFileBrowser.st	Tue Nov 25 18:05:09 2003 +0100
+++ b/AbstractFileBrowser.st	Wed Nov 26 18:37:33 2003 +0100
@@ -2480,12 +2480,12 @@
 !
 
 gotoFile:aFilename 
-    "select only if the file is not already in selection"
+    "select only if the file is not already in the selection"
     
     |currentSel|
 
     currentSel := self currentFileNameHolder value.
-    (currentSel includes:aFilename) ifTrue:[
+    (currentSel includes:aFilename) ifFalse:[
         self currentFileNameHolder 
             value:(OrderedCollection with:(aFilename asAbsoluteFilename)).
     ].
@@ -6467,5 +6467,5 @@
 !AbstractFileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.187 2003-11-24 19:56:10 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/AbstractFileBrowser.st,v 1.188 2003-11-26 17:37:33 cg Exp $'
 ! !