guile-gtk-general
[Top][All Lists]
Advanced

[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.




reply via email to

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