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
|
