Я хотел бы создать переменное количество виджетов внутри фрейма на основе данных, импортированных пользователем, не позволяя фрейму увеличивать окно за пределы экрана. Если фрейм становится больше, чем окно или его контейнер, я хочу, чтобы он отображал полосу прокрутки, а не расширялся дальше.
Минимальный пример, демонстрирующий проблему:
library(gWidgets)
library(gWidgetsRGtk2)
options("guiToolkit"="RGtk2")
win <- gwindow(height = 200)
pane <- gpanedgroup(container = win, horizontal = TRUE)
frame <- gframe("frame",container = pane,horizontal = FALSE)
for (counter in seq_len(50)) {
gcheckbox("check", container = frame)
}
Цель состоит в том, чтобы frame
можно было прокручивать. Добавление параметров прокрутки, как показано ниже, не помогло:
pane <- gpanedgroup(container = win, horizontal = TRUE, expand = FALSE)
frame <- gframe("frame",container = pane,horizontal = FALSE, use.scrollwindow=TRUE)
ggroup
в качестве дочернего элемента фрейма. Этот виджет имеет опциюuse.scrollwindow
. Добавьте его с помощьюexpand=TRUE
, как вggroup(use.scrollwindow=TRUE, expand=TRUE, container=gframe_instance)
. - person jverzani   schedule 26.09.2014