[cells-gtk-cvs] CVS root/cells-gtk

[pdenno]

Update of /project/cells-gtk/cvsroot/root/cells-gtk
In directory clnet:/tmp/cvs-serv8697/root/cells-gtk

Modified Files:
	layout.lisp 
Log Message:
Leonid Novikov updates.

--- /project/cells-gtk/cvsroot/root/cells-gtk/layout.lisp	2006/02/19 20:11:45	1.8
+++ /project/cells-gtk/cvsroot/root/cells-gtk/layout.lisp	2006/07/24 12:08:40	1.9
@@ -242,6 +242,15 @@
     (setf (current-page self) (show-page self)))
   #+clisp (call-next-method))
 
+(def-c-output show-tabs ((self notebook))
+ Â (gtk-notebook-set-show-tabs (id self) new-value))
+
+(def-c-output current-page ((self notebook))
+ Â (when new-value (gtk-notebook-set-current-page (id self) new-value)))
+
+(def-c-output show-border ((self notebook))
+ Â (gtk-notebook-set-show-border (id self) new-value))
+
 (def-widget alignment ()
   ((xalign :accessor xalign :initarg :xalign :initform 0.5)
    (yalign :accessor yalign :initarg :yalign :initform 0.5)