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