From: Duncan C. <dun...@us...> - 2005-03-26 00:09:35
|
Update of /cvsroot/gtk2hs/gtk2hs/mozembed/Graphics/UI/Gtk In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1970/mozembed/Graphics/UI/Gtk Modified Files: MozEmbed.chs Log Message: Use Int in the signal handler return type rather than (Num n, Integral n) => n since there's no need to be so general (and it breaks my new signals system!) Index: MozEmbed.chs =================================================================== RCS file: /cvsroot/gtk2hs/gtk2hs/mozembed/Graphics/UI/Gtk/MozEmbed.chs,v retrieving revision 1.4 retrieving revision 1.5 diff -u -d -r1.4 -r1.5 --- MozEmbed.chs 14 Jan 2005 19:04:50 -0000 1.4 +++ MozEmbed.chs 26 Mar 2005 00:09:27 -0000 1.5 @@ -248,8 +248,9 @@ onKeyDown, onKeyPress, onKeyUp, onMouseDown, onMouseUp, onMouseClick, onMouseDoubleClick, onMouseOver, onMouseOut - :: (Num n, Integral n, MozEmbedClass m) - => m -> (Ptr a -> IO n) -> IO (ConnectId m) + :: MozEmbedClass self => self + -> (Ptr a -> IO Int) + -> IO (ConnectId self) onKeyDown = connect_PTR__INT "dom_key_down" False onKeyPress = connect_PTR__INT "dom_key_press" False onKeyUp = connect_PTR__INT "dom_key_up" False |