[mcclim-cvs] CVS mcclim/Backends/CLX - mcclim-cvs@common-lisp.net - mailman3.common-lisp.net

4 Feb 2007

Update of /project/mcclim/cvsroot/mcclim/Backends/CLX
In directory clnet:/tmp/cvs-serv1773/Backends/CLX
Modified Files:
    frame-manager.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/Backends/CLX/frame-manager.lisp	2004/10/31 01:46:31	1.21
+++ /project/mcclim/cvsroot/mcclim/Backends/CLX/frame-manager.lisp	2007/02/04 12:55:43	1.22
@@ -49,9 +49,11 @@
   (remove-if #'null (mapcar #'(lambda (x) (find-symbol-from-spec (first x) (rest x))) name-specs)))
(defun generate-standard-pane-specs (type)
-  `((:climi ,(get type 'climi::concrete-pane-class-name))
-    (:climi ,type #:-pane)
-    (:climi ,type)))
+  (let ((mapping (get type 'climi::concrete-pane-class-name)))
+    `((,(symbol-package mapping) ,mapping)
+      (:climi ,mapping)
+      (:climi ,type #:-pane)
+      (:climi ,type))))
(defun generate-clx-pane-specs (type)
   (append 
@@ -67,7 +69,8 @@
           (eql (symbol-package type)
                (find-package '#:climi))
           (eql (symbol-package type)
-               (find-package '#:keyword)))
+               (find-package '#:keyword))
+	  (get type 'climi::concrete-pane-class-name))
       (find-first-defined-class (find-symbols (generate-clx-pane-specs type)))
       type))

    