R: Rgtk2: gwidgets: gWidgetsRGtk2 - PullRequest
Новая
       12

R: Rgtk2: gwidgets: gWidgetsRGtk2

2 голосов
/ 15 января 2012

Я хотел бы комбинировать gWidgets (Джон Верзани) с Rgtk2.Это может быть использовано любым в качестве парадигмы.

Алгоритм следующий: ШАГ 1: Построить окно gwrame (или gframe) ШАГ 2. Построить текстовое представление с возможностью прокрутки GTK ШАГ 3. Конвертировать последний вgwidget ШАГ 4: Добавьте его в gwindow (или в gframe)

Интересно, если это правильное мышление, в то время как проблема, с которой я сталкиваюсь, заключается в представлении текста с прокруткой GTK: я не могу заставить работать полосы прокрутки.

Код в R выглядит следующим образом: 

###########################
# load libraries
library(RGtk2)
library(gWidgets)
library(gWidgetsRGtk2)

# data set
x <- c(1:9)
y <- c(10:19)
z <- c(20:29)
df <- data.frame(x, y, z)
df.co <- capture.output(df)

###########################
# STEP 1, library(gWidgets)
# Construct a gwindow (or a gframe)
G.Window <- gwindow()

###########################
# STEP 2, library(RGtk2)
# Construct a GTK scrollable text view
Gtk.Text.View <- gtkTextViewNew(show = TRUE)

# create a table to attach the scrollbars
Gtk.Table.New <- gtkTableNew(2, 2, show = TRUE)

# construct the scrollbars
Gtk.H <- gtkHScrollbarNew()
Gtk.V <- gtkVScrollbarNew()

# attach the text view and the scrollbars to the table
gtkTableAttach(Gtk.Table.New, Gtk.Text.View, 0, 1, 0, 1)
gtkTableAttach(Gtk.Table.New, Gtk.H, 0, 1, 1, 2)
gtkTableAttach(Gtk.Table.New, Gtk.V, 1, 2, 0, 1)

# The scrollbars are not functional, for now.
# So I thought of constructing a viewport.
# The problem I face is that I cannot make the scrollbars work. 
Gtk.Viewport <- gtkViewportNew()

###########################
# STEP 3, library(gWidgetsRGtk2)
# Convert the table into a gwidget
G.Table.View <- as.gWidgetsRGtk2(Gtk.Table.New)

###########################
# STEP 4, library(gWidgets)
# Add the table into the gwindow (or into the gframe)
add(G.Window, Gtk.Table.New)

# STEP 5, make the buffer management
Gtk.Text.View.Get.Buffer <- gtkTextViewGetBuffer(Gtk.Text.View)

for (i in 1:length(df.co))
{
    Gtk.Text.Buffer.Get.Bounds <- gtkTextBufferGetBounds(Gtk.Text.View.Get.Buffer)
    Gtk.Text.Buffer.Insert <- gtkTextBufferInsert(Gtk.Text.View.Get.Buffer, iter=Gtk.Text.Buffer.Get.Bounds$end, text=paste(df.co[i], "\n",  sep="", collapse=""), len=-1)
    }

###########################

Я не хочу использовать прокручиваемое окно GTK, поскольку я хочу текстовый / табличный виджет GTK после его преобразования в gWidget, также войти в окно (gWidget).

Я также хочу извиниться, если это не тема для stackoverflow.Заранее спасибо

1 Ответ

5 голосов
/ 15 января 2012

Вы правы в том, что вы можете использовать add() для вставки объектов RGtk2 в графический интерфейс gWidgetsRGtk2. Но в этом случае вы, скорее всего, сэкономите себе немного работы с getToolkitWidget(): 

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

w <- gwindow(); txt <- gtext("", cont=w)

text_view <- getToolkitWidget(txt)
buffer <- text_view$getBuffer()
...

Чтобы получить в свое распоряжение объект gtkScrollWindow, необходимо знать, что он является родителем text_view: text_view$getParent().

Последний комментарий, ваш шаг 3 работает и должен дать вашему объекту методы gWidgets, но это не обязательно. Просто добавьте объект RGtk2. Я не включил эти "as" методы в rewrite, gWidgets2 (на github и в основном работает, но не закончил), так как он не показался мне таким полезным.

...