On 16 Jan 2004, at 17:57, Ken Shmidheiser wrote:

> <snip>
> toolbox fn SetControlTitleWithCFString (¬
>                    ControlRef inControl,¬
>                    CFStringRef inString ) = OSStatus
> local fn SetDisclosureTriangleTitle( titleStr as str255 )
> dim as OSStatus    stat
> dim as str255      newTitleStr
> dim as CFStringRef cfStr
> cfStr = fn CFStringCreateWithPascalString ( 0,¬
>            titleStr, _kCFStringEncodingMacRoman )
> long if cfStr[0] != 0
> stat = fn SetControlTitleWithCFString ( c, cfStr )
> CFRelease( cfStr)
> end if
> end fn
> <snip>

Ken,

Now this may just do the trick.

This is for TWM. I really want to keep _all_ control creation with FB's 
appearance button statement. I've not got time now but if I call your 
function after creating the triangle with app btn, it should work.

Thank you, thank you, thank you

:-)
Bernie