Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv25798/src/Graphics/UI/GIO
Modified Files:
Controls.hs
Log Message:
bugfix: popupCommand handler should accept zero based index
Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.13
retrieving revision 1.14
diff -C2 -d -r1.13 -r1.14
*** Controls.hs 9 Jul 2003 17:03:51 -0000 1.13
--- Controls.hs 9 Jul 2003 17:15:14 -0000 1.14
***************
*** 186,190 ****
= do i <- get p selected
xs <- getVar (pitems p)
! when (i>0 && i < length xs) (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
|
