Ok, but once I sent a code snippet to Staz and he said that he had to
'bit his tongue' about my code. You know, I didn't appreciate that.
I'm not the expert...
RP - I got six of these warnings from the LOCAL below and they all
went away when I used VAL&() instead of VAL()
In function 'EditChartInfoDiag':
/Users/williaml/Home/Apps stuff/Basic Apps/Charting folder/Charting
project-FBtoC/build_temp/_6_ShowChart.c:378: warning: comparing
floating point with == or != is unsafe
Local fn EditChartInfoDiag(evnt)
dim buttn
dim waswidth,washeight
select evnt
CASE _btnClick
buttn=DIALOG(1)
SELECT buttn
case <=Chart.chartwidth%
if button(buttn)>1 then button buttn,1 else button buttn,2
CASE 100'done
'must call in this order!!!
if edit$(1)<>filerec.name$ then filerec.name$=left$(edit$(1),
63):inc(CModify)
for buttn=1 to Chart.chartwidth%
long if Chart.boldline%[buttn]+1<>button(buttn)
if button(buttn)=2 then Chart.boldline%[buttn]=1 else Chart.boldline%
[buttn]=0
inc(CModify)
end if
next
for buttn=1 to Chart.chartheight%
long if Chart.linenumb%[buttn]<>val(edit$(20+buttn))
Chart.linenumb%[buttn]=val(edit$(20+buttn))
inc(CModify)
end if
next
if val(edit$(2))<>Chart.chartwidth% then Chart.chartwidth% =val(edit
$(2)):inc(CModify)
if val(edit$(3))<>Chart.chartheight% then Chart.chartheight%=val(edit
$(3)):inc(CModify)
if val(edit$(4))<>Chart.textheight% then Chart.textheight%=val(edit
$(4)):inc(CModify)
'if symbol height or width changes
waswidth=Chart.symbwidth%
washeight=Chart.symbheight%
if val(edit$(6))<>Chart.symbwidth% then Chart.symbwidth% =val(edit
$(6)):inc(CModify)
if val(edit$(7))<>Chart.symbheight% then Chart.symbheight% =val&(edit$
(7)):inc(CModify)
long if waswidth<>Chart.symbwidth% or washeight<>Chart.symbheight
%'symbol hight or width changed
fn AdjustSymbolSize(waswidth,washeight,Chart.symbwidth
%,Chart.symbheight%)
end if
fn MenuMod
closewndevent=_editchartInfoWnd
case 101'cancel
closewndevent=_editchartInfoWnd
END SELECT
CASE _wndClose'same as cancel
closewndevent=_editchartInfoWnd
end select
end fn