I wrote:

> I've noticed that Apple's Interface Builder lets us create "rounded"
> bevel buttons which appear convex, rather than concave.
> Is there a way to create these in FB  (rel.7)?


Alain's QuiXample found Alain's "Tlbx ControlDefinitions.Incl" which 
contains "BEVEL BUTTON INTERFACE" by Alain which helped me create a 
rounded bevel button.

Thanks Alain (x 3)

Bernie

/*
Example of rounded (convex) bevel button
*/
'~'A
'                       Runtime : Rntm Appearance.Incl
'                           CPU : Carbon
'~'B
_wWindow1 = 1
_cBevel = 1
_cBevel2 = 2
_kControlBevelButtonKindTag = _"bebk"	'<< probably not required in R8
_kControlRoundedBevel = 15

local fn BuildwWindow1
dim as rect r
dim as short @ setVal

SetRect(r, 0, 44, 640, 524)
appearance window -_wWindow1,¬
                   "Window 1", @r,¬
                   _kDocumentWindowClass

SetRect(r, 214, 300, 284, 360)
appearance button _cBevel,¬
                   _activeBtn,¬
                   0, 0, 0, "Normal", @r,¬
                   _kControlBevelButtonNormalBevelProc


SetRect(r, 414, 300, 484, 360)
appearance button _cBevel2,¬
                   _activeBtn,¬
                   0, 0, 0, "Rounded", @r,¬
                   _kControlBevelButtonNormalBevelProc

setVal = _kControlRoundedBevel
def SetButtonData(_cBevel2,¬
                   _kControlEntireControl,¬
                   _kControlBevelButtonKindTag, SizeOf(short), setVal)

appearance window _wWindow1
end fn

fn BuildwWindow1

do
HandleEvents
until gFBQuit