[cells-cvs] CVS update: cell-cultures/cells-gtk-root/cells-gtk/display.lisp

[Kenny Tilton]

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))))