Update of /cvsroot/htoolkit/port/src/Port
In directory sc8-pr-cvs1:/tmp/cvs-serv29626/src/Port
Modified Files:
Types.hs
Log Message:
In this commit are implemented functions osGetTextColor, osGetWindowColor,
osGetDialogColor. The osDefaultFontDef function now returns the default
font for gnome application. The osDefaultFontDef and similar functions now
returns new allocated string which is deallocated from Haskell world.
Index: Types.hs
===================================================================
RCS file: /cvsroot/htoolkit/port/src/Port/Types.hs,v
retrieving revision 1.32
retrieving revision 1.33
diff -C2 -d -r1.32 -r1.33
*** Types.hs 24 Aug 2003 19:02:45 -0000 1.32
--- Types.hs 25 Aug 2003 20:41:08 -0000 1.33
***************
*** 984,988 ****
poke pcstrikeout 0
f pcstr pcsize pcweight pcstyle pcunderline pcstrikeout
! cname <- peek pcstr
csize <- peek pcsize
cweight <- peek pcweight
--- 984,988 ----
poke pcstrikeout 0
f pcstr pcsize pcweight pcstyle pcunderline pcstrikeout
! cname <- peek pcstr
csize <- peek pcsize
cweight <- peek pcweight
***************
*** 990,994 ****
cunderline <- peek pcunderline
cstrikeout <- peek pcstrikeout
! fromCFontDef cname csize cweight cstyle cunderline cstrikeout
fromCFontDef :: CString -> CInt -> CInt -> CInt -> CBool -> CBool -> IO FontDef
--- 990,996 ----
cunderline <- peek pcunderline
cstrikeout <- peek pcstrikeout
! fontDef <- fromCFontDef cname csize cweight cstyle cunderline cstrikeout
! free cname
! return fontDef
fromCFontDef :: CString -> CInt -> CInt -> CInt -> CBool -> CBool -> IO FontDef
|
