HierarchicalFileList.st
changeset 5161 a0cf6ae46500
parent 4771 d1ef5de920b9
child 5650 cae2e4d6271f
--- a/HierarchicalFileList.st	Mon Jul 18 11:14:57 2016 +0200
+++ b/HierarchicalFileList.st	Mon Jul 18 19:59:18 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 1999 by eXept Software AG
               All Rights Reserved
@@ -169,7 +167,7 @@
 !
 
 directory:aDirectory expand:doExpand
-    "set the root directory or nil; 
+    "set the root directory or nil;
      reuse old items if existent"
 
     |oldDir newDir oldRoot newRoot index changeToParent children|
@@ -209,7 +207,7 @@
         ].
     ].
     newRoot := HierarchicalFileItem fileName:newDir.
-    newRoot setExpanded:false.  "/ to supress change notifications
+    newRoot setExpanded:false.  "/ to suppress change notifications
     self root:newRoot.
 
     children := newRoot children ? #().
@@ -1426,11 +1424,11 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.84 2015-05-22 09:08:58 ca Exp $'
+    ^ '$Header$'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.84 2015-05-22 09:08:58 ca Exp $'
+    ^ '$Header$'
 ! !