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

Message: < previous - next > : Reply : Subscribe : Cleanse
Home : July 2009 : Group Archive : Group : All Groups
From: Brian Heibert <heibert@...>
Date: Tue, 28 Jul 2009 21:24:16 -0400
Ok I will look at _cursOverNothing
Maybe temporarily take it out

What could be wrong with that?

Brian


On 7/28/09 9:17 PM, "Robert Covington" <artlythere@...> wrote:

> 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@...
> 
> --
> To unsubscribe, send ANY message to: futurebasic-unsubscribe@...
>
[futurebasic] Re: [FB] Missing Terminating " character but where?

FreeGroups.net: Group Email without advertisements. Is your group here?
