[Gtk2hs-commit] (main branch): Fix the bug Duncan reported.

[Axel S. <si...@co...>]

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')