[R] tcltk again

Richard Müller
Sun, 30 Dec 2007 16:55:33 -0000

Oops, I just sent the wrong mail. It should be the following one. Please
delete my mail from 30.Dez. 17:51


Sorry, but I don't really understand the recommended method using the tk-Box
"tkGetSaveFile".
I wrote the following code:
X11()
# some code to generate a plot on the screen omitted

res <-    tkmessageBox(title="Finish?",
      message="save as PDF?",
      icon="question", type="okcancel")

if (tclvalue(res) == "ok")
    Datei <-
tkgetSaveFile(initialdir="temp/",defaultextension=".pdf",
    initialfile="Haupt_Chl_Phaeo.pdf")
    dev.copy(pdf, tclvalue(Datei))
else graphics.off()
graphics.off()

In the moment I'm saving I dont have the pdf generated yet. If I put it the
other way round:
dev.copy(pdf, tclvalue(Datei))
if (tclvalue(res) == "ok")
    Datei <-
tkgetSaveFile(initialdir="temp/",defaultextension=".pdf",
    initialfile="Haupt_Chl_Phaeo.pdf")
I don't have the filename specified when it is needed.
(But today I could finish the Windows versions at last, using WinDialog ;-)

Greetings