OK, here is the modified BuildNewWindow function for us Center-Brained
people...
This works for me.
Thanks for your help
Rich
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
// 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@...