equal
deleted
inserted
replaced
6334 file := img fileName |
6334 file := img fileName |
6335 ]. |
6335 ]. |
6336 |
6336 |
6337 title := (resources string:'Load Image From'). |
6337 title := (resources string:'Load Image From'). |
6338 |
6338 |
6339 UserPreferences current useNativeFileDialog ifTrue:[ |
6339 (UserPreferences current useNativeFileDialog |
|
6340 and:[Screen current platformName = #WIN32]) ifTrue:[ |
6340 self withWaitCursorDo:[ |
6341 self withWaitCursorDo:[ |
6341 file := Display |
6342 file := Screen current |
6342 nativeFileDialogFor:(self window topView id) |
6343 nativeFileDialogFor:(self window topView id) |
6343 save:false |
6344 save:false |
6344 title:title |
6345 title:title |
6345 inDirectory:(file notNil ifTrue:[file asFilename directory pathName] ifFalse:[LastDirectory]) |
6346 inDirectory:(file notNil ifTrue:[file asFilename directory pathName] ifFalse:[LastDirectory]) |
6346 initialAnswer:(file notNil ifTrue:[file asFilename baseName] ifFalse:['image.png']) |
6347 initialAnswer:(file notNil ifTrue:[file asFilename baseName] ifFalse:['image.png']) |
6597 file := img fileName |
6598 file := img fileName |
6598 ]. |
6599 ]. |
6599 |
6600 |
6600 filters := FileSelectionBrowser saveImageFileNameFilters. |
6601 filters := FileSelectionBrowser saveImageFileNameFilters. |
6601 |
6602 |
6602 UserPreferences current useNativeFileDialog ifTrue:[ |
6603 (UserPreferences current useNativeFileDialog |
|
6604 and:[Screen current platformName = #WIN32]) ifTrue:[ |
6603 self withWaitCursorDo:[ |
6605 self withWaitCursorDo:[ |
6604 file := Display |
6606 file := Screen current |
6605 nativeFileDialogFor:(self window topView id) |
6607 nativeFileDialogFor:(self window topView id) |
6606 save:true |
6608 save:true |
6607 title:(resources string:'Save Image To') |
6609 title:(resources string:'Save Image To') |
6608 inDirectory:(file notNil ifTrue:[file asFilename directory pathName] ifFalse:[LastDirectory]) |
6610 inDirectory:(file notNil ifTrue:[file asFilename directory pathName] ifFalse:[LastDirectory]) |
6609 initialAnswer:(file notNil ifTrue:[file asFilename baseName] ifFalse:['image.png']) |
6611 initialAnswer:(file notNil ifTrue:[file asFilename baseName] ifFalse:['image.png']) |