2

次の例では、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)
4

2 に答える 2

3

これはあなたの前の質問に関連しています。答えは基本的にノーですが、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)

このバージョンにはまだいくつかのウィジェットを追加する必要があります（ツリーウィジェット、データフレームエディターなどはまだありません）。

于 2011-10-10T01:20:41.653 に答える
1

私はあなたがこれを探していると思います：

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

ここに画像の説明を入力してください

于 2011-10-09T18:28:28.460 に答える