[futurebasic] Re: [FB] FBtoC 1.02 and Appearance Buttons

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : January 2008 : Group Archive : Group : All Groups

From: Robert Purves <listrp@...>
Date: Mon, 28 Jan 2008 08:19:14 +1300
Rich Love wrote:

> There is a problem with Appearance Buttons in FBtoC 1.02
>
> I have modified Robert's test routine to add a checkbox.
> When you run this in FB it puts a check mark in the checkbox.
> But when run in FBtoC 1.02 , there is no checkmark and you can't  
> click on it to put one there.
> FBtoC 1.01 was OK.
>
> Here is the modified routine with the checkbox:
>
> local fn BuildPopMenu( id as long )
> dim as MenuRef popH
> menu id, 0, _enable, ""
> menu id, 1, _enable, "FBtoC bug;No bug"
> popH = fn GetMenuHandle( id )
> DeleteMenu( id )
> InsertMenu( popH, -1 )
> end fn
>
> dim as Rect r
> dim as Rect r2
>
> window 1
> fn BuildPopMenu( 666 )
> SetRect( @r, 18, 98, 160, 115 )
> appearance button -1, _activeBtn,, 666, -1,, @r,  
> _kControlPopupButtonProc
>
> // try to set "No bug"
> appearance button 1, _activeBtn, 2 // no effect in FBtoC
> //appearance button 1,, 2 // no effect in FBtoC
> //appearance button 1, _grayBtn, 2 // works but popup is inactive
>
> SetRect( @r2, 30, 40, 260, 115 )
> appearance button 5, _activeBtn,,,,, @r2, _kControlCheckBoxProc
> appearance button 5,,1
>
> do
> HandleEvents
> until ( gFBQuit )

This bug, affecting the 'appearance button' statement, is due to two  
ill-considered lines of code introduced in FBtoC 1.0.2.
You can either wait for 1.0.3, or fix it yourselves in few seconds by  
editing the file build_goodies/AppThings.c.

[1] In AppThings.c, locate and comment out line 1869:
	// SetControl32BitValue( c, 0 );
[2] Similarly for line 1873:
	// SetControl32BitValue( c, 1 );
[3] Save AppThings.c.

Robert P.