-- | A button that fires an event when clicked.
gtkButton :: String -- ^ Caption
          -> Bool   -- ^ Whether this is the default button
          -> Widget (React.Event ())
gtkButton caption isDefault = _button isDefault (Gtk.buttonNewWithMnemonic caption)
gtkButton :: String -- ^ Caption
          -> Bool   -- ^ Whether this is the default button
          -> Widget (React.Event ())
gtkButton caption isDefault = _button isDefault (Gtk.buttonNewWithMnemonic caption)
gtkButton caption isDefault = _button isDefault (Gtk.buttonNewWithMnemonic caption)