Merge pull request #141 from sgsokol/custom_dialogs

added customization to file dialogs

src/core.jl

@@ -36,6 +36,10 @@ function to_tcl(x::Function)
     perc_args = join(map(u -> "%$(string(u))", args[2:end]), " ")
     cmd = "{$ccb $perc_args}"
 end
+function to_tcl(x::Tuple)
+    out = filter(item -> item != nothing, x)
+    "{"*join(["$(to_tcl(item))" for item in out], " ")*"}"
+end
 
 ## Function to simplify call to tcl_eval, ala R's tcl() function
 ## converts argumets through to_tcl

src/dialogs.jl

@@ -1,9 +1,9 @@
 ## dialogs
 
 ## can add arguments if desired. Don't like names or lack of arguments
-GetOpenFile() = tcl("tk_getOpenFile")
-GetSaveFile() = tcl("tk_getSaveFile")
-ChooseDirectory() = tcl("tk_chooseDirectory")
+GetOpenFile(;kwargs...) = tcl("tk_getOpenFile";kwargs...)
+GetSaveFile(;kwargs...) = tcl("tk_getSaveFile";kwargs...)
+ChooseDirectory(;kwargs...) = tcl("tk_chooseDirectory";kwargs...)
 
 ## Message box
 function Messagebox(parent::MaybeWidget; title::AbstractString="", message::AbstractString="", detail::AbstractString="")