conserve user defined GR workstation type

This commit is contained in:
Josef Heinen 2016-06-14 18:03:03 +02:00
parent c4bdc5b856
commit bc5293b5a4

View File

@ -895,11 +895,12 @@ const _gr_mimeformats = Dict(
for (mime, fmt) in _gr_mimeformats for (mime, fmt) in _gr_mimeformats
@eval function _writemime(io::IO, ::MIME{Symbol($mime)}, plt::Plot{GRBackend}) @eval function _writemime(io::IO, ::MIME{Symbol($mime)}, plt::Plot{GRBackend})
GR.emergencyclosegks() GR.emergencyclosegks()
wstype = haskey(ENV, "GKS_WSTYPE") ? ENV["GKS_WSTYPE"] : "0"
ENV["GKS_WSTYPE"] = $fmt ENV["GKS_WSTYPE"] = $fmt
gr_display(plt) gr_display(plt)
GR.emergencyclosegks() GR.emergencyclosegks()
write(io, readall("gks." * $fmt)) write(io, readall("gks." * $fmt))
ENV["GKS_WSTYPE"] = "" ENV["GKS_WSTYPE"] = wstype
end end
end end