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
|
