Question

我正在使用tcltk工具箱创建GUI。我快完成了，只缺少一些美学上的调整。首先-菜单栏中的图标不可见。我尝试了不同的方法，但仍然没有成功。它在RGtk2中有效，但我想留在tcltk中。其次-我在右上角的菜单栏中有一个“帮助”图标的概念，但是我不确定该怎么做，甚至不确定。

有什么想法吗？

现在我的GUI如下：

library(gWidgets) 
library(gWidgetstcltk) 

w <- gwindow("Example") 
visible(w) <- T 

mbl <- list() 
mbl$About$handler = function(h,...) {print("About"); gmessage("About clicked")} 
mbl$About$icon = "help_topic" 
mbl$Help$handler = function(h,...) print("Help") 
mbl$Help$icon = "help" 

mb <- gmenu(mbl, container = w) 

g <- ggroup(horizontal = F, container = w) 

nb <- gnotebook(cont = g) ## notebook 

Tab1 <- ggroup(horizontal = FALSE, cont=nb, label="Tab 1", expand = T) 
Tab2 <- ggroup(horizontal = FALSE, cont=nb, label="Tab 2", expand = T) 

g1 <- gframe("Frame", cont = Tab1, horizontal = T, expand=TRUE) 
SomeButton <- gbutton("Click", cont=g1) 
OtherButton <- gbutton("Close", cont=g1)

gmenu中的图标-gWidgets

0 个答案: