equal
deleted
inserted
replaced
240 ]. |
240 ]. |
241 box open. |
241 box open. |
242 box accepted ifTrue:[ |
242 box accepted ifTrue:[ |
243 Transcript showCR:'full path: ' , box pathName. |
243 Transcript showCR:'full path: ' , box pathName. |
244 Transcript showCR:'files name: ' , box fileName. |
244 Transcript showCR:'files name: ' , box fileName. |
245 Transcript showCR:'directory : ' , box directory. |
245 Transcript showCR:'directory : ' , box directory pathName. |
246 ] |
246 ] |
247 [exEnd] |
247 [exEnd] |
248 " |
248 " |
249 ! ! |
249 ! ! |
250 |
250 |
325 |
325 |
326 |string| |
326 |string| |
327 |
327 |
328 string := super contents. |
328 string := super contents. |
329 string isNil ifTrue:[^ nil]. |
329 string isNil ifTrue:[^ nil]. |
330 ^ self pathName |
330 ^ self pathName asFilename baseName |
|
331 |
|
332 "Modified: / 12.8.1998 / 09:54:01 / cg" |
331 ! |
333 ! |
332 |
334 |
333 matchBlock:aBlock |
335 matchBlock:aBlock |
334 "set the matchBlock (in the selectionList). Only files |
336 "set the matchBlock (in the selectionList). Only files |
335 for which the block returns true are shown. |
337 for which the block returns true are shown. |
638 ! ! |
640 ! ! |
639 |
641 |
640 !FileSelectionBox class methodsFor:'documentation'! |
642 !FileSelectionBox class methodsFor:'documentation'! |
641 |
643 |
642 version |
644 version |
643 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.50 1998-08-07 18:01:33 cg Exp $' |
645 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.51 1998-08-12 07:57:15 cg Exp $' |
644 ! ! |
646 ! ! |