Update of /project/cells/cvsroot/cell-cultures/cells-gtk-root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv7571/cells-gtk-root/cells-gtk

Modified Files: display.lisp Log Message: Cleaning up Date: Sun Dec 5 05:50:23 2004 Author: ktilton

Index: cell-cultures/cells-gtk-root/cells-gtk/display.lisp diff -u cell-cultures/cells-gtk-root/cells-gtk/display.lisp:1.1 cell-cultures/cells-gtk-root/cells-gtk/display.lisp:1.2 --- cell-cultures/cells-gtk-root/cells-gtk/display.lisp:1.1 Thu Nov 18 12:52:55 2004 +++ cell-cultures/cells-gtk-root/cells-gtk/display.lisp Sun Dec 5 05:50:16 2004 @@ -117,7 +117,7 @@ (let ((id (gethash context (contexts self)))) (when id (with-gtk-string (str message) - (gtk-statusbar-push (id self) id str))))) + (gtk-statusbar-push (id self) id str)))))

(defmethod pop-message ((self statusbar) &optional (context 'main)) (let ((id (gethash context (contexts self))))