gmenu中的图标-gWidgets

时间:2019-01-11 14:25:42

标签: r gwidgets tcltk

我正在使用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)    

0 个答案:

没有答案