From ba80e24fca01102c8c20c8f68173aa77d55ea221 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 29 Nov 2009 03:13:43 +0300 Subject: [PATCH] Fix typo --- gtk/gtk.demo.lisp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/gtk/gtk.demo.lisp b/gtk/gtk.demo.lisp index d0c3645..1406576 100644 --- a/gtk/gtk.demo.lisp +++ b/gtk/gtk.demo.lisp @@ -128,12 +128,12 @@ (defun test-pixbuf () "(not completed)" (within-main-loop - (let* ((window (make-instance 'gtk-window :title "Test pixbuf" :request-width 600 :request-height 240)) + (let* ((window (make-instance 'gtk-window :title "Test pixbuf" :width-request 600 :height-request 240)) (vbox (make-instance 'v-box)) (eventbox (make-instance 'event-box)) (vbox-1 (make-instance 'v-box))) (container-add window vbox) - (box-pack-start vbox (make-instance 'label :text "Placing bg image" :font "Times New Roman Italic 10" :color "#00f" :request-height 40)) + (box-pack-start vbox (make-instance 'label :text "Placing bg image" :font "Times New Roman Italic 10" :color "#00f" :height-request 40)) (g-signal-connect window "destroy" (lambda (w) (declare (ignore w)) (leave-gtk-main))) (box-pack-start vbox eventbox) (container-add eventbox vbox-1) -- 1.7.10.4