diff options
| author | Camil Staps | 2019-10-20 13:37:33 +0200 |
|---|---|---|
| committer | Camil Staps | 2019-10-20 13:37:33 +0200 |
| commit | 182eac71699784d3e2a44437452546a4b0c2d995 (patch) | |
| tree | a0c82a0eea2dd0e023e458ea3f56fcdc4ac43804 /src/Gtk/Internal.icl | |
| parent | Make GtkTextView not editable (diff) | |
Move position of GtkFrame label; add framed helper combinator
Diffstat (limited to 'src/Gtk/Internal.icl')
| -rw-r--r-- | src/Gtk/Internal.icl | 16 |
1 files changed, 16 insertions, 0 deletions
diff --git a/src/Gtk/Internal.icl b/src/Gtk/Internal.icl index 3321bf2..5b49160 100644 --- a/src/Gtk/Internal.icl +++ b/src/Gtk/Internal.icl @@ -69,6 +69,22 @@ where ccall gtk_frame_new "s:p:A" } +// TODO: convert double to float properly +gtk_frame_set_label_align :: !Pointer !Real !Real !.a -> .a +gtk_frame_set_label_align frame xalign yalign env = code { + | cvtsd2ss %xmm0,%xmm0 + instruction 242 + instruction 15 + instruction 90 + instruction 192 + | cvtsd2ss %xmm1,%xmm1 + instruction 242 + instruction 15 + instruction 90 + instruction 201 + ccall gtk_frame_set_label_align "pRR:V:A" +} + gtk_init :: !.a -> .a gtk_init env = init 0 0 env where |