From 8846218961b78373b4d7b8e11bd72b5d47ca105d Mon Sep 17 00:00:00 2001 From: espen Date: Tue, 19 Jun 2007 12:49:18 +0000 Subject: [PATCH] Added proper protection for multi threaded event handling --- examples/testgtk.lisp | 9 ++++----- 1 file changed, 4 insertions(+), 5 deletions(-) diff --git a/examples/testgtk.lisp b/examples/testgtk.lisp index 352d723..a8feb8b 100644 --- a/examples/testgtk.lisp +++ b/examples/testgtk.lisp @@ -26,7 +26,7 @@ ;; Kimball, Josh MacDonald and others. -;; $Id: testgtk.lisp,v 1.38 2007-01-11 10:05:59 espen Exp $ +;; $Id: testgtk.lisp,v 1.39 2007-06-19 12:49:18 espen Exp $ #+sbcl(require :gtk) #+(or cmu clisp)(asdf:oos 'asdf:load-op :gtk) @@ -537,8 +537,8 @@ (unless file-pixbuf (handler-case (setf - file-pixbuf (gdk:pixbuf-load #p"/usr/share/icons/gnome/48x48/filesystems/gnome-fs-regular.png") - folder-pixbuf (gdk:pixbuf-load #p"/usr/share/icons/gnome/48x48/filesystems/gnome-fs-directory.png")) + file-pixbuf (gdk:pixbuf-load #p"clg:examples;gnome-fs-regular.png") + folder-pixbuf (gdk:pixbuf-load #p"clg:examples;gnome-fs-directory.png")) (glib:glib-error (condition) (make-instance 'message-dialog :message-type :error :visible t @@ -2007,5 +2007,4 @@ This one is underlined in quite a funky fashion" main-window)) (clg-init) -(create-main-window) - +(within-main-loop (create-main-window)) -- 2.11.0