Replace references to Diplay with "Screen current" - where appropriate
authorStefan Vogel <sv@exept.de>
Thu, 16 Jan 2014 15:32:51 +0100
changeset 3066 a8e197ceebed
parent 3065 311d632319d9
child 3067 4fc07457aef3
Replace references to Diplay with "Screen current" - where appropriate
ImageEditor.st
--- a/ImageEditor.st	Mon Dec 16 14:42:41 2013 +0100
+++ b/ImageEditor.st	Thu Jan 16 15:32:51 2014 +0100
@@ -6336,9 +6336,10 @@
 
     title := (resources string:'Load Image From').
 
-    UserPreferences current useNativeFileDialog ifTrue:[
+    (UserPreferences current useNativeFileDialog
+     and:[Screen current platformName = #WIN32]) ifTrue:[
         self withWaitCursorDo:[
-            file := Display
+            file := Screen current
                 nativeFileDialogFor:(self window topView id)
                 save:false
                 title:title
@@ -6599,9 +6600,10 @@
 
     filters := FileSelectionBrowser saveImageFileNameFilters.
 
-    UserPreferences current useNativeFileDialog ifTrue:[
+    (UserPreferences current useNativeFileDialog
+     and:[Screen current platformName = #WIN32]) ifTrue:[
         self withWaitCursorDo:[
-            file := Display
+            file := Screen current
                 nativeFileDialogFor:(self window topView id)
                 save:true
                 title:(resources string:'Save Image To')