equal
deleted
inserted
replaced
6337 ]. |
6337 ]. |
6338 |
6338 |
6339 title := (resources string:'Load Image From'). |
6339 title := (resources string:'Load Image From'). |
6340 |
6340 |
6341 (UserPreferences current useNativeFileDialog |
6341 (UserPreferences current useNativeFileDialog |
6342 and:[Screen current platformName = #WIN32]) ifTrue:[ |
6342 and:[Screen current isWindowsPlatform]) ifTrue:[ |
6343 self withWaitCursorDo:[ |
6343 self withWaitCursorDo:[ |
6344 file := Screen current |
6344 file := Screen current |
6345 nativeFileDialogFor:(self window topView id) |
6345 nativeFileDialogFor:(self window topView id) |
6346 save:false |
6346 save:false |
6347 title:title |
6347 title:title |
6601 ]. |
6601 ]. |
6602 |
6602 |
6603 filters := FileSelectionBrowser saveImageFileNameFilters. |
6603 filters := FileSelectionBrowser saveImageFileNameFilters. |
6604 |
6604 |
6605 (UserPreferences current useNativeFileDialog |
6605 (UserPreferences current useNativeFileDialog |
6606 and:[Screen current platformName = #WIN32]) ifTrue:[ |
6606 and:[Screen current isWindowsPlatform]) ifTrue:[ |
6607 self withWaitCursorDo:[ |
6607 self withWaitCursorDo:[ |
6608 file := Screen current |
6608 file := Screen current |
6609 nativeFileDialogFor:(self window topView id) |
6609 nativeFileDialogFor:(self window topView id) |
6610 save:true |
6610 save:true |
6611 title:(resources string:'Save Image To') |
6611 title:(resources string:'Save Image To') |