1229 |
1229 |
1230 directory := something. |
1230 directory := something. |
1231 ! |
1231 ! |
1232 |
1232 |
1233 initialText |
1233 initialText |
1234 |
1234 ^ resources string:(initialText ? 'File Dialog') |
1235 initialText isNil ifTrue:[ |
|
1236 ^ resources string:'File Dialog'. |
|
1237 ]. |
|
1238 ^ resources string:initialText |
|
1239 ! |
1235 ! |
1240 |
1236 |
1241 initialText:something |
1237 initialText:something |
1242 "set the value of the instance variable 'initialText' (automatically generated)" |
|
1243 |
|
1244 initialText := something. |
1238 initialText := something. |
1245 ! |
1239 ! |
1246 |
1240 |
1247 pattern |
1241 pattern |
1248 "return the value of the instance variable 'pattern' (automatically generated)" |
1242 "return the value of the instance variable 'pattern' (automatically generated)" |
1864 (aBuilder componentAt:'cancelButton') cursor:(Cursor thumbsDown). |
1858 (aBuilder componentAt:'cancelButton') cursor:(Cursor thumbsDown). |
1865 (aBuilder componentAt:'appendButton') cursor:(Cursor thumbsUp). |
1859 (aBuilder componentAt:'appendButton') cursor:(Cursor thumbsUp). |
1866 (aBuilder componentAt:'okButton') cursor:(Cursor thumbsUp). |
1860 (aBuilder componentAt:'okButton') cursor:(Cursor thumbsUp). |
1867 |
1861 |
1868 win := aBuilder window . |
1862 win := aBuilder window . |
1869 hMin := (aBuilder window margin * 2) |
1863 hMin := (win margin * 2) |
1870 + aBuilder menuBar preferredHeight |
1864 + aBuilder menuBar preferredHeight |
1871 + (aBuilder componentAt:#FilenameEntryField) height |
1865 + (aBuilder componentAt:#FilenameEntryField) height |
1872 + (aBuilder componentAt:#ToolBar1) preferredHeight |
1866 + (aBuilder componentAt:#ToolBar1) preferredHeight |
1873 + (aBuilder componentAt:#ButtonPanel) preferredHeight. |
1867 + (aBuilder componentAt:#ButtonPanel) preferredHeight. |
1874 |
1868 |
1875 win minExtent:( win minExtent x @ hMin ). |
1869 win minExtent:( win minExtent x @ hMin ). |
|
1870 win topView label:self initialText. |
1876 |
1871 |
1877 super postBuildWith:aBuilder |
1872 super postBuildWith:aBuilder |
1878 ! |
1873 ! |
1879 |
1874 |
1880 postOpenAsSubcanvasWith:aBuilder |
1875 postOpenAsSubcanvasWith:aBuilder |
2076 ! ! |
2071 ! ! |
2077 |
2072 |
2078 !FileDialog class methodsFor:'documentation'! |
2073 !FileDialog class methodsFor:'documentation'! |
2079 |
2074 |
2080 version |
2075 version |
2081 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.127 2013-06-26 08:38:19 stefan Exp $' |
2076 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.128 2013-07-04 14:51:00 cg Exp $' |
2082 ! |
2077 ! |
2083 |
2078 |
2084 version_CVS |
2079 version_CVS |
2085 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.127 2013-06-26 08:38:19 stefan Exp $' |
2080 ^ '$Header: /cvs/stx/stx/libtool/FileDialog.st,v 1.128 2013-07-04 14:51:00 cg Exp $' |
2086 ! |
2081 ! |
2087 |
2082 |
2088 version_HG |
2083 version_HG |
2089 |
2084 |
2090 ^ '$Changeset: <not expanded> $' |
2085 ^ '$Changeset: <not expanded> $' |
2091 ! |
2086 ! |
2092 |
2087 |
2093 version_SVN |
2088 version_SVN |
2094 ^ '$Id: FileDialog.st,v 1.127 2013-06-26 08:38:19 stefan Exp $' |
2089 ^ '$Id: FileDialog.st,v 1.128 2013-07-04 14:51:00 cg Exp $' |
2095 ! ! |
2090 ! ! |
2096 |
2091 |