;;
;; Demo with Bigloo and the GTK-server in Shared Object / DLL mode
;;
;; Compile with:  bigloo -w -o LIB LIB.scm -lgtk-server
;;
;; Created by Eduardo Costa, 30/7/2006
;; ----------------------------------------------------------------------

(module test
(extern (macro gtk::string (::string) "gtk"))
(main main))

(define win "")
(define table "")
(define event "")
(define button "")
(define label "")

(define (main arqv)
    (gtk "gtk_server_cfg log")
    (gtk "gtk_init NULL NULL")
    (set! win (gtk "gtk_window_new 0"))
    (gtk (string-append "gtk_window_set_title " win " \"Demo with lib interface\""))
    (set! table (gtk "gtk_table_new 30 30 1"))
    (gtk (string-append "gtk_container_add " win " " table))
    (set! button (gtk "gtk_button_new_with_label \"Click here\""))
    (gtk (string-append "gtk_table_attach_defaults " table " " button " 20 29 25 29"))
    (set! label (gtk "gtk_label_new \"Bigloo runs GTK!\""))
    (gtk (string-append "gtk_table_attach_defaults " table " " label " 10 25 10 15"))
    (gtk (string-append "gtk_widget_show_all " win))
    (do ((event (gtk "gtk_server_callback wait")
	(gtk "gtk_server_callback wait")) )
	((equal? event button))
    )
)