[cells-gtk-cvs] CVS update: root/cells-gtk/widgets.lisp

[Peter Denno]

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