... a couple things not in FB's headers.

'----------
// MacWindows.h
_kWindowMenuIncludeRotate = 1 << 0// OS X 10.2 or later
toolbox fn SetWindowAlternateTitle( WindowRef inWindow, CFStringRef  
inTitle ) = OSStatus


dim as OSStatus  ignore
dim as MenuRef @ windowMenu

ignore = fn CreateStandardWindowMenu( _kWindowMenuIncludeRotate,  
@windowMenu )
InsertMenu( windowMenu, 0 )

appearance window 1, "Window 1", (50,60)-(550,360),  
_kDocumentWindowClass
ignore = fn SetWindowAlternateTitle( window( _wndRef ), fn CFSTR 
( "Squidge" ) )

appearance window 2, "Window 2", (0,0)-(640,480), _kDocumentWindowClass
ignore = fn SetWindowAlternateTitle( window( _wndRef ), fn CFSTR 
( "Squodge" ) )


do
HandleEvents
until 0
'----------


Bernie;