ffi-help: gtk demo updated

ffi-help: gtk demo updated

[Matt Wette]

Hi All,

I am working on a ffi-helper (FH): a program that will read in a C dot-h file
and generate a Guile dot-scm file which defines a module to provide hooks into
the associated C library.

Lately I've been working to clean up user-level APIs.  A recoded demo of the GTK+
Hello World example is shown below.  This is based on 100% guile wrappers to the
loaded C libraries for gtk+, gobject, pango and glib.. The comments with the
(use-modules (ffi xxx)) lines below indicate the line-counts for the associated
ffi file and its auto-generated scm file.

If you `git clone -b c99dev git://git.savannah.nongnu.org/nyacc.git' you will find
the demo in examples/nyacc/lang/c99/ffi-exam/.  Read the ffi-helper section of the
HACKING file for hints to run the demo.  Caveat: Up until a few months ago I was
developing on MacOS; I am now on Ubuntu.


;; gtkdemo.scm
;;https://developer.gnome.org/gtk-tutorial/stable/c39.html#SEC-HELLOWORLD

(use-modules (system ffi-help-rt))
(use-modules (bytestructures guile))

(use-modules (ffi glib))		; ffi:31 scm:31889
(use-modules (ffi gobject))		; ffi:26 scm:12044
(use-modules (ffi gtk2+))		; ffi:26 scm:92964

;; This will generate a FFI code wrapper around the lambda.  Then below
;; we use (fh-cast GCallback hello) to match the argument signature.
(define hello
   (make-GtkCallback
    (lambda (widget data)
      (display "Hello world!\n"))))

(define (delete-event widget event data)
   (display "delete event occurred\n")
   1)

(define (main)
   (define window #f)
   (define button #f)
   (define argc (bytestructure int 0))

   (gtk_init (pointer-to argc) NULL)

   (set! window (gtk_window_new 'GTK_WINDOW_TOPLEVEL))
   (g_signal_connect window "delete-event" delete-event NULL)
   (g_signal_connect window "destroy" ~gtk_main_quit NULL)
   (gtk_container_set_border_width window 10)

   (set! button (gtk_button_new_with_label "Hello World"))
   (g_signal_connect button "clicked" (fh-cast GCallback hello) NULL)
   (g_signal_connect_swapped button "clicked" ~gtk_widget_destroy window)
   (gtk_container_add window button)

   (gtk_widget_show button)
   (gtk_widget_show window)

   (gtk_main))

(main)

;; --- last line ---