Иконки в меню - gWidgets - PullRequest
Новая
       28

Иконки в меню - gWidgets

0 голосов
/ 11 января 2019

Я создаю графический интерфейс с использованием 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)
...