Sat Nov 21 09:22:49 EST 2009 Axel Simon <Axe...@en...>
* Fix the bug Duncan reported.
hunk ./gtk/Graphics/UI/Gtk/Entry/Editable.chs.pp 339
- pos <- peek posPtr
- pos' <- handler str pos
- poke posPtr pos'
+ pos <- peek (posPtr :: Ptr {#type gint#})
+ pos' <- handler str (fromIntegral pos)
+ poke (posPtr :: Ptr {#type gint#}) (fromIntegral pos')
hunk ./gtk/Graphics/UI/Gtk/Entry/Editable.chs.pp 348
- pos <- peek posPtr
- pos' <- handler str pos
- poke posPtr pos'
+ pos <- peek (posPtr :: Ptr {#type gint#})
+ pos' <- handler str (fromIntegral pos)
+ poke (posPtr :: Ptr {#type gint#}) (fromIntegral pos')
|
