diff options
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 |