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

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

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