[htoolkit-cvs] port/src/Port Controls.hs,1.25,1.26 Handlers.hs,1.29,1.30

[<kr_...@us...>]

Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv1230/port/src/Port

Modified Files:
	Controls.hs Handlers.hs 
Log Message:
Improved dynamic layout for GroupBox and Notebook


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** Controls.hs	9 Oct 2003 07:56:44 -0000	1.25
--- Controls.hs	12 Oct 2003 21:33:46 -0000	1.26
***************
*** 46,49 ****
--- 46,50 ----
             , setControlVisible, getControlVisible
             , setControlTip,     getControlTip
+            , relayoutContainer
             -- * Label
             , createLabel, getLabelRequestSize
***************
*** 149,152 ****
--- 150,155 ----
    = withCString txt (osSetControlTip hwnd)
  foreign import ccall osSetControlTip :: WindowHandle -> CString -> IO ()
+ 
+ foreign import ccall "osReLayoutContainer" relayoutContainer :: WindowHandle -> IO ()
  
  -----------------------------------------------------------------------------------------

Index: Handlers.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Handlers.hs,v
retrieving revision 1.29
retrieving revision 1.30
diff -C2 -d -r1.29 -r1.30
*** Handlers.hs	30 Aug 2003 22:57:46 -0000	1.29
--- Handlers.hs	12 Oct 2003 21:33:46 -0000	1.30
***************
*** 46,52 ****
                  ,setWindowContextMenuHandler,setWindowContextMenuDefHandler,getWindowContextMenuHandler
  
!                 -- ** Fire events
!                 , fireContainerReLayout
!                 
                  -- * Process events
                  ,setProcessDismissHandler, setProcessDismissDefHandler, getProcessDismissHandler
--- 46,50 ----
                  ,setWindowContextMenuHandler,setWindowContextMenuDefHandler,getWindowContextMenuHandler
  
! 
                  -- * Process events
                  ,setProcessDismissHandler, setProcessDismissDefHandler, getProcessDismissHandler
***************
*** 219,226 ****
  handleContainerReLayout :: WindowHandle -> IO ()
  handleContainerReLayout hwnd
-   = fireContainerReLayout hwnd
- 
- fireContainerReLayout :: WindowHandle -> IO ()
- fireContainerReLayout hwnd
    = invokeHandler hwnd handlersContainerReLayout id
  
--- 217,220 ----