diff options
| author | Camil Staps | 2019-10-21 08:58:32 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-21 08:58:32 +0200 |
| commit | 08a45b115058577b0f370dabb797fe5fcdf4617a (patch) | |
| tree | 466b00e928c047aa5fe8771ff7d9d356c7eccd79 /src/Gtk/Widgets.icl | |
| parent | Add CSS support (diff) | |
Add fromPtr function; rename ptr to toPtr (to be able to implement "extra" widgets in external modules)
Diffstat (limited to 'src/Gtk/Widgets.icl')
| -rw-r--r-- | src/Gtk/Widgets.icl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index 7fda320..e485364 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -18,7 +18,11 @@ import Gtk.Types :: GtkWidget :== Pointer instance gtkWidget GtkWidget where gtkWidget w = w -instance ptr GtkWidget where ptr w = w + +instance ptr GtkWidget +where + toPtr w = w + fromPtr w = w addCSSClass :: !GtkCSSClass !w -> GtkM () | gtkWidget w addCSSClass (Class cls) widget = |