Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv24903/cells-gtk Modified Files: display.lisp Log Message: One line of documentation Date: Wed Feb 16 23:18:06 2005 Author: pdenno Index: root/cells-gtk/display.lisp diff -u root/cells-gtk/display.lisp:1.2 root/cells-gtk/display.lisp:1.3 --- root/cells-gtk/display.lisp:1.2 Sun Dec 5 07:33:22 2004 +++ root/cells-gtk/display.lisp Wed Feb 16 23:18:05 2005 @@ -97,6 +97,7 @@ (list (or (filename self) ""))))) (def-c-output stock ((self image)) + "Set the image of a stock icon" (when new-value (gtk-image-set-from-stock (id self) (stock-id self) (icon-size-id self))))