#FEATURE by sr
authorsr
Thu, 08 Nov 2018 14:34:02 +0100
changeset 8572 8bebfb5a72b1
parent 8571 8d5cf61f7ac5
child 8573 f4c30f95f9fb
#FEATURE by sr class: WinWorkstation changed: #_nativeFileDialogWithTitle:defaultFilename:owningTopView:filter:filterIndex:trueForSave:trueForMultiSelect:trueForPromptOverwrite:
WinWorkstation.st
--- a/WinWorkstation.st	Thu Nov 08 14:32:11 2018 +0100
+++ b/WinWorkstation.st	Thu Nov 08 14:34:02 2018 +0100
@@ -16662,7 +16662,7 @@
     owningTopView:owningTopView
     filter:filterStringOrArrayOfPairs
     filterIndex:filterIndexArg
-    trueForSave:trueForSave
+    trueForSave:trueForSaveArg
     trueForMultiSelect:trueForMultiSelect         
     trueForPromptOverwrite:trueForPromptOverwrite    
 
@@ -16671,12 +16671,14 @@
      returns nil or the full path to the selected file
      see example at the end of the method code"
 
-    |dialogTitle defaultBaseName defaultDirectory owningViewId windowGroup filterString filterArrayOrPairs 
+    |trueForSave dialogTitle defaultBaseName defaultDirectory owningViewId windowGroup filterString filterArrayOrPairs 
      null filterStringParts
      nativeFileDialogCreationData returnValue 
      nativeFileDialogReturnData targetFileOrDirectory multiSelectBaseNames selectedSuffixInfo selectedSuffix
      needsSlash|
 
+    trueForSave := trueForSaveArg ? false.
+
     dialogTitleArg notEmptyOrNil ifTrue:[
         dialogTitle := dialogTitleArg asUnicode16String.
     ].
@@ -16922,8 +16924,7 @@
     "
 
     "Created: / 08-11-2018 / 09:11:25 / sr"
-    "Modified: / 08-11-2018 / 10:39:09 / sr"
-    "Modified (comment): / 08-11-2018 / 14:12:05 / sr"
+    "Modified: / 08-11-2018 / 14:33:30 / sr"
 !
 
 _primCloseNativeFileDialogByByCreationData:nativeFileDialogCreationData