-- | A widget containing non-interactive text.
gtkLabel :: TextAlignment -> String -> Widget ()
gtkLabel textAlignment text = Widget {
    widgetRealize = liftIO $ do
        lbl <- Gtk.labelNew (Just text)
        Gtk.labelSetLineWrap lbl True
        Gtk.labelSetJustify lbl textAlignment
        return (Gtk.toWidget lbl, ())
}
gtkLabel :: TextAlignment -> String -> Widget ()
gtkLabel textAlignment text = Widget {
    widgetRealize = liftIO $ do
        lbl <- Gtk.labelNew (Just text)
        Gtk.labelSetLineWrap lbl True
        Gtk.labelSetJustify lbl textAlignment
        return (Gtk.toWidget lbl, ())
}
gtkLabel textAlignment text = Widget {
    widgetRealize = liftIO $ do
        lbl <- Gtk.labelNew (Just text)
        Gtk.labelSetLineWrap lbl True
        Gtk.labelSetJustify lbl textAlignment
        return (Gtk.toWidget lbl, ())
}