[htoolkit-cvs] gio/src/Graphics/UI/GIO Controls.hs,1.24,1.25

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

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

Modified Files:
	Controls.hs 
Log Message:
Add Checked instance for NotebookPage


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.24
retrieving revision 1.25
diff -C2 -d -r1.24 -r1.25
*** Controls.hs	24 Aug 2003 14:21:01 -0000	1.24
--- Controls.hs	24 Aug 2003 16:48:48 -0000	1.25
***************
*** 778,781 ****
--- 778,793 ----
    pos = readAttr "pos" (Port.getNotebookPagePos . pghandle)
  
+ instance Checked NotebookPage where
+   checked = newAttr getChecked setChecked
+   	where
+   		getChecked p = do
+   			index <- Port.getNotebookPagePos   (pghandle p)
+   			sel   <- Port.getNotebookSelection (pgparent p)
+   			return (index == sel)
+ 
+   		setChecked p _ = do
+ 			index <- Port.getNotebookPagePos (pghandle p)
+ 			Port.setNotebookSelection (pgparent p)index
+ 
  instance Deadly NotebookPage where
    destroyWidget w = Port.destroyNotebookPage (pghandle w)