Gauche-gtkのメモ

<gtk-vbox>

二つの要素が入っていて二番目の要素は必要最小限のスペースだけを 使って，残りのスペースは最初の要素が使うには以下のようにする．

ここでは最初の要素は<gtk-text-view>，二番目の要素は <gtk-button>とする．

(use gtk)

(define (main args)
  (gtk-init args)
  (let ((window (gtk-window-new GTK_WINDOW_TOPLEVEL)))
    (let ((vbox (gtk-vbox-new #f 2)))
      (let* ((text-view (gtk-text-view-new))
             (text-buffer (gtk-text-view-get-buffer text-view)))
        (gtk-box-pack-start vbox text-view #t #t 0))

        (gtk-box-pack-start vbox (gtk-button-new-with-label "test") #f #f0)
        (gtk-container-add window vbox))
     (gtk-widget-show-all window)
   (gtk-main)
   0))

<gtk-progress-bar>

(let ((color (make <gdk-color>)))
  (slot-set! color 'red #x0000)
  (slot-set! color 'green #xffff)
  (slot-set! color 'blue #x0000)
  (gtk-widget-modify-bg progress-bar GTK_STATE_PRELIGHT color))