OpenEuphoria

Re: How do I disable a tab in Win32lib?

• Posted by penpal0andrew Jun 18, 2009
• 1045 views

In latest trunk of win32lib:

BUG in Enable when there is a background color:

without warning 
include win32lib.ew 
 
integer win, radio, button 
integer state 
 
procedure click(integer self, integer event, sequence parms) 
	setEnable(radio, state) 
	state = not state 
	if state then 
		setText(self, "Enable it") 
	else 
		setText(self, "Disable it") 
	end if 
end procedure 
 
procedure main() 
 
    win = createEx(Window, "Test Enable with backcolor", 0, 0, 0, 400, 200, 0, 0) 
	radio = createEx( Radio, "Radio", win, 0, 0, 60, 20, 0, 0 ) 
	setWindowBackColor( radio, 33023 ) 
    button = createEx(Button, "Enable radio", win, 0, 80, 90, 20, 0, 0) 
    state = w32True 
 
    setHandler(button, w32HClick, routine_id("click")) 
    WinMain(win, Normal) 
 
end procedure 
 
main() 

A. Katz