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)