如何在GtkScrolledWindow中使GtkLabel可滚动

Question

我正在使用RGtk2在R中开发一个Gtk GUI。GUI的一部分是蛋白质序列(可变长度)的显示。蛋白质序列被放置在启用了线条包裹并且线条包裹模式设置为PANGO_WRAP_CHAR的GtkLabel中。然后将GtkLabel放在GtkScrolledWindow中。不幸的是，这并不起作用，因为GtkLabel似乎不能请求正确的尺寸。所以问题是:有没有办法制作一个可滚动的GtkLabel，或者有没有我应该使用的另一个小部件？

代码示例：

window <- gtkWindow(show=FALSE)
scroll <- gtkScrolledWindow()
window$add(scroll)
label <- gtkLabel()
label$setLineWrap(TRUE)
label$setLineWrapMode('PANGO_WRAP_CHAR')
scroll$add(label)

label$setText('THIS IS JUST AN EXAMPLE: ABCDEFGHIJKLMNOPQRSTUVXYZ')
window$show()

请注意，可能需要调整窗口大小才能显示问题...

最佳托马斯

Answer 1

由于GtkLabel本质上不是一个“可滚动”的小部件，因此您需要将它添加到带有视口的GtkScrolledWindow中。在C中使用了函数gtk_scrolled_window_add_with_viewport来做这件事，但我不知道R中的等价物是什么。scroll$addWithViewport(label)

gtk_scrolled_window_add_with_viewport documentation