diff options
| author | Camil Staps | 2019-10-27 14:06:51 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-27 14:06:51 +0100 |
| commit | 5b6009d60b0f61770bf335bdc6eb8f3d75df0064 (patch) | |
| tree | 183b8740a9c97e30c67d99ff3901090115b1556c /src/Gtk/Widgets.dcl | |
| parent | Add GtkSeparator (diff) | |
Add newMessageDialog; add GtkTitle type and instance tune w GtkTitle | gtkWindow w
Diffstat (limited to 'src/Gtk/Widgets.dcl')
| -rw-r--r-- | src/Gtk/Widgets.dcl | 21 |
1 files changed, 15 insertions, 6 deletions
diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl index 7ff4616..405c4b5 100644 --- a/src/Gtk/Widgets.dcl +++ b/src/Gtk/Widgets.dcl @@ -7,10 +7,11 @@ 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, :: GtkModal, - :: GtkOrientation, :: GtkPanedHandleWidth, :: GtkResize, :: GtkResponse, - :: GtkShrink, :: GtkStylePriority, :: GtkWrapMode +from Gtk.Types import :: GtkButtonsType, :: GtkCSSClass, :: GtkDirection, + :: GtkExpand, :: GtkFileChooserAction, :: GtkLabel, :: GtkMargins, + :: GtkMessageType, :: GtkModal, :: GtkOrientation, :: GtkPanedHandleWidth, + :: GtkResize, :: GtkResponse, :: GtkShrink, :: GtkStylePriority, + :: GtkTitle, :: GtkWrapMode class ptr a where @@ -40,6 +41,7 @@ class gtkDialog a :: !a -> GtkDialog instance gtkWidget GtkDialog instance gtkContainer GtkDialog +instance gtkWindow GtkDialog instance gtkDialog GtkDialog instance ptr GtkDialog @@ -50,6 +52,7 @@ runDialog :: !d -> GtkM GtkResponse | gtkDialog d getContentArea :: !d -> GtkBox | gtkDialog d +newMessageDialog :: !GtkWindow !GtkMessageType !GtkButtonsType !String -> GtkM GtkDialog getFileWithDialog :: !GtkWindow !GtkFileChooserAction !(Maybe String) -> GtkM (Maybe FilePath) :: GtkFrame @@ -158,9 +161,15 @@ removeCSSClass :: !GtkCSSClass !w -> GtkM () | gtkWidget w setMargins :: !GtkMargins !w -> GtkM w | gtkWidget w :: GtkWindow + +class gtkWindow a :: !a -> GtkWindow + instance gtkWidget GtkWindow instance gtkContainer GtkWindow +instance gtkWindow GtkWindow -newPopup :: !String !(Maybe (Int,Int)) -> GtkM GtkWindow -newWindow :: !String !(Maybe (Int,Int)) -> GtkM GtkWindow +newPopup :: !(Maybe (Int,Int)) -> GtkM GtkWindow +newWindow :: !(Maybe (Int,Int)) -> GtkM GtkWindow addCSSFromFile :: !GtkStylePriority !FilePath !GtkWindow -> GtkM Bool + +instance tune w GtkTitle | gtkWindow w |