Update of /project/mcclim/cvsroot/mcclim In directory clnet:/tmp/cvs-serv1773

Modified Files: clim-examples.asd mcclim.asd package.lisp Log Message:

Added the tab layout.

* Extensions/tab-layout.lisp: New file. * Examples/tabdemo.lisp: New file. * mcclim.asd (CLIM): Added Extensions/tab-layout.lisp. (CLIM-EXAMPLES): Add tabdemo.lisp * package.lisp (CLIM-TAB-LAYOUT): New package. * Examples/demodemo.lisp: Added a button for the tabdemo. * Doc/make-docstrings.lisp: Process the clim-tab-layout package. * Doc/mcclim.texi: New chapter about the tab-layout. * Backends/CLX/frame-manager.lisp (GENERATE-STANDARD-PANE-SPECS, FIND-CONCRETE-PANE-CLASS): Obey define-abstract-pane-mapping even for names not the internal packages. * Backends/gtkairo/event.lisp (TAB-BUTTON-HANDLER): New. * Backends/gtkairo/frame-manager.lisp ((MAKE-PANE-2 TAB-LAYOUT-PANE)): New. (RESOLVE-ABSTRACT-PANE-NAME): Renamed. * Backends/gtkairo/gadgets.lisp (TAB-BUTTON-EVENT, TAB-PRESS-EVENT, TAB-RELEASE-EVENT, GTK-TAB-LAYOUT): New classes. (REALIZE-NATIVE-WIDGET, CONTAINER-PUT, (SETF CLIM-TAB-LAYOUT:TAB-LAYOUT-PAGES), REORDER-NOTEBOOK-PAGES, CONTAINER-MOVE, ALLOCATE-SPACE, (SETF CLIM-TAB-LAYOUT:TAB-LAYOUT-ENABLED-PAGE), CONNECT-NATIVE-SIGNALS, CLIM-TAB-LAYOUT:NOTE-TAB-PAGE-CHANGED, SET-TAB-PAGE-ATTRIBUTES, HANDLE-EVENT): New functions and methods on gtk-tab-layout. (PARENT-AD-HOC-PRESENTATION): New class. * Backends/gtkairo/port.lisp (GTK-WIDGET-MODIFY-FG): New function. * Backends/gtkairo/ffi.lisp: Regenerated.

--- /project/mcclim/cvsroot/mcclim/clim-examples.asd 2007/01/18 15:01:11 1.1 +++ /project/mcclim/cvsroot/mcclim/clim-examples.asd 2007/02/04 12:55:43 1.2 @@ -20,7 +20,7 @@ (:file "postscript-test") (:file "puzzle") (:file "transformations-test") - (:file "demodemo") + (:file "demodemo" :depends-on ("tabdemo")) (:file "stream-test") (:file "presentation-test") (:file "dragndrop") @@ -34,7 +34,8 @@ (:file "drawing-benchmark") (:file "logic-cube") (:file "views") - (:file "font-selector"))) + (:file "font-selector") + (:file "tabdemo"))) (:module "Goatee" :components ((:file "goatee-test"))))) --- /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/01/18 15:01:11 1.53 +++ /project/mcclim/cvsroot/mcclim/mcclim.asd 2007/02/04 12:55:43 1.54 @@ -352,7 +352,10 @@ (:file "input-editing-drei") (:file "text-editor-gadget") (:file "Extensions/rgb-image" :pathname #.(make-pathname :directory '(:relative "Extensions") - :name "rgb-image")))) + :name "rgb-image")) + (:file "Extensions/tab-layout" + :pathname #.(make-pathname :directory '(:relative "Extensions") + :name "tab-layout"))))

(defsystem :clim-clx :depends-on (:clim #+(or sbcl openmcl ecl allegro) :clx) --- /project/mcclim/cvsroot/mcclim/package.lisp 2006/12/24 14:27:43 1.59 +++ /project/mcclim/cvsroot/mcclim/package.lisp 2007/02/04 12:55:43 1.60 @@ -2104,3 +2104,26 @@

))

+(defpackage :clim-tab-layout + (:use :clim :clim-lisp) + (:export #:tab-layout + #:tab-layout-pane + #:tab-layout-pages + #:tab-page + #:tab-page-tab-layout + #:tab-page-title + #:tab-page-pane + #:tab-page-presentation-type + #:tab-page-drawing-options + #:add-page + #:remove-page + #:tab-layout-enabled-page + #:sheet-to-page + #:find-tab-page-named + #:switch-to-page + #:remove-page-named + #:with-tab-layout + #:com-switch-to-tab-page + #:com-remove-tab-page + #:internal-child-p + #:note-tab-page-changed))