[htoolkit-cvs] gio/src/Graphics/UI/GIO Controls.hs,1.28,1.29

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv28624/gio/src/Graphics/UI/GIO

Modified Files:
	Controls.hs 
Log Message:
Add support for icons in Notebook


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -d -r1.28 -r1.29
*** Controls.hs	26 Aug 2003 21:23:52 -0000	1.28
--- Controls.hs	30 Aug 2003 22:57:46 -0000	1.29
***************
*** 790,791 ****
--- 790,794 ----
    destroyWidget w = Port.destroyNotebookPage (pghandle w)
    destroy         = newStdEvent pghandle Port.getWindowDestroyHandler Port.setWindowDestroyHandler Port.setWindowDestroyDefHandler
+ 
+ instance HasIcon NotebookPage where
+   icon  = newStdAttr pghandle Port.getNotebookPageBitmap Port.setNotebookPageBitmap