[futurebasic] Re: [FB] Missing Terminating " character but where?

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : July 2009 : Group Archive : Group : All Groups

From: Robert Covington <artlythere@...>
Date: Tue, 28 Jul 2009 21:17:57 -0400
When I tried your function in FB4, the compiler balked at  
_cursOverNothing...saying expected end of statement.


Funky

rc


On Jul 28, 2009, at 8:51 PM, Brian Heibert wrote:

> Okay, now I am down to these three errors
> Actually 2 errors as if the first two get fixed the third should go  
> away right?
>
> Error:gcc:missing terminating " character in fn 'DoDialog' [line  
> 854 of _2_Tlbx_IBCarbonRuntime.incl...VocalAssist.main.c]
> Error:gcc:missing terminating " character in fn 'DoDialog' [line  
> 851 of _2_Tlbx_IBCarbonRuntime.incl...VocalAssist.main.c]
> Error:gcc: Compilation failed
>
> I looked for missing quotes; couldn’t find it
>
> Line 854 & 851 In FutureBASIC are blank
> Line 854 in FBtoC is unknown
>
>
> Local fn DoDialog
> '~'1
> dim as long evnt, ref
> evnt = dialog(0)
> ref = dialog(1)
> select evnt
> CASE _wndClose
> WINDOW CLOSE #1
> CASE _cursOverNothing
>   CURSOR 0,0
> /*  fn MTAutoTextCursorForControl( button&( _edittxt,1 ))*/
> CASE _cursOverBtn
> CURSOR _kThemePointingHandCursor
> case _btnClick
> select ref
>
> FN LaunchHelpSys
> case _qBtn
> dim text1$
> text1$ = EDIT$(_edittxt)
> text1$ = text1$+"Q"
> def SetButtonTextString (_edittxt,text1$)
> case _wBtn
> dim text2$
> text2$ = EDIT$(_edittxt)
> text2$ = text2$+"W"
> def SetButtonTextString (_edittxt,text2$)
> case _eBtn
> dim text3$
> text3$ = EDIT$(_edittxt)
> text3$ = text3$+"E"
> def SetButtonTextString (_edittxt,text3$)
> case _rBtn
> dim text4$
> text4$ = EDIT$(_edittxt)
> text4$ = text4$+"R"
> def SetButtonTextString (_edittxt,text4$)
> case _tBtn
> dim text5$
> text5$ = EDIT$(_edittxt)
> text5$ = text5$+"T"
> def SetButtonTextString (_edittxt,text5$)
> case _yBtn
> dim text6$
> text6$ = EDIT$(_edittxt)
> text6$ = text6$+"Y"
> def SetButtonTextString (_edittxt,text6$)
> case _uBtn
> dim text7$
> text7$ = EDIT$(_edittxt)
> text7$ = text7$+"U"
> def SetButtonTextString (_edittxt,text7$)
> case _iBtn
> dim text8$
> text8$ = EDIT$(_edittxt)
> text8$ = text8$+"I"
> def SetButtonTextString (_edittxt,text8$)
> case _oBtn
> dim text9$
> text9$ = EDIT$(_edittxt)
> text9$ = text9$+"O"
> def SetButtonTextString (_edittxt,text9$)
> case _aBtn
> dim text11$
> text11$ = EDIT$(_edittxt)
> text11$ = text11$+"A"
> def SetButtonTextString (_edittxt,text11$)
> case _sBtn
> dim text12$
> text12$ = EDIT$(_edittxt)
> text12$ = text12$+"S"
> def SetButtonTextString (_edittxt, text12$)
> case _dBtn
> dim text13$
> text13$ = EDIT$(_edittxt)
> text13$ = text13$+"D"
> def SetButtonTextString (_edittxt, text13$)
> case _fBtn
> dim text14$
> text14$ = EDIT$(_edittxt)
> text14$ = text14$+"F"
> def SetButtonTextString (_edittxt, text14$)
> case _pBtn
> dim text15$
> text15$ = EDIT$(_edittxt)
> text15$ = text15$+"P"
> def SetButtonTextString (_edittxt, text15$)
> case _bracket1openBtn
> dim text16$
> text16$ = EDIT$(_edittxt)
> text16$ = text16$+"{"
> def SetButtonTextString (_edittxt, text16$)
> case _bracket2openBtn
> dim text17$
> text17$ = EDIT$(_edittxt)
> text17$ = text17$+"["
> def SetButtonTextString (_edittxt, text17$)
> case _bracket1closedBtn
> dim text18$
> text18$ = EDIT$(_edittxt)
> text18$ = text18$+"}"
> def SetButtonTextString (_edittxt, text18$)
> case _bracket2closedBtn
> dim text19$
> text19$ = EDIT$(_edittxt)
> text19$ = text19$+"]"
> def SetButtonTextString (_edittxt, text19$)
> case _SpaceBarBtn
> dim text20$
> text20$ = EDIT$(_edittxt)
> text20$ = text20$+" "
> def SetButtonTextString (_edittxt, text20$)
> case _exclaimBtn
> dim text21$
> text21$ = EDIT$(_edittxt)
> text21$ = text21$+"!"
> def SetButtonTextString (_edittxt, text21$)
> case _atBtn
> dim text22$
> text22$ = EDIT$(_edittxt)
> text22$ = text22$+"@"
> def SetButtonTextString (_edittxt, text22$)
> case _poundBtn
> dim text23$
> text23$ = EDIT$(_edittxt)
> text23$ = text23$+"#"
> def SetButtonTextstring (_edittxt, text23$)
> case _dollarBtn
> dim text24$
> text24$ = EDIT$(_edittxt)
> text24$ = text24$+"$"
> def SetButtonTextString (_edittxt, text24$)
> case _percentBtn
> dim text25$
> text25$ = EDIT$(_edittxt)
> text25$ = text25$+"%"
> def SetButtonTextString (_edittxt, text25$)
> case _carotBtn
> dim text26$
> text26$ = EDIT$(_edittxt)
> text26$ = text26$+"^"
> def SetButtonTextString (_edittxt, text26$)
> case _andBtn
> dim text27$
> text27$ = EDIT$(_edittxt)
> text27$ = text27$+"&"
> def SetButtonTextString (_edittxt, text27$)
> case _asterickBtn
> dim text28$
> text28$ = EDIT$(_edittxt)
> text28$ = text28$+"*"
> def SetButtonTextString (_edittxt, text28$)
> case _one
> dim num1$
> num1$ = EDIT$(_edittxt)
> num1$ = num1$ + "1"
> def SetButtonTextstring (_edittxt, num1$)
> case _two
> dim num2$
> num2$ = EDIT$(_edittxt)
> num2$ = num2$+"2"
> def SetButtonTextString (_edittxt, num2$)
> case _three
> dim num3$
> num3$ = EDIT$(_edittxt)
> num3$ = num3$+"3"
> def SetButtonTextString (_edittxt, num3$)
> case _four
> dim num4$
> num4$ = EDIT$(_edittxt)
> num4$ = num4$+"4"
> def SetButtonTextString (_edittxt, num4$)
> case _five
> dim num5$
> num5$ = EDIT$(_edittxt)
> num5$ = num5$+"5"
> def SetButtonTextString (_edittxt, num5$)
> case _six
> dim num6$
> num6$ = EDIT$(_edittxt)
> num6$ = num6$+"6"
> def SetButtonTextSTring (_edittxt, num6$)
> case _seven
> dim num7$
> num7$ = EDIT$(_edittxt)
> num7$ = num7$+"7"
> def SetButtonTextString (_edittxt, num7$)
> case _eight
> dim num8$
> num8$ = EDIT$(_edittxt)
> num8$ = num8$+"8"
> def SetButtonTextString (_edittxt, num8$)
> case _nine
> dim num9$
> num9$ = EDIT$(_edittxt)
> num9$ = num9$+"9"
> def SetButtonTextString (_edittxt, num9$)
> case _zero
> dim num10$
> num10$ = EDIT$(_edittxt)
> num10$ = num10$+"0"
> def SetButtonTextString (_edittxt, num10$)
> case _parenthesisBtn1
> dim par1$
> par1$ = EDIT$(_edittxt)
> par1$ = par1$+"("
> def SetButtonTextString (_edittxt, par1$)
> case _parenthesisBtn2
> dim par2$
> par2$ = EDIT$(_edittxt)
> par2$ = par2$+")"
> def SetButtonTextString (_edittxt, par2$)
> case _sharewareBtn
> dim url$
> url$ = "http://www.crazymacsoftware.com/store"
> FN LaunchURL (url$)
> case _dashBtn
> dim dash$
> dash$ = EDIT$(_edittxt)
> dash$ = dash$+"_"
> def SetButtonTextString (_edittxt, dash$)
> case _underscoreBtn
> dim underscore$
> underscore$ = EDIT$(_edittxt)
> underscore$ = underscore$+"_"
> def SetButtonTextString (_edittxt, underscore$)
> case _plusBtn
> dim plusBtn$
> plusBtn$ = EDIT$(_edittxt)
> plusBtn$ = plusBtn$+"+"
> def SetButtonTextString (_edittxt, plusBtn$)
> case _equalBtn
> dim equalbtn$
> equalBtn$ = EDIT$(_edittxt)
> equalbtn$ = equalbtn$+"="
> def SetButtonTextString (_edittxt, equalbtn$)
> case _gBtn
> dim gBtn$
> gBtn$ = EDIT$(_edittxt)
> gBtn$ = gBtn$+"G"
> def SetButtonTextString (_edittxt, gBtn$)
> case _hBtn
> dim hBtn$
> hBtn$ = EDIT$(_edittxt)
> hBtn$ = hBtn$+"H"
> def SetButtonTextString (_edittxt, hBtn$)
> case _iBtn
> dim iBtn$
> iBtn$ = EDIT$(_edittxt)
> iBtn$ = iBtn$+"I"
> def SetButtonTextString (_edittxt, iBtn$)
> case _jBtn
> dim jBtn$
> jBtn$ = EDIT$(_edittxt)
> jBtn$ = jBtn$+"J"
> def SetButtonTextString (_edittxt, jBtn$)
> case _kBtn
> dim kBtn$
> kBtn$ = EDIT$(_edittxt)
> kBtn$= kBtn$+"K"
> def SetButtonTextString (_edittxt, kBtn$)
> case _lBtn
> dim lBtn$
> lBtn$ = EDIT$(_edittxt)
> lBtn$ = lBtn$+"L"
> def SetButtonTextString (_edittxt, lBtn$)
> case _mBtn
> dim mBtn$
> mBtn$ = EDIT$(_edittxt)
> mBtn$ = mBtn$+"M"
> def SetButtonTextString (_edittxt, mBtn$)
> case _nBtn
> dim nBtn$
> nBtn$ = EDIT$(_edittxt)
> nBtn$ = nBtn$+"N"
> def SetButtonTextString (_edittxt, nBtn$)
> case _colonbtn
> dim colonBtn$
> colonBtn$ = EDIT$(_edittxt)
> colonBtn$ = colonBtn$+":"
> def SetButtonTextString (_edittxt, colonBtn$)
> case _semicolonbtn
> dim semicolonBtn$
> semicolonBtn$ = EDIT$(_edittxt)
> semicolonBtn$ = semicolonBtn$+";"
> def SetButtonTextString (_edittxt, semicolonBtn$)
> case _quoteBtn
> dim quoteBtn$
> quoteBtn$ = EDIT$(_edittxt)
> quoteBtn$ = quoteBtn$+"""
> def SetButtonTextString (_edittxt, quoteBtn$)
> case _otherquoteBtn
> dim otherquoteBtn$
> otherquoteBtn$ = EdIT$(_edittxt)
> otherquoteBtn$ = otherquoteBtn$+"'"
> def SetButtonTextString (_edittxt, otherquoteBtn$)
> case _zBtn
> dim zOBtn$
> zOBtn$ = EDIT$(_edittxt)
> zOBtn$ = zOBtn$+"Z"
> def SetButtonTextString (_edittxt, zOBtn$)
> case _xBtn
> dim xBtn$
> xBtn$ = EDIT$(_edittxt)
> xBtn$ = xBtn$ + "X"
> def SetButtonTextString (_edittxt, xBtn$)
> case _cBtn
> dim cBtn$
> cBtn$ = EDIT$(_edittxt)
> cBtn$ = cBtn$ + "C"
> def SetButtonTextString (_edittxt, cBtn$)
> case _vocalizeBtn
> dim sptxt$
> dim sysvsp as integer
> dim sysv1 as integer
> sptxt$ = EDIT$(_edittxt)
> dim as OSErr ignore1
> long if sptxt$ = "
> //msgbox
> sysv1 = SYSTEM(_sysvers)
> long if sysv1 =>1050
> OPEN "UNIX",2,"say -v Alex No text found to speak. Please try again!"
> CLOSE #2
> xelse
> OPEN "UNIX",2,"say -v Fred No text found to speak. Please try again!"
> CLOSE #2
> end if
> end if
> sysvsp = SYSTEM(_sysvers)
> long if sysvsp > 1050
> OPEN "UNIX", 2, "say -v Alex "+sptxt$
> CLOSE #2
> xelse
> OPEN "UNIX", 2, "say -v Fred "+sptxt$
> CLOSE #2
> end if
> end select
> end select
> end fn
> -- To unsubscribe, send ANY message to: futurebasic- 
> unsubscribe@...