diff options
| author | Camil Staps | 2019-10-27 12:34:14 +0100 |
|---|---|---|
| committer | Camil Staps | 2019-10-27 12:34:14 +0100 |
| commit | 60c6e02e16e38cdcb6b8dc727a1e34becc62e803 (patch) | |
| tree | 86f61b66dff076bc32399c4f11427e643cb8eb9e /src/Gtk | |
| parent | Add runWhileEventsPending to be able to show something before starting a long... (diff) | |
Add instance ptr GtkTextView
Diffstat (limited to 'src/Gtk')
| -rw-r--r-- | src/Gtk/Widgets.dcl | 1 | ||||
| -rw-r--r-- | src/Gtk/Widgets.icl | 4 |
2 files changed, 5 insertions, 0 deletions
diff --git a/src/Gtk/Widgets.dcl b/src/Gtk/Widgets.dcl index 13ee89c..fdc4a76 100644 --- a/src/Gtk/Widgets.dcl +++ b/src/Gtk/Widgets.dcl @@ -128,6 +128,7 @@ insertAtCursor :: !String !GtkTextBuffer -> GtkM GtkTextBuffer :: GtkTextView instance gtkWidget GtkTextView instance gtkContainer GtkTextView +instance ptr GtkTextView newTextView :: GtkM GtkTextView getTextBuffer :: !GtkTextView -> GtkTextBuffer diff --git a/src/Gtk/Widgets.icl b/src/Gtk/Widgets.icl index e726bfd..0052948 100644 --- a/src/Gtk/Widgets.icl +++ b/src/Gtk/Widgets.icl @@ -257,6 +257,10 @@ insertAtCursor s buffer = instance gtkWidget GtkTextView where gtkWidget tv = tv instance gtkContainer GtkTextView where gtkContainer tv = tv +instance ptr GtkTextView +where + toPtr tv = tv + fromPtr tv = tv newTextView :: GtkM GtkTextView newTextView = |