[htoolkit-cvs] port/src/Port Controls.hs,1.11,1.12

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

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

Modified Files:
	Controls.hs 
Log Message:
The font attribute from Literate class is implemented


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Controls.hs,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Controls.hs	26 Mar 2003 19:20:18 -0000	1.11
--- Controls.hs	26 Mar 2003 22:09:53 -0000	1.12
***************
*** 36,42 ****
--- 36,44 ----
             , createLabel, getLabelRequestSize
             , getLabelText, setLabelText
+            , changeLabelFont
             -- * Button
             , createButton, getButtonRequestSize
             , getButtonText, setButtonText
+            , changeButtonFont
             -- * Edit box
             , createEdit, getEditRequestSize
***************
*** 44,47 ****
--- 46,50 ----
             , getEditReadOnly,  setEditReadOnly
             , getEditVisibility,setEditVisibility
+            , changeEditBoxFont
             -- * Check box
             , createCheckBox, getCheckBoxRequestSize
***************
*** 124,127 ****
--- 127,134 ----
  foreign import ccall osSetLabelText :: WindowHandle -> CString -> IO ()
  
+ changeLabelFont :: WindowHandle -> Font -> IO ()
+ changeLabelFont hwnd font = withCFont font (osChangeLabelFont hwnd)
+ foreign import ccall osChangeLabelFont :: WindowHandle -> FontHandle -> IO ()
+ 
  -----------------------------------------------------------------------------------------
  -- Button  
***************
*** 148,151 ****
--- 155,162 ----
  foreign import ccall osSetButtonText :: WindowHandle -> CString -> IO ()
  
+ changeButtonFont :: WindowHandle -> Font -> IO ()
+ changeButtonFont hwnd font = withCFont font (osChangeButtonFont hwnd)
+ foreign import ccall osChangeButtonFont :: WindowHandle -> FontHandle -> IO ()
+ 
  -----------------------------------------------------------------------------------------
  -- CheckBox  
***************
*** 201,204 ****
--- 212,219 ----
  foreign import ccall "osSetEditVisibility" setEditVisibility :: WindowHandle -> Bool -> IO ()
  foreign import ccall "osGetEditVisibility" getEditVisibility :: WindowHandle -> IO Bool
+ 
+ changeEditBoxFont :: WindowHandle -> Font -> IO ()
+ changeEditBoxFont hwnd font = withCFont font (osChangeEditBoxFont hwnd)
+ foreign import ccall osChangeEditBoxFont :: WindowHandle -> FontHandle -> IO ()
  
  -----------------------------------------------------------------------------------------