[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: gtk.notebook example
From: |
Max |
Subject: |
Re: gtk.notebook example |
Date: |
Fri, 25 Apr 2014 15:26:06 +0200 |
User-agent: |
Mozilla/5.0 (X11; Linux x86_64; rv:24.0) Gecko/20100101 Thunderbird/24.4.0 |
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.