guile+motif

[Bill Schottstaedt]

I can't resist posting this, though it's not really ready yet.
Here's a (working!) guile script using the X/Xt/Xpm/Xm module I mentioned
earlier (using "|" as the prefix arg, but that's just a macro):

(init-xm)

(let* ((shell-app (|XtVaOpenApplication
                    "Test" 0 0 0 0 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!") 1)
  (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)))