diff options
| author | Camil Staps | 2019-10-27 13:14:06 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-27 13:14:06 +0100 |
| commit | b06163ae767f945dd91c5709872b5566a9ec4aea (patch) | |
| tree | bbf2bea41589e9162c8a297d9cde0bba8881b2c4 /src/Gtk/Widgets.icl | |
| parent | Make GtkSpinner abstract; add ptr instance (diff) | |
Add GtkSeparator
Diffstat (limited to 'src/Gtk/Widgets.icl')
| -rw-r--r-- | src/Gtk/Widgets.icl | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index ae72f44..ef1f0bc 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -214,6 +214,17 @@ instance gtkContainer GtkScrolledWindow where gtkContainer sw = sw newScrolledWindow :: GtkM GtkScrolledWindow newScrolledWindow = toStateR (gtk_scrolled_window_new 0 0) >>= show +:: GtkSeparator :== Pointer + +instance gtkWidget GtkSeparator where gtkWidget s = s +instance ptr GtkSeparator +where + toPtr s = s + fromPtr s = s + +newSeparator :: !GtkOrientation -> GtkM GtkSeparator +newSeparator orientation = toStateR (gtk_separator_new orientation=:Vertical) >>= show + :: GtkSpinner :== Pointer instance gtkWidget GtkSpinner where gtkWidget s = s |