R RGtk2 gmenu: подменю после использования gaction

В следующем примере у нас есть главное меню с aData. Как у нас может быть подменю с aData1 и aData2?

library(gWidgets)
options(guiToolkit = "RGtk2")

aData <- gaction(label="File", icon="file")
aData1 <- gaction(label="Open", icon="open")
aData2 <- gaction(label="Close", icon="close")

ml <- list(Data=aData)

gmenu(ml, container = TRUE)

r gtk2
person Apostolos Polymeros    schedule 09.10.2011    source источник
comment
Это gWidgetsRGtk2? Если это так, пожалуйста, укажите ваш код.   -  person Roman Luštrik    schedule 09.10.2011

Ответы (2)


arrow_upward
3
arrow_downward

Это связано с вашим предыдущим вопросом. В принципе, нет, но если вы хотите использовать разрабатываемую версию gWidgets2:

require(devtools)
install_github("gWidgets2", username="jverzani")
install_github("gWidgets2RGtk2", username="jverzani")

тогда вы можете взломать это, так как эта версия позволяет вам размещать виджеты на панели инструментов. Вот что-то вроде работы:

w <- gwindow()

h <- function(h,...) print("hi")
l <- list(file=gaction("file", icon="ok", handler=h),
          open=gaction("open", icon="open", handler=h),
          quit=gaction("quit", icon="quit", handler=h))
popup <- gmenu(l, popup=TRUE)

tbl <- list(c=gaction("cancel", icon="cancel", handler=h),
            b=gbutton("file")) ## adding a widget
addPopupMenu(tbl$b, popup) ## put popup menu on b
tbl$b$remove_border()

tb = gtoolbar(tbl, cont=w, style="both-horiz")
glabel("fill me in", cont=w)

Мне все еще нужно добавить некоторые виджеты в эту версию (пока нет виджета дерева, редактора фреймов данных и других).

person jverzani    schedule 10.10.2011
comment
Большое спасибо, проф. Верцани. - person Apostolos Polymeros; 11.10.2011

arrow_upward
1
arrow_downward

Я думаю, вы ищете это:

gmenu(menulist = list(File = list(Open = aData1, Close = aData2)), container = TRUE)

введите здесь описание изображения

person Roman Luštrik    schedule 09.10.2011
comment
@Apostolos, может ли быть меню с тремя элементами: «Файл», «Открыть» и «Закрыть» (со значками)? - person Roman Luštrik; 10.10.2011