[htoolkit-cvs] gio/src/Graphics/UI/GIO Controls.hs,1.12,1.13

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

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)