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.