[futurebasic] FBtoC 1.02 and Appearance Buttons

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

From: Rich Love <richlove@...>
Date: Sun, 27 Jan 2008 07:55:25 -0600
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 )

'Rich