[cells-gtk-devel] small patch for notebook widget

[Novikov Leonid]

This patch adds def-c-output code for  show-tabs, current-page, show-border

Index: cells-gtk/layout.lisp
===================================================================
RCS file: /project/cells-gtk/cvsroot/root/cells-gtk/layout.lisp,v
retrieving revision 1.8
diff -u -r1.8 layout.lisp
--- cells-gtk/layout.lisp    19 Feb 2006 20:11:45 -0000    1.8
+++ cells-gtk/layout.lisp    22 Jul 2006 04:21:13 -0000
@@ -242,6 +242,16 @@
     (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)