OpenEuphoria

Re: wxEuphoria wxBitmapButton Question

• Posted by Matt Lewis <matthewwalkerlewis at gmail.com> Jul 25, 2005
• 657 views

Matt Lewis wrote:
> 
> Alternatively, you may add the following code to the end of wxButton.e,
> as it will be appearing in the next release of wxEuphoria:

Sorry, hit send too soon.  The new code will be:

include wxGraphics.e
--/topic wxBitmapButton
--/proc set_bmpbutton( atom button, atom bitmap )
--
--Sets the displayed bitmap of the bitmap button.
global procedure set_bmpbutton( atom button, atom bitmap )
	atom ptr
	ptr = button + sizeof_wxBitmapButton - 8 - 4 * sizeof_wxBitmap
	poke( ptr, peek( bitmap & sizeof_wxBitmap ) )
	refresh_window( button )
end procedure

Matt lewis