[mcclim-cvs] CVS mcclim

[dlichteblau]

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))