Иконки в меню - gWidgets
Я создаю GUI используя tcltk
Инструментарий. Я почти закончил, только некоторые эстетические корректировки отсутствуют. Первое - иконки в меню не видны. Я пробовал разные способы, но все равно безуспешно. Он работал в RGtk2
но я бы хотел остаться в tcltk
, Второе - я получил представление о значке справки в строке меню в правом верхнем углу, но я не уверен, как это сделать, или если это вообще возможно.
Есть идеи?
Теперь мой графический интерфейс выглядит так:
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)