does anyone have a copy of pgreplaceresource for fb2?

***

how 'bout a simple routine
to throw up a modal that
asks the user a question,
and lets then enter an answer?

answer$ = fn ask ("what is the question?")

***

on lineheight, here's something from function junction 2.
people who don't have fj2 should buy it!  today!  from bill!

LOCAL MODE
' FN styledLineHt (fld%) returns the line height of any line in
'             a styled text edit field -- note:  requires "defstr long"
' INPUTS:  fld% -    INTEGER: FB field number (in the active window)
'             ln%  -    INTEGER: the line number to examine
' OUTPUTS:  ht%  -    INTEGER: line height in pixels
LOCAL FN styledLineHt(fld%,ln%)
teH& = TEHANDLE (fld%)                            ' get handle for the record
LONG IF teH& <> _nil                              ' handle good?
teSH& = [[teH&]+_teFont]                          ' get handle for the style 
record
teLH& = [[teSH&]+_lhTab]                          ' get handle for the line 
height table
ht% = {[teLH&]+ln%*4}                             ' get line height in table
END IF
END FN = ht%

-bowerbird