diff options
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 |