如何在 Haskell GI-Gtk listBoxRow 中打印标签文本？

Question

当我单击 listBoxRow 时，我正在尝试打印标签文本。

这是我的要点的链接：https://gist.github.com/bigos/6cf02ff27231cfc0352394da00023f67

相关代码如下：

  _ <- onListBoxRowSelected listbox2 (\(Just r) -> do
                                        -- rn <- listBoxRowGetIndex r
                                        cc <- containerGetChildren r
                                        dd <- widgetGetName (head cc)
                                        -- how do I print label text?
                                        -- I get the error:
                                        -- Required ancestor ‘GI.Gtk.Objects.Label.Label’ not found for type GI.Gtk.Objects.Widget.Widget’.
                                        ee <- labelGetText (head cc)
                                        putStrLn ("Clicked " ++ (show ee)))

错误

• 未找到类型所需的祖先“GI.Gtk.Objects.Label.Label” 'GI.Gtk.Objects.Widget.Widget'。 • 在“do”块的语句中：ee

相关文档

https://hackage.haskell.org/package/gi-gtk-3.0.18/docs/doc-index.html

Answer 1

Dan Robertson 提供了最有帮助的答案。获得标签对象后，您必须将其转换为标签类型。那是缺少的链接。

工作代码

  _ <- onListBoxRowSelected listbox2 (\(Just r) -> do
                                         cc <- containerGetChildren r
                                         mlabel <- castTo Label (head cc)
                                         case mlabel of
                                           Nothing -> putStrLn "Not a label!"
                                           Just label -> (labelGetText label) >>= putStrLn . unpack)

非常感谢您的帮助。

相关帖子 How do I cast Widget to Label in Haskell's GI-Gtk?