guile-user
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: G-Golf - Getting started


From: David Pirotte
Subject: Re: G-Golf - Getting started
Date: Mon, 12 Apr 2021 13:08:04 -0300

Hello Paul,

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

There is no G-Golf release yet - it is mentioned on the web-site, both
the home page and in the install page ... but not in the manual indeed,
didn't want to ...

> $ guile -s example-1.scm  # takes about 7 seconds
> guile -s example-1.scm

Please read the Getting Started with G-Golf, Selective Import ... you
are importing the entire Gtk namespace - here, fwiw, if I do that, it
takes 2sec, so mileage varies depending on the machine, mem ... 

> Backtrace:
>  ...
> /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?

Yes :)

        you copied and run an example which is for Gtk-4.0, but loading
        Gtk-3.0 ...

In the manual, 'Getting Started with G-Golf':

        "Please note that in the entire course of the G-Golf manual,
        unless otherwise specified, examples are based on and use
        Gtk-4.0, Gdk-4.0 and Gsk-4.0 - which is new and only available
        with Gtk-4.0."

Below, an example for Gtk-3.0 ...

David

;; below,
;; a hello-world example for GTk-3.0


#! /bin/sh
# -*- mode: scheme; coding: utf-8 -*-
exec guile -e main -s "$0" "$@"
!#


(eval-when (expand load eval)
  (use-modules (oop goops))
  
  (default-duplicate-binding-handler
    '(merge-generics replace warn-override-core warn last))

  (use-modules (g-golf))

  (for-each (lambda (name)
              (gi-import-by-name "Gtk" name #:version "3.0"))
      '("Application"
        "ApplicationWindow"
        "Box"
        "Label"
        "Button")))


(define (activate app)
  (let ((window (make <gtk-application-window>
                  #:title "Hello"
                  #:default-width 320
                  #:default-height 240
                  #:application app))
        (box    (make <gtk-box>
                  #:margin-top 6
                  #:margin-start 12
                  #:margin-bottom 6
                  #:margin-end 6
                  #:orientation 'vertical))
        (label  (make <gtk-label>
                  #:label "Hello, World!"))
        (button (make <gtk-button>
                  #:label "Close")))

    (connect button
             'clicked
             (lambda (b)
               (close window)))

    (add window box)
    (pack-start box label #t #t 0)
    (pack-start box button #f #f 6)
    (show-all window)))


(define (main args)
  (let ((app (make <gtk-application>
               #:application-id "org.gnu.tests")))
    (connect app 'activate activate)
    (run app (length args) args)))

Attachment: pgp_kBXGY_Lgw.pgp
Description: OpenPGP digital signature


reply via email to

[Prev in Thread] Current Thread [Next in Thread]