Hi Leonid, I updated the CVS repository with this. Thanks.
On Saturday 22 July 2006 00:35, Novikov Leonid wrote: > 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) > > > _______________________________________________ > cells-gtk-devel site list > [email protected] > http://common-lisp.net/mailman/listinfo/cells-gtk-devel -- - Best regards, Peter _______________________________________________ cells-gtk-devel site list [email protected] http://common-lisp.net/mailman/listinfo/cells-gtk-devel
