[futurebasic] FBtoC conversion tricks

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : February 2008 : Group Archive : Group : All Groups

From: William Levering <vering2@...>
Date: Mon, 04 Feb 2008 19:39:23 -0800
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