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 ----
|
