[htoolkit-cvs] gio/src/Graphics/UI/GIO Controls.hs,1.15,1.16

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv15099/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.15
retrieving revision 1.16
diff -C2 -d -r1.15 -r1.16
*** Controls.hs	10 Jul 2003 19:41:19 -0000	1.15
--- Controls.hs	10 Jul 2003 20:50:24 -0000	1.16
***************
*** 247,251 ****
  listBoxCommand lb = do
    i  <- Port.getListBoxCurrentItem (lbhandle lb)
-   print i
    xs <- getVar (lbitems lb)
    when (i>=0 && i < length xs) (snd (xs!!i))  -- invoke appropiate handler
--- 247,250 ----