--- a/DirectoryContentsBrowser.st Thu Apr 03 00:51:08 2003 +0200
+++ b/DirectoryContentsBrowser.st Thu Apr 03 15:39:26 2003 +0200
@@ -1175,13 +1175,13 @@
viewedColumnsChanged
- | columns buffer currentSortOrder currentSortOrderColumn currentSortOrderReverse selection|
+ |columns buffer currentSortOrder currentSortOrderColumn currentSortOrderReverse selection|
selection := self selectedItems.
- columns := self class tableColumns
+ buffer := self class tableColumns
collect:[:col| (DataSetColumnSpec new fromLiteralArrayEncoding:col)].
- buffer := columns copy.
+ columns := buffer asOrderedCollection.
self viewDetails value = false ifTrue:[
browser showLabels:false.
buffer do:[:col |
@@ -2761,5 +2761,5 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.96 2003-04-02 18:03:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.97 2003-04-03 13:39:26 stefan Exp $'
! !