equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libwidg' }" |
12 "{ Package: 'stx:libwidg' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 SelectionInListView subclass:#FileSelectionList |
16 SelectionInListView subclass:#FileSelectionList |
15 instanceVariableNames:'pattern directory timeStamp directoryId directoryName |
17 instanceVariableNames:'pattern directory timeStamp directoryId directoryName |
16 directoryContents directoryFileTypes realAction matchBlock |
18 directoryContents directoryFileTypes realAction matchBlock |
17 stayInDirectory ignoreParentDirectory markDirectories |
19 stayInDirectory ignoreParentDirectory markDirectories |
199 list := v scrolledView. |
201 list := v scrolledView. |
200 list ignoreFiles:true. |
202 list ignoreFiles:true. |
201 top open |
203 top open |
202 [exEnd] |
204 [exEnd] |
203 |
205 |
204 dont show the directory arrow-mark: |
206 don't show the directory arrow-mark: |
205 [exBegin] |
207 [exBegin] |
206 |top v list| |
208 |top v list| |
207 |
209 |
208 top := StandardSystemView new. |
210 top := StandardSystemView new. |
209 top extent:(300 @ 200). |
211 top extent:(300 @ 200). |
347 ]. |
349 ]. |
348 list action:[:index | Transcript showCR:'you selected: ' , list selectionValue]. |
350 list action:[:index | Transcript showCR:'you selected: ' , list selectionValue]. |
349 top open |
351 top open |
350 [exEnd] |
352 [exEnd] |
351 |
353 |
352 show only h*-files in /etc; dont allow directory changes: |
354 show only h*-files in /etc; don't allow directory changes: |
353 [exBegin] |
355 [exBegin] |
354 |top v list| |
356 |top v list| |
355 |
357 |
356 top := StandardSystemView new. |
358 top := StandardSystemView new. |
357 top extent:(300 @ 200). |
359 top extent:(300 @ 200). |
1089 ! ! |
1091 ! ! |
1090 |
1092 |
1091 !FileSelectionList class methodsFor:'documentation'! |
1093 !FileSelectionList class methodsFor:'documentation'! |
1092 |
1094 |
1093 version |
1095 version |
1094 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionList.st,v 1.59 2013-08-31 19:29:52 cg Exp $' |
1096 ^ '$Header$' |
1095 ! ! |
1097 ! ! |
1096 |
1098 |