xm

libxm provides Guile/Ruby bindings for Xlib, Xt, Xp, Xpm, and Xm (Motif); or alternatively Gtk, gdk, gdk-pixbuf, pango, and some of glib; and much of OpenGL. You can build it with just X, and so on -- see README.libxm for details. There are several example files in the libxm package -- anything with the extension "scm" or "rb". libxm can be used directly with Guile or Ruby, providing a graphical user-interface for scripts.

All libxm names are exactly the same as the C name except that a "." is prepended (in Guile) to struct field accessors -- the prefix and postfix can be set via the macros XM_PREFIX, XM_FIELD_PREFIX and XM_POSTFIX to whatever you like -- "x:" or "<" and ">", etc. In Ruby, I'm prepending "R". I chose not to try to make these names fit into the "Scheme culture" (i.e. adding random dashes and uncapitalizing everything) because it is already too hard to keep track of the thousands of names in these libraries. By using the exact C name, ugly embedded caps and all, there's no hesitation or uncertainty about what the corresponding libxm name is; XmScaleSetValue becomes XmScaleSetValue. There are several differences between the C versions and the libxm versions; these are listed in detail at the start of xm.c and xg.c. Briefly, an Arg list is a lisp list of name/value pairs and the "len" arg associated with it is optional; ref args are usually returned by the procedure in a list, and not passed in unless an initial value is needed; array args are passed as lists, and returned as lists; pointers to structs are '(type val) where val is opaque except via accessors (that is, all non-simple types are lists in xm where the first element is a symbol describing the type and the second is usually the C value stored directly as an unsigned long); "Va" args are passed and returned as lists, and the list length argument is optional; XtCallback procedure args are passed by value; the various "client data" args are optional; XtCallbackLists are passed as lists of procedure/data pairs; where an explicit NULL is needed as an arg, use #f (or '() for list args); structs are accessed by the field name and the lisp variable (which contains the struct type) -- (.pixel color) for example, or (.foreground gcvalue); blank structs, where needed, can be created via (Name) -- (XColor) or (XGCValues) for example.

You can use libxm directly in guile. Here is an example script:

#!/usr/local/bin/guile -s
!#

(let ((libxm (dynamic-link "libxm.so")))
  (dynamic-call (dynamic-func "init_xm" libxm) #f))

(let* ((shell-app (XtVaOpenApplication 
		    "Test" 0 '() applicationShellWidgetClass
		    (list XmNallowShellResize #t)))
       (app (cadr shell-app))
       (shell (car shell-app))
       (black (BlackPixelOfScreen 
		(DefaultScreenOfDisplay 
		  (XtDisplay shell)))))
  (if (not (XtIsApplicationShell shell))
      (display "not appshell"?))
  (XtSetValues shell (list XmNtitle "Hi!"))
  (let* ((main-pane 
	  (XtVaCreateManagedWidget 
	    "main-pane" xmFormWidgetClass shell
	    (list XmNforeground       black
		  XmNtopAttachment    XmATTACH_FORM
		  XmNbottomAttachment XmATTACH_FORM
		  XmNleftAttachment   XmATTACH_FORM
		  XmNrightAttachment  XmATTACH_FORM
		  XmNallowResize      #t)))
	 (button (XtCreateManagedWidget 
		   "push me" xmPushButtonWidgetClass main-pane '() 0)))
    (XtAddCallback button XmNactivateCallback 
		    (lambda (widget context event-info)
		      (display widget)
		      (display (.reason event-info))
		      (display context))
		    123)
    (XtRealizeWidget shell)
    (XtAppMainLoop app)))

To use libxm from some existing program, you need only export the caller's XtAppContext and main shell widget (mainly to get the Display variable). In Snd, the g_main_widgets procedure passes back a list:

  return(XEN_CONS(XEN_WRAP_APPCONTEXT(MAIN_APP(ss)),
	   XEN_CONS(XEN_WRAP_WIDGET(MAIN_SHELL(ss)),
             XEN_CONS(XEN_WRAP_WIDGET(MAIN_PANE(ss)),...))));

The XEN entities are from the xen package that provides a wrapper for Guile-specific (or Ruby-specific) functions and macros.

  (set! app (car (main-widgets)))

For many examples, see event.scm, snd-motif.scm, popup.scm, new-effects.scm, popup.rb, effects.rb, snd-xm.rb, and snd-test.scm in the Snd tarball. There is also some further discussion of this stuff in Snd's grfsnd.html (Ruby examples, etc). Here's a version of "hello world":

#!/usr/local/bin/guile -s
!#

(use-modules (ice-9 optargs))

;; decided to call it libxg here to avoid collisions with Motif version
(let ((libxg (dynamic-link "libxg.so")))
  (dynamic-call (dynamic-func "init_xm" libxg) #f))

;;; translation of /usr/share/doc/gtk2-devel-2.0.6/examples/helloworld/helloworld.c

(define* (g_signal_connect obj name func #:optional data)
  (g_signal_connect_closure_by_id (list 'gpointer (cadr obj))
				  (g_signal_lookup name (G_OBJECT_TYPE (GTK_OBJECT obj)))
				  0
				  (g_cclosure_new func data #f)
				  #f))

(gtk_init 0 #f)
(let ((window (gtk_window_new GTK_WINDOW_TOPLEVEL)))
  (g_signal_connect window "delete_event" 
		    (lambda (w e data)
		      (gtk_main_quit)
		      #t))
  (g_signal_connect window "destroy" 
		    (lambda (w data)
		      (gtk_main_quit)))

  (gtk_container_set_border_width (GTK_CONTAINER window) 10)

  (let ((button (gtk_button_new_with_label "Click Me!")))
    (g_signal_connect button "clicked" 
		      (lambda (w data)
			(display "Hello World")))

    (gtk_container_add (GTK_CONTAINER window) button)
    (gtk_widget_show button)
    (gtk_widget_show window)
    (gtk_main)
    ))