--- 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$'
! !