diff options
Diffstat (limited to 'src/Gtk/Widgets.dcl')
| -rw-r--r-- | src/Gtk/Widgets.dcl | 19 |
1 files changed, 16 insertions, 3 deletions
diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl index 0335874..eb6c2d0 100644 --- a/src/Gtk/Widgets.dcl +++ b/src/Gtk/Widgets.dcl @@ -6,10 +6,11 @@ from System.FilePath import :: FilePath from System._Pointer import :: Pointer from Gtk.State import :: GtkM +from Gtk.Tune import class tune from Gtk.Types import :: GtkCSSClass, :: GtkDirection, :: GtkExpand, - :: GtkFileChooserAction, :: GtkLabel, :: GtkMargins, :: GtkOrientation, - :: GtkPanedHandleWidth, :: GtkResize, :: GtkResponse, :: GtkShrink, - :: GtkStylePriority + :: GtkFileChooserAction, :: GtkLabel, :: GtkMargins, :: GtkModal, + :: GtkOrientation, :: GtkPanedHandleWidth, :: GtkResize, :: GtkResponse, + :: GtkShrink, :: GtkStylePriority class ptr a where @@ -42,8 +43,13 @@ instance gtkContainer GtkDialog instance gtkDialog GtkDialog instance ptr GtkDialog +instance tune d GtkModal | gtkDialog d + +newDialog :: !GtkWindow -> GtkM GtkDialog runDialog :: !d -> GtkM GtkResponse | gtkDialog d +getContentArea :: !d -> GtkBox | gtkDialog d + getFileWithDialog :: !GtkWindow !GtkFileChooserAction !(Maybe String) -> GtkM (Maybe FilePath) :: GtkFrame @@ -91,6 +97,13 @@ instance gtkContainer GtkScrolledWindow newScrolledWindow :: GtkM GtkScrolledWindow +:: GtkSpinner :== Pointer +instance gtkWidget GtkSpinner + +newSpinner :: GtkM GtkSpinner +startSpinner :: !GtkSpinner -> GtkM GtkSpinner +stopSpinner :: !GtkSpinner -> GtkM GtkSpinner + :: GtkTextBuffer insertAtCursor :: !String !GtkTextBuffer -> GtkM () |