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