diff options
Diffstat (limited to 'examples/working-shared')
| -rw-r--r-- | examples/working-shared/gtk.ey | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/examples/working-shared/gtk.ey b/examples/working-shared/gtk.ey new file mode 100644 index 0000000..08fc488 --- /dev/null +++ b/examples/working-shared/gtk.ey @@ -0,0 +1,48 @@ +"lib/ffi.ey" include +"lib/ffi/gtk.ey" include + +{ γbutton_new_with_label } "β" deffd +{ -2201 0 0 0 γsignal_connect_data } "<-" deffd + +ffi .gtk "γ" via +"org.gtk.example" 0 γapplication_new ==app +app "activate" { + app γapplication_window_new ==win + win "Window" γwindow_set_title + win 200 200 γwindow_set_default_size + + γORIENTATION_HORIZONTAL γbutton_box_new ==box + win 10 γcontainer_set_border_width + + γgrid_new ==grid + win grid γcontainer_add + + βHello World! + { "Hello World!" dump } <-clicked + grid -01 0 0 1 1 γgrid_attach + + βFinish + { win γwidget_destroy } <-clicked + grid -01 1 0 1 1 γgrid_attach + + γtext_view_new ==txt + txt 0 γtext_view_set_editable + txt 0 γtext_view_set_cursor_visible + txt γtext_view_get_buffer + sys .file "φ" via "gtk.ey" φopen 65536 φread φclose + γtext_buffer_set_text + + 0 0 γscrolled_window_new ==scroll + scroll txt γcontainer_add + scroll 1 γwidget_set_hexpand + scroll 1 γwidget_set_vexpand + grid scroll 0 1 2 1 γgrid_attach + + win γwidget_show_all +} 0 0 0 γsignal_connect_data +app 0 "" γapplication_run +app γobject_unref + +"Killing threads with fire" die + +# vim: syn=elymas |