如何使GtkLabel在GtkScrolledWindow中可滚动

我正在使用RGtk2在R中开发Gtk GUI。GUI的一部分是（可变长度）蛋白质序列的显示。蛋白质序列放置在GTK标签中，linewrapping打开，Linewrapp模式设置为PANGO_wrapp_CHAR。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()

---

window由于
GtkLabel
本身不是一个“可滚动”的小部件，您需要将其添加到带有视口的
gtkscrolledwindoww
。C语言中使用了函数
gtk\u滚动窗口\u add\u with\u viewport
，但我不知道R中的等价物是什么<代码>滚动$addWithViewport（标签）

---

谢谢-这解决了使其可滚动的问题，但它仍然没有要求正确的大小。由于序列的长度是动态变化的，我宁愿不必硬编码。