#82 Cannot set a BitmapButton as defaultButton

[Henk-Jan van Tuyl]

A BitmapButton should inherit from Button, but specifying the property "defaultButton" for a bitmap button fails, while compiling, with the message:

DefaultBitmapButton.hs:21:27:
    Couldn't match type `WXCore.CBitmapButton ()' with `()'
    Expected type: Button ()
      Actual type: BitmapButton ()
    In the second argument of `(:=)', namely `ambBmb'
    In the expression: defaultButton := ambBmb
    In the second argument of `set', namely `[defaultButton := ambBmb]'

See the attached program.

[Henk-Jan van Tuyl]

Workaround:

:::Haskell
set f [unsafeDefaultItem := objectCast ambBmb]

After applying this workaround, there remains, however, a problem:

• The first time, the correct (amber) button is activated
• After closing the info dialog and pressing "enter" again, the red button is activated; this should, of course, still be the amber button

Versions:

Item	Version
OS	Windows XP
GHC	7.6.3
wxWidgets	2.9.5
wxHaskell	0.90.1.0 (currently in Github repository)