equal
deleted
inserted
replaced
20 classVariableNames:'' |
20 classVariableNames:'' |
21 poolDictionaries:'' |
21 poolDictionaries:'' |
22 category:'Views-Text' |
22 category:'Views-Text' |
23 ! |
23 ! |
24 |
24 |
25 !FileSelectionList class methodsFor:'documentation'! |
25 !FileSelectionList class methodsFor:'documentation'! |
26 |
26 |
27 copyright |
27 copyright |
28 " |
28 " |
29 COPYRIGHT (c) 1993 by Claus Gittinger |
29 COPYRIGHT (c) 1993 by Claus Gittinger |
30 All Rights Reserved |
30 All Rights Reserved |
39 ! |
39 ! |
40 |
40 |
41 documentation |
41 documentation |
42 " |
42 " |
43 this class implements file selection lists - its basically a |
43 this class implements file selection lists - its basically a |
44 selection in list, but adds some right-arrows to directories. |
44 selection-in-list-view, but adds some right-arrows to directories. |
45 (and will soon remember the previous position when changing directories). |
45 (and will soon remember the previous position when changing directories). |
46 You can specify an optional filename-pattern (such as '*.st') and an |
46 You can specify an optional filename-pattern (such as '*.st') and an |
47 optional matchBlock (such as: [:name | name startsWith:'A']). |
47 optional matchBlock (such as: [:name | name startsWith:'A']). |
48 |
48 |
49 Only files (plus directories) matching the pattern (if present) and |
49 Only files (plus directories) matching the pattern (if present) and |
940 ^ (width - margin - margin) |
940 ^ (width - margin - margin) |
941 ! ! |
941 ! ! |
942 |
942 |
943 !FileSelectionList methodsFor:'realization'! |
943 !FileSelectionList methodsFor:'realization'! |
944 |
944 |
945 realize |
945 postRealize |
946 "make the view visible; redefined to check if directory is still |
946 "check if directory is still valid (using timestamp and inode numbers) |
947 valid (using timestamp and inode numbers) - reread if not" |
947 - reread if not" |
|
948 |
|
949 super postRealize. |
948 |
950 |
949 (timeStamp isNil |
951 (timeStamp isNil |
950 or:[(directory timeOfLastChange > timeStamp) |
952 or:[(directory timeOfLastChange > timeStamp) |
951 or:[(directoryId isNil) |
953 or:[(directoryId isNil) |
952 or:[directoryId ~~ directory id]]]) ifTrue:[ |
954 or:[directoryId ~~ directory id]]]) ifTrue:[ |
953 directoryId := nil. |
955 directoryId := nil. |
954 self updateList |
956 self updateList |
955 ]. |
957 ]. |
956 super realize |
958 |
|
959 "Created: 24.7.1997 / 18:20:16 / cg" |
957 ! ! |
960 ! ! |
958 |
961 |
959 !FileSelectionList class methodsFor:'documentation'! |
962 !FileSelectionList class methodsFor:'documentation'! |
960 |
963 |
961 version |
964 version |
962 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.34 1996-10-14 21:31:34 stefan Exp $' |
965 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.35 1997-07-24 16:21:24 cg Exp $' |
963 ! ! |
966 ! ! |