equal
deleted
inserted
replaced
611 |
611 |
612 |defaultDir instance defaultFile okText abortText initialDefaultFileName| |
612 |defaultDir instance defaultFile okText abortText initialDefaultFileName| |
613 |
613 |
614 initialDefaultFileName := initialDefaultFileNameArg. |
614 initialDefaultFileName := initialDefaultFileNameArg. |
615 initialDefaultFileName notNil ifTrue:[ |
615 initialDefaultFileName notNil ifTrue:[ |
616 initialDefaultFileName := initialDefaultFileName asFilename |
616 initialDefaultFileName := initialDefaultFileName asFilename. |
617 ]. |
617 ]. |
618 |
618 |
619 okText := okTextArg. |
619 okText := okTextArg. |
620 okText isNil ifTrue:[ okText := self resources string:'OK' ]. |
620 okText isNil ifTrue:[ okText := self resources string:'OK' ]. |
621 abortText := abortTextArg. |
621 abortText := abortTextArg. |
1275 selectedFiles := treeBrowser currentFileNameHolder value. |
1275 selectedFiles := treeBrowser currentFileNameHolder value. |
1276 ^ selectedFiles select:[:aFile| aFile isDirectory]. |
1276 ^ selectedFiles select:[:aFile| aFile isDirectory]. |
1277 ! |
1277 ! |
1278 |
1278 |
1279 startFilename |
1279 startFilename |
1280 "return the value of the instance variable 'startFilename' (automatically generated)" |
|
1281 |
|
1282 startFilename isNil ifTrue:[ |
1280 startFilename isNil ifTrue:[ |
1283 startFilename := Filename currentDirectory asAbsoluteFilename. |
1281 startFilename := Filename currentDirectory asAbsoluteFilename. |
1284 ]. |
1282 ]. |
1285 ^ startFilename |
1283 ^ startFilename |
1286 ! |
1284 ! |
1287 |
1285 |
1288 startFilename:something |
1286 startFilename:something |
1289 "set the value of the instance variable 'startFilename' (automatically generated)" |
|
1290 |
|
1291 startFilename := something. |
1287 startFilename := something. |
1292 ! ! |
1288 ! ! |
1293 |
1289 |
1294 !FileDialog methodsFor:'accessing-behavior'! |
1290 !FileDialog methodsFor:'accessing-behavior'! |
1295 |
1291 |
1472 |holder| |
1468 |holder| |
1473 |
1469 |
1474 holder := builder bindingAt:#filenameHolder. |
1470 holder := builder bindingAt:#filenameHolder. |
1475 |
1471 |
1476 holder isNil ifTrue:[ |
1472 holder isNil ifTrue:[ |
1477 holder := ValueHolder new. |
1473 holder := startFilename asValue. |
1478 holder addDependent:self. |
1474 holder addDependent:self. |
1479 builder aspectAt:#filenameHolder put:holder. |
1475 builder aspectAt:#filenameHolder put:holder. |
1480 ]. |
1476 ]. |
1481 |
1477 |
1482 ^ holder. |
1478 ^ holder. |
2069 ! ! |
2065 ! ! |
2070 |
2066 |
2071 !FileDialog class methodsFor:'documentation'! |
2067 !FileDialog class methodsFor:'documentation'! |
2072 |
2068 |
2073 version |
2069 version |
2074 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.122 2013-06-14 09:17:39 cg Exp $' |
2070 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.123 2013-06-25 08:23:43 cg Exp $' |
2075 ! |
2071 ! |
2076 |
2072 |
2077 version_CVS |
2073 version_CVS |
2078 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.122 2013-06-14 09:17:39 cg Exp $' |
2074 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.123 2013-06-25 08:23:43 cg Exp $' |
2079 ! |
2075 ! |
2080 |
2076 |
2081 version_HG |
2077 version_HG |
2082 |
2078 |
2083 ^ '$Changeset: <not expanded> $' |
2079 ^ '$Changeset: <not expanded> $' |
2084 ! |
2080 ! |
2085 |
2081 |
2086 version_SVN |
2082 version_SVN |
2087 ^ '$Id: FileDialog.st,v 1.122 2013-06-14 09:17:39 cg Exp $' |
2083 ^ '$Id: FileDialog.st,v 1.123 2013-06-25 08:23:43 cg Exp $' |
2088 ! ! |
2084 ! ! |
2089 |
2085 |