278 at:'*.dat' put:'DapasX Database files (*.dat)'; |
278 at:'*.dat' put:'DapasX Database files (*.dat)'; |
279 at:'*.prg' put:'DapasX Program files (*.prg)'; |
279 at:'*.prg' put:'DapasX Program files (*.prg)'; |
280 at:'*.dcf' put:'DapasX Options files (*.dcf)'; |
280 at:'*.dcf' put:'DapasX Options files (*.dcf)'; |
281 at:'*.ext' put:'DapasX Backup files (*.ext)'; |
281 at:'*.ext' put:'DapasX Backup files (*.ext)'; |
282 at:'*.mpl' put:'DapasX Project files (*.mpl)'; |
282 at:'*.mpl' put:'DapasX Project files (*.mpl)'; |
283 at:'*.expeccoLicense' put:'expecco Lizenzdatei (*.expeccoLicense)'; |
|
284 at:'*.lic' put:'Lizenzdatei (*.lic)'; |
|
285 yourself |
283 yourself |
286 |
284 |
287 "Modified: / 26-10-2010 / 18:48:28 / cg" |
285 "Modified: / 26-10-2010 / 18:48:28 / cg" |
288 ! ! |
286 ! ! |
289 |
287 |
290 !Win32FileDialog class methodsFor:'opening'! |
288 !Win32FileDialog class methodsFor:'opening'! |
291 |
289 |
292 fileDialogFor:ownerWindow save:isSaveDialog |
290 fileDialogFor:ownerWindow save:isSaveDialog |
293 title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil |
291 title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil |
294 filter:pattern extension:extensionOrNil |
292 filter:pattern extension:extensionOrNil |
|
293 <resource: #obsolete> |
295 |
294 |
296 "start a native open-file dialog. |
295 "start a native open-file dialog. |
297 If not cancelled, the selected fileName is returned; nil otherwise. |
296 If not cancelled, the selected fileName is returned; nil otherwise. |
298 Of course, this one looks like the |
297 Of course, this one looks like the |
299 Windows file dialog - no matter which viewStyle settings are active. |
298 Windows file dialog - no matter which viewStyle settings are active. |
300 Notice: if no ownerWindow is given, the dialog pops up at 0@0. |
299 Notice: if no ownerWindow is given, the dialog pops up at 0@0. |
301 |
300 |
302 EXPERIMENTAL & non-portable: use with caution" |
301 EXPERIMENTAL & non-portable: use with caution" |
303 |
302 |
|
303 self obsoleteMethodWarning:'please use the new interface'. |
|
304 |
|
305 ^ self |
|
306 fileDialogFor:ownerWindow save:isSaveDialog |
|
307 title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil |
|
308 pattern:pattern extension:extensionOrNil |
|
309 ! |
|
310 |
|
311 fileDialogFor:ownerWindow save:isSaveDialog |
|
312 title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil |
|
313 pattern:pattern extension:extensionOrNil |
|
314 |
|
315 "start a native open-file dialog. |
|
316 If not cancelled, the selected fileName is returned; nil otherwise. |
|
317 Of course, this one looks like the |
|
318 Windows file dialog - no matter which viewStyle settings are active. |
|
319 Notice: if no ownerWindow is given, the dialog pops up at 0@0. |
|
320 |
|
321 EXPERIMENTAL & non-portable: use with caution" |
|
322 |
|
323 ^ self |
|
324 fileDialogFor:ownerWindow save:isSaveDialog |
|
325 title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil |
|
326 pattern:pattern orFilters:nil extension:extensionOrNil |
|
327 ! |
|
328 |
|
329 fileDialogFor:ownerWindow save:isSaveDialog |
|
330 title:titleOrNil inDirectory:dirPathOrNil initialAnswer:initialOrNil |
|
331 pattern:patternOrNil orFilters:filtersOrNil extension:extensionOrNil |
|
332 |
|
333 "start a native open-file dialog. |
|
334 If not cancelled, the selected fileName is returned; nil otherwise. |
|
335 Of course, this one looks like the |
|
336 Windows file dialog - no matter which viewStyle settings are active. |
|
337 Notice: if no ownerWindow is given, the dialog pops up at 0@0. |
|
338 |
|
339 EXPERIMENTAL & non-portable: use with caution" |
|
340 |
304 |filePath filterArrayOrNil| |
341 |filePath filterArrayOrNil| |
305 |
342 |
306 filterArrayOrNil := self filtersFor: pattern. |
343 filtersOrNil notNil ifTrue:[ |
|
344 filterArrayOrNil := filtersOrNil. |
|
345 ] ifFalse:[ |
|
346 patternOrNil notNil ifTrue:[ |
|
347 filterArrayOrNil := self filtersFor:patternOrNil. |
|
348 ] |
|
349 ]. |
307 |
350 |
308 filePath := |
351 filePath := |
309 self new |
352 self new |
310 openFor:ownerWindow |
353 openFor:ownerWindow |
311 save:isSaveDialog |
354 save:isSaveDialog |
312 title:titleOrNil |
355 title:titleOrNil |
313 inDirectory:dirPathOrNil |
356 inDirectory:dirPathOrNil |
314 initialAnswer:initialOrNil |
357 initialAnswer:initialOrNil |
315 filter:filterArrayOrNil |
358 filter:filterArrayOrNil |
316 extension:extensionOrNil. |
359 extension:extensionOrNil. |
317 |
360 |
318 ^ filePath |
361 ^ filePath |
319 ! ! |
362 ! ! |
320 |
363 |
321 !Win32FileDialog methodsFor:'accessing'! |
364 !Win32FileDialog methodsFor:'accessing'! |