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.
;; 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 '()))
