将 GIF 图像添加到 TclTk 窗口

Question

我希望在我的 tcltk 窗口中插入一个“正在加载”的 GIF 图像，但我无法理解它。以下是一个可重现的示例：-

backg <- 'white'
pdlg <- tktoplevel(background=backg)
tcl('wm', 'geometry', pdlg, '500x100+450+350')
tilg <- 'Package installation in progress'
tkwm.title(pdlg, tilg)
fn <- tkfont.create(family = 'helvetica', size = 12)

nwlabel <- "    The requisite packages are being installed. This may take several    \nminutes... \n"
tllab <- tklabel(pdlg, text = nwlabel, font = fn, pady = 0, background=backg)

clickEv <- tclVar(0)

OK.but <- tkbutton(pdlg, text=' Stop ', command=function() tclvalue(clickEv) <- 1, font=fn, background='grey', pady=0)

tkgrid(tllab, columnspan=1) 
tkgrid(OK.but, row=3)

tkbind(pdlg, "<Destroy>", function() tclvalue(done) <- 2)
tkfocus(pdlg)

#This allows me to insert a GIF image but the animation is lost. Also it would be convenient if the output can be obtained using 'tkgrid' instead of 'tkpack'
pdlg2 <- tktoplevel(background='white')
loading <- tclVar()
tcl('image', 'create', 'photo', loading,
file='file path to GIF file')
trial <- tklabel(pdlg2, image=loading)
tkpack(trial)

可以从这里下载一个示例 GIF 文件 -http://www.dlfpramericalife.com/library/images/final_loading_big.gif

理想情况下，GIF 图像应放置在“停止”按钮上方但文本下方。非常感谢您的帮助！

Answer 1

在 Tcl/Tk 中，这很容易。

set img [image create photo -file nameofthefile.gif]
label .l -image $img

我不知道 R，但以你的代码为指导，我想像这样，但请检查一下！

img <- tkimage.create('photo', file='nameofthefile.gif')
imglab <- tklabel(pdlg, image = img)

...然后您将其网格/打包/放置在您想要的任何地方。请注意，这不适用于动画 gif，我认为动画必须是手动处理程序，使用定期更新图像内容的计时器，但我从未这样做过，也不知道该怎么做。您可以查看Tcl/Tk wiki 以获得更多帮助。