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

[Peter Denno]

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
> cells-gtk-devel at common-lisp.net
> http://common-lisp.net/mailman/listinfo/cells-gtk-devel

-- 
- Best regards,
   Peter