[htoolkit-cvs] port/src/Port Controls.hs,1.27,1.28

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

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

Modified Files:
	Controls.hs 
Log Message:
Add support for DateEntry control


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** Controls.hs	23 Nov 2003 10:23:13 -0000	1.27
--- Controls.hs	24 Nov 2003 22:40:41 -0000	1.28
***************
*** 1,3 ****
! {-# OPTIONS -fglasgow-exts -#include Button.h -#include CheckBox.h -#include EditBox.h -#include Label.h -#include ListBox.h -#include PopUp.h -#include RadioBox.h -#include Window.h -#include ProgressBar.h -#include Slider.h -#include Notebook.h -#include GroupBox.h -#include TrackBar.h #-}
  -----------------------------------------------------------------------------------------
  {-| Module      :  Controls
--- 1,3 ----
! {-# OPTIONS -fglasgow-exts -#include Button.h -#include CheckBox.h -#include EditBox.h -#include DateEntry.h -#include Label.h -#include ListBox.h -#include PopUp.h -#include RadioBox.h -#include Window.h -#include ProgressBar.h -#include Slider.h -#include Notebook.h -#include GroupBox.h -#include TrackBar.h #-}
  -----------------------------------------------------------------------------------------
  {-| Module      :  Controls
***************
*** 19,22 ****
--- 19,24 ----
      * Edit box
      
+     * DateEntry
+     
      * List box
      
***************
*** 63,66 ****
--- 65,71 ----
             , getEditPassword,setEditPassword
             , changeEditBoxFont
+            -- * DateEntry
+ 	   , createDateEntry, getDateEntryRequestSize
+ 	   , getDateEntryValue, setDateEntryValue
             -- * Check box
             , createCheckBox, getCheckBoxRequestSize
***************
*** 116,119 ****
--- 121,125 ----
  import Foreign
  import Foreign.C
+ import System.Time
  import Control.Concurrent.MVar
  import Data.Maybe(fromMaybe)
***************
*** 263,266 ****
--- 269,293 ----
  changeEditBoxFont hwnd font = withCFont font (osChangeEditBoxFont hwnd)
  foreign import ccall osChangeEditBoxFont :: WindowHandle -> FontHandle -> IO ()
+ 
+ -----------------------------------------------------------------------------------------
+ -- DateEntry
+ -----------------------------------------------------------------------------------------
+ -- | Create a date entry control.
+ foreign import ccall "osCreateDateEntry" createDateEntry :: WindowHandle -> IO WindowHandle
+ 
+ getDateEntryRequestSize :: WindowHandle -> IO Size
+ getDateEntryRequestSize hwnd = withCSizeResult (osGetDateEntryReqSize hwnd)
+ foreign import ccall osGetDateEntryReqSize :: WindowHandle -> Ptr CInt -> IO ()
+ 
+ getDateEntryValue :: WindowHandle -> IO ClockTime
+ getDateEntryValue hwnd = do
+   ctime <- osGetDateEntryValue hwnd
+   return (TOD (fromIntegral ctime) 0)
+ foreign import ccall osGetDateEntryValue :: WindowHandle -> IO CTime
+ 
+ setDateEntryValue :: WindowHandle -> ClockTime -> IO ()
+ setDateEntryValue hwnd (TOD time 0) = osSetDateEntryValue hwnd (fromIntegral time)
+ foreign import ccall osSetDateEntryValue :: WindowHandle -> CTime -> IO ()
+ 
  
  -----------------------------------------------------------------------------------------