Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv24395/src/Graphics/UI/GIO
Modified Files:
Controls.hs
Log Message:
remove trace message
Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -d -r1.12 -r1.13
*** Controls.hs 30 May 2003 13:07:05 -0000 1.12
--- Controls.hs 9 Jul 2003 17:03:51 -0000 1.13
***************
*** 32,35 ****
--- 32,36 ----
import Graphics.UI.GIO.Window
import Graphics.UI.GIO.Layout
+ import Control.Monad(when)
--------------------------------------------------------------------
***************
*** 175,179 ****
= do p <- do hpop <- Port.createPopUp (hwindow w)
pitems <- newVar []
! return (Popup hpop (hwindow w) pitems)
set p [on command =: popupCommand p]
set p props
--- 176,180 ----
= do p <- do hpop <- Port.createPopUp (hwindow w)
pitems <- newVar []
! return (Popup hpop (hwindow w) pitems)
set p [on command =: popupCommand p]
set p props
***************
*** 185,191 ****
= do i <- get p selected
xs <- getVar (pitems p)
! if (i<0 || i >= length xs)
! then print i
! else snd (xs!!i) -- invoke appropiate handler
--- 186,190 ----
= do i <- get p selected
xs <- getVar (pitems p)
! when (i>0 && i < length xs) (snd (xs!!i)) -- invoke appropiate handler
***************
*** 199,203 ****
instance SingleSelect Popup where
! selected
= newAttr (\w -> Port.getPopUpSelection (phandle w))
(\w i -> do Port.setPopUpSelection (phandle w) i
--- 198,202 ----
instance SingleSelect Popup where
! selected
= newAttr (\w -> Port.getPopUpSelection (phandle w))
(\w i -> do Port.setPopUpSelection (phandle w) i
***************
*** 205,209 ****
instance Dimensions Popup where
! frame = newAttr (\p -> Port.getControlFrame (phandle p))
(\p r -> Port.moveResizeControl (phandle p) r)
--- 204,208 ----
instance Dimensions Popup where
! frame = newAttr (\p -> Port.getControlFrame (phandle p))
(\p r -> Port.moveResizeControl (phandle p) r)
|
