DirectoryContentsBrowser.st
changeset 9534 aabf8d5125a5
parent 9513 ecc457cda16d
child 9538 1c979c56c36b
--- a/DirectoryContentsBrowser.st	Sun Aug 08 14:00:24 2010 +0200
+++ b/DirectoryContentsBrowser.st	Sun Aug 08 14:42:03 2010 +0200
@@ -1665,13 +1665,13 @@
 
     aDropContext contentsWillChange.
 
-    current ifNotNil:[
+    current notNil ifTrue:[
         current isDirectory ifTrue:[
             current icon:(self getIconFor:current).
         ].
     ].
 
-    anItem ifNotNil:[
+    anItem notNil ifTrue:[
         anItem isDirectory ifTrue:[
             anItem icon:(FileBrowser iconForKeyMatching:#directoryOpenGray).
         ].
@@ -1681,6 +1681,8 @@
         browser invalidateVisibleRow:anItem colAt:iconIndex.
         browser repairDamage.
     ].
+
+    "Modified: / 08-08-2010 / 14:41:53 / cg"
 !
 
 getDisplayObjects:anArgument
@@ -3318,9 +3320,9 @@
 !DirectoryContentsBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.233 2010-07-09 18:02:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.234 2010-08-08 12:42:03 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.233 2010-07-09 18:02:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.234 2010-08-08 12:42:03 cg Exp $'
 ! !