OK, now that I have the demo printing some sample text, how do I set 
the font and size for the printed output.
The standard TEXT font,size command does not work as shown below


DIM AS CONTAINER gPrintText
END GLOBALS

local fn BuildNewWindow
'~'1
dim as long      untitledNum
dim as Str255    wTitle
dim as Handle  @ contentH
dim as OSStatus  err

wTitle      = "Untitled"
untitledNum = fn NextNewWindowCount
if ( untitledNum > 1 ) then wTitle += str$( untitledNum )
window fn NextFBWindowNum, wTitle

//  Set the font and size here (but it does not work)
local fn GetFontNumber( fontName as Str255 )
dim @ fontNum
call GetFNum( fontName, @fontNum )
end fn = fontNum
text fn GetFontNumber( "Courrier" ), 8


// invent some "text"
gPrintText = "Test Line One"+ chr$(13) + chr$(10)
gPrintText = gPrintText + "Test Line Two"+ chr$(13) + chr$(10)
contentH = [@gPrintText]

// attach it to the window as a WindowProperty
err = fn SetWindowProperty( window( _wndRef ), _kMyAppSignature, ¬
    _kMyDocContentProperty, sizeof( Handle ), @contentH )

end fn



Rich Love - Carnation Software
MacWise Terminal emulation for Macintosh
richlove@...
http://www.carnation-software.com
512 858-9234


--
To unsubscribe, send ANY message to: futurebasic-unsubscribe@...