[wxhaskell-users] BitmapButton as default button

[Henk-Jan v. T. <hj...@ch...>]

L.S.,

I am trying to make a bitmap button the default button, but using the  
function defaultButton results in an error message ('ok' is a  
BitmapButton):
     Couldn't match expected type `()'
                 with actual type `WXCore.CBitmapButton ()'
     Expected type: Button ()
       Actual type: BitmapButton ()
     In the second argument of `(:=)', namely `ok'
     In the expression: defaultButton := ok

Isn't BitmapButton supposed to inherit from Button?

I used the following as a workaround:
    unsafeDefaultItem := objectCast ok

Regards,
Henk-Jan van Tuyl


-- 
http://Van.Tuyl.eu/
http://members.chello.nl/hjgtuyl/tourdemonad.html
Haskell programming
--