Update of /project/mcclim/cvsroot/mcclim/Extensions In directory clnet:/tmp/cvs-serv27996
Modified Files: tab-layout.lisp Log Message: force redisplay of the tab header bar
* Extensions/tab-layout.lisp (clim-tab-layout:note-tab-page-changed): New method.
--- /project/mcclim/cvsroot/mcclim/Extensions/tab-layout.lisp 2007/02/04 12:55:45 1.1 +++ /project/mcclim/cvsroot/mcclim/Extensions/tab-layout.lisp 2007/02/04 14:53:32 1.2 @@ -329,10 +329,6 @@ (setf (sheet-enabled-p (tab-page-pane page)) t))) (call-next-method))
-;;;; -;;;; Beginning of original MGR source code -- license not confirmed -;;;; - (defclass tab-bar-view (gadget-view) ())
@@ -404,10 +400,6 @@ (sheet-adopt-child instance header) (setf (sheet-enabled-p header) t)))
-;;;; -;;;; End of original MGR source code -;;;; - (defmethod compose-space ((pane tab-layout-pane) &key width height) (declare (ignore width height)) (let ((q (compose-space (tab-layout-header-pane pane)))) @@ -434,3 +426,11 @@
(defmethod internal-child-p (child (parent tab-layout-pane)) (eq child (tab-layout-header-pane parent))) + +(defmethod clim-tab-layout:note-tab-page-changed + ((layout tab-layout-pane) page) + (redisplay-frame-pane (pane-frame layout) + (car (sheet-children + (car (sheet-children + (tab-layout-header-pane layout))))) + :force-p t))