equal
deleted
inserted
replaced
373 whenBoxCreatedEvaluate:boxCreatedCallback |
373 whenBoxCreatedEvaluate:boxCreatedCallback |
374 asLoadDialog:asLoadDialog |
374 asLoadDialog:asLoadDialog |
375 forDirectory:false |
375 forDirectory:false |
376 multipleSelect:true. |
376 multipleSelect:true. |
377 |
377 |
378 enteredFileNames := instance returnFiles. |
378 enteredFileNames := instance currentSelectedFiles. |
379 (enteredFileNames isEmpty or:[instance result isNil]) ifTrue:[ |
379 (enteredFileNames isEmpty or:[instance result isNil]) ifTrue:[ |
380 ^ failBlock value |
380 ^ failBlock value |
381 ]. |
381 ]. |
382 lastDirectory := enteredFileNames first. |
382 lastDirectory := enteredFileNames first. |
383 lastDirectory := lastDirectory isFilename ifTrue:[lastDirectory directory] ifFalse:[lastDirectory]. |
383 lastDirectory := lastDirectory isFilename ifTrue:[lastDirectory directory] ifFalse:[lastDirectory]. |
713 asLoadDialog:aBoolean |
713 asLoadDialog:aBoolean |
714 |
714 |
715 asLoadDialog := aBoolean |
715 asLoadDialog := aBoolean |
716 ! |
716 ! |
717 |
717 |
|
718 currentSelectedFiles |
|
719 |
|
720 | selectedFiles| |
|
721 |
|
722 selectedFiles := treeBrowser currentFileNameHolder value. |
|
723 ^ selectedFiles select:[:aFile| aFile isDirectory not]. |
|
724 ! |
|
725 |
718 directory |
726 directory |
719 "return the value of the instance variable 'directory' (automatically generated)" |
727 "return the value of the instance variable 'directory' (automatically generated)" |
720 |
728 |
721 ^ directory |
729 ^ directory |
722 ! |
730 ! |
795 |
803 |
796 result:something |
804 result:something |
797 "set the value of the instance variable 'result' (automatically generated)" |
805 "set the value of the instance variable 'result' (automatically generated)" |
798 |
806 |
799 result := something. |
807 result := something. |
800 ! |
|
801 |
|
802 returnFiles |
|
803 |
|
804 | selectedFiles| |
|
805 |
|
806 selectedFiles := treeBrowser currentFileNameHolder value. |
|
807 ^ selectedFiles select:[:aFile| aFile isDirectory not]. |
|
808 ! |
808 ! |
809 |
809 |
810 selectedDirectories |
810 selectedDirectories |
811 |
811 |
812 | selectedFiles| |
812 | selectedFiles| |
1137 ! ! |
1137 ! ! |
1138 |
1138 |
1139 !FileDialog class methodsFor:'documentation'! |
1139 !FileDialog class methodsFor:'documentation'! |
1140 |
1140 |
1141 version |
1141 version |
1142 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.14 2002-10-14 19:32:20 stefan Exp $' |
1142 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.15 2002-10-15 08:39:57 penk Exp $' |
1143 ! ! |
1143 ! ! |