equal
deleted
inserted
replaced
900 |
900 |
901 obsolete ifTrue:[ |
901 obsolete ifTrue:[ |
902 timeStamp := directory modificationTime. |
902 timeStamp := directory modificationTime. |
903 directoryId := directory id. |
903 directoryId := directory id. |
904 directoryName := directory pathName. |
904 directoryName := directory pathName. |
905 directoryContents := directory fullDirectoryContents sort. |
905 directoryContents := (directory fullDirectoryContents ? #()) sort. |
906 directoryFileTypes := OrderedCollection new. |
906 directoryFileTypes := OrderedCollection new. |
907 directoryContents do:[:name | |
907 directoryContents do:[:name | |
908 |f| |
908 |f| |
909 |
909 |
910 f := directory construct:name. |
910 f := directory construct:name. |
963 super list:newList. |
963 super list:newList. |
964 |
964 |
965 self cursor:oldCursor. |
965 self cursor:oldCursor. |
966 |
966 |
967 "Modified: / 18.9.1997 / 23:43:52 / stefan" |
967 "Modified: / 18.9.1997 / 23:43:52 / stefan" |
968 "Modified: / 22.9.1998 / 12:33:24 / cg" |
968 "Modified: / 22.9.1998 / 14:44:02 / cg" |
969 ! |
969 ! |
970 |
970 |
971 visibleLineNeedsSpecialCare:visLineNr |
971 visibleLineNeedsSpecialCare:visLineNr |
972 |l| |
972 |l| |
973 |
973 |
1009 ! ! |
1009 ! ! |
1010 |
1010 |
1011 !FileSelectionList class methodsFor:'documentation'! |
1011 !FileSelectionList class methodsFor:'documentation'! |
1012 |
1012 |
1013 version |
1013 version |
1014 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.42 1998-09-22 11:17:04 cg Exp $' |
1014 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.43 1998-09-22 13:43:57 cg Exp $' |
1015 ! ! |
1015 ! ! |