equal
deleted
inserted
replaced
296 |
296 |
297 |string sep| |
297 |string sep| |
298 |
298 |
299 string := super contents. |
299 string := super contents. |
300 string isNil ifTrue:[ |
300 string isNil ifTrue:[ |
301 ^ selectionList directory pathName |
301 ^ selectionList directory pathName |
302 ]. |
302 ]. |
303 sep := Filename separator. |
303 (string asFilename isAbsolute) ifTrue:[ |
304 (string startsWith:sep) ifTrue:[ |
304 ^ string |
305 ^ string |
|
306 ]. |
305 ]. |
307 ^ (selectionList directory pathName asFilename construct:string) asString |
306 ^ (selectionList directory pathName asFilename construct:string) asString |
|
307 |
|
308 "Modified: / 9.9.1998 / 21:23:16 / cg" |
308 ! |
309 ! |
309 |
310 |
310 directory |
311 directory |
311 "return the directory which is currently shown" |
312 "return the directory which is currently shown" |
312 |
313 |
591 |dir string fname| |
592 |dir string fname| |
592 |
593 |
593 string := enterField contents. |
594 string := enterField contents. |
594 (string notNil and:[string notEmpty]) ifTrue:[ |
595 (string notNil and:[string notEmpty]) ifTrue:[ |
595 string := string withoutSeparators. |
596 string := string withoutSeparators. |
|
597 self halt. |
596 string asFilename isAbsolute ifTrue:[ |
598 string asFilename isAbsolute ifTrue:[ |
597 fname := string asFilename |
599 fname := string asFilename |
598 ] ifFalse:[ |
600 ] ifFalse:[ |
599 dir := selectionList directory pathName asFilename. |
601 dir := selectionList directory pathName asFilename. |
600 fname := dir construct:string |
602 fname := dir construct:string |
612 ]. |
614 ]. |
613 ]. |
615 ]. |
614 |
616 |
615 super okPressed |
617 super okPressed |
616 |
618 |
|
619 "Modified: / 9.9.1998 / 21:21:14 / cg" |
617 ! |
620 ! |
618 |
621 |
619 patternChanged |
622 patternChanged |
620 selectionList pattern:patternField contents. |
623 selectionList pattern:patternField contents. |
621 self updateList |
624 self updateList |
640 ! ! |
643 ! ! |
641 |
644 |
642 !FileSelectionBox class methodsFor:'documentation'! |
645 !FileSelectionBox class methodsFor:'documentation'! |
643 |
646 |
644 version |
647 version |
645 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.51 1998-08-12 07:57:15 cg Exp $' |
648 ^ '$Header: /cvs/stx/stx/libwidg/FileSelectionBox.st,v 1.52 1998-09-09 20:10:13 cg Exp $' |
646 ! ! |
649 ! ! |