[htoolkit-cvs] gio/src/Graphics/UI/GIO Controls.hs,1.27,1.28

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

Update of /cvsroot/htoolkit/gio/src/Graphics/UI/GIO
In directory sc8-pr-cvs1:/tmp/cvs-serv5400/gio/src/Graphics/UI/GIO

Modified Files:
	Controls.hs 
Log Message:
bugfix


Index: Controls.hs
===================================================================
RCS file: /cvsroot/htoolkit/gio/src/Graphics/UI/GIO/Controls.hs,v
retrieving revision 1.27
retrieving revision 1.28
diff -C2 -d -r1.27 -r1.28
*** Controls.hs	24 Aug 2003 21:07:48 -0000	1.27
--- Controls.hs	26 Aug 2003 21:23:52 -0000	1.28
***************
*** 33,37 ****
                                 
                                 -- ** Popup
!                                -- | A popup control consists of a list box combined with a label control. 
                                 -- The list box portion of the control drop down only when the user selects 
                                 -- the drop-down arrow next to the control. The currently selected item in the 
--- 33,37 ----
                                 
                                 -- ** Popup
!                                -- | A popup control consists of a list box combined with a label control.
                                 -- The list box portion of the control drop down only when the user selects 
                                 -- the drop-down arrow next to the control. The currently selected item in the 
***************
*** 300,307 ****
  
  instance SingleSelect Popup where
!   selected
!     = newAttr (\w -> Port.getPopUpSelection (phandle w))
!               (\w i -> do Port.setPopUpSelection (phandle w) i
!                           popupCommand w)  -- pretend an event
  
  instance Dimensions Popup where
--- 300,304 ----
  
  instance SingleSelect Popup where
!   selected = newStdAttr phandle Port.getPopUpSelection Port.setPopUpSelection
  
  instance Dimensions Popup where