Re: gtk.notebook example

Max <[email protected]> Fri, 25 Apr 2014 15:26:06 +0200
Newsgroups gmane.lisp.guile.gtk
Message-ID <[email protected]>
Ah, my bad - got lost in parenthesis :)

(use-modules (oop goops) (gnome gobject) (gnome glib) (gnome gtk) (gnome gobject utils))

(define notebook (make <gtk-notebook>))

(define (make-scrolled)
  (make <gtk-scrolled-window>
    :hscrollbar-policy 'automatic
    :vscrollbar-policy 'automatic))

(define (hello)
  (let* ((window (make <gtk-window> #:type 'toplevel))
     (scrolled (make-scrolled)))
    (set-border-width window 10)
    (add window notebook)
    (append-page notebook scrolled
         (make <gtk-label> :label "LOL!" :use-underline #t))
    (show-all window)
    (gtk-main)))

(hello)

This one seems saner but still fails due to "In procedure module-lookup: Unbound
variable: :hscrollbar-policy" - where does this parameter comes from? Did I forgot to
use some module?

thanks,
Max.