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