G-Golf - Getting started

[Paul Emsley <pemsley@mrc-lmb.cam.ac.uk>]

[-- Attachment #1: Type: text/plain, Size: 1364 bytes --]


Hi G-Golfers,

From here:
https://www.gnu.org/software/g-golf/manual/g-golf.html


   GNU G-Golf can be obtained from the following archive site http://ftp.gnu.org/gnu/g-golf/. The file will
   be named g-golf-version.tar.gz. The current version is 0.1.0, so the file you should grab is:

    http://ftp.gnu.org/gnu/g-golf/g-golf-0.1.0.tar.gz 

This directory does not exist.

So I used the git repo, built and installed. I extracted the hello-world example (attached)

$ guile -s example-1.scm  # takes about 7 seconds
guile -s example-1.scm
Backtrace:
           8 (apply-smob/1 #<catch-closure 7f8f920d22a0>)
In ice-9/boot-9.scm:
    705:2  7 (call-with-prompt _ _ #<procedure default-prompt-handle…>)
In ice-9/eval.scm:
    619:8  6 (_ #(#(#<directory (guile-user) 7f8f91d64140>)))
In ice-9/boot-9.scm:
   2312:4  5 (save-module-excursion _)
  3832:12  4 (_)
In g-golf/hl-api/function.scm:
   140:19  3 (_ . _)
In unknown file:
           2 (_ #<pointer 0x55f7a37d14f0> #<pointer 0x7f8f8e2147a0> 3 …)
In g-golf/hl-api/closure.scm:
    255:8  1 (g-closure-marshal _ _ _ _ _ _)
In /home/paule/Projects/coot/git/g-golf/build/example-1.scm:
     14:4  0 (activate _)

/home/paule/Projects/coot/git/g-golf/build/example-1.scm:14:4: In procedure activate:
In procedure module-lookup: Unbound variable: set-child

Have I done something wrong?

Thanks, 

Paul.



[-- Attachment #2: example-1.scm --]
[-- Type: text/x-scheme, Size: 707 bytes --]

;; Load Gtk
(use-modules (g-golf))
(gi-import "Gtk")

;; When the application is launched..
(define (activate app)
  ;; - Create a new window and a new button
  (let ((window (make <gtk-application-window>
                  #:title "Hello"
                  #:application app))
        (button (make <gtk-button>
                  #:label "Hello, World!")))
    ;; - Which closes the window when clicked
    (connect button
             'clicked
             (lambda (b)
               (close window)))
    (set-child window button)
    (show window)))

(let ((app (make <gtk-application>
             #:application-id "com.example.GtkApplication")))
  (connect app 'activate activate)
  (run app 0 '()))