Update of /project/cells-gtk/cvsroot/root/cells-gtk In directory common-lisp.net:/tmp/cvs-serv15074/root/cells-gtk
Modified Files: widgets.lisp Log Message: Export method widget-id. Same as cgtk::id, (but without the potential package problems of exporting that). Date: Sat Oct 8 16:33:19 2005 Author: pdenno
Index: root/cells-gtk/widgets.lisp diff -u root/cells-gtk/widgets.lisp:1.13 root/cells-gtk/widgets.lisp:1.14 --- root/cells-gtk/widgets.lisp:1.13 Sun May 29 23:15:51 2005 +++ root/cells-gtk/widgets.lisp Sat Oct 8 16:33:19 2005 @@ -298,12 +298,10 @@ (not-to-be old-value)) (when new-value (gtk-widget-set-popup (id self) (id (to-be new-value))))) - + (def-c-output visible ((self widget)) - (when *gtk-debug* - (trc nil "VISIBLE" (md-name self) new-value) (force-output)) - (if new-value - (gtk-widget-show (id self)) + (if new-value + (gtk-widget-show (id self)) (gtk-widget-hide (id self))))
(def-c-output tooltip ((self widget)) @@ -353,7 +351,7 @@
(def-c-output title ((self window)) (when new-value - (gtk-window-set-title (id self) new-value))) + (gtk-window-set-title (id self) new-value)))
(def-c-output icon ((self window)) (when new-value @@ -394,5 +392,9 @@ (when new-value (gtk-container-add (id self) (id (first new-value)))) #+clisp (call-next-method)) + +(defun widget-id (widget) + (id widget)) + (eval-when (compile load eval) - (export '(callback callback-if timeout-add focus))) + (export '(callback callback-if timeout-add focus widget-id)))