[futurebasic] Re: [FB] Stopped running in Carbon

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : August 2004 : Group Archive : Group : All Groups

From: Robert Covington <artlythere@...>
Date: Fri, 27 Aug 2004 18:01:09 -0400
On Friday, August 27, 2004, at 05:47  PM, Brian Heibert wrote:

> For some reason... Which I can't figure out
> My program stopped running in Carbon
> It's only running in Classic - I want it to run in OS X - Carbon

You have Carbon checked up in the Command menu, not Carbon-Classic, or 
Classic?

or do you mean it is not compiling when in Carbon setting now?

Otherwise, if you are deleting the 'plst' or it is missing somehow, 
that would force a run in classic.

r
c

>
> _tbsplsh          = 1                 'TBASIC_Splash window
> _picFld1class1    = 1
> Dim err,container$,menuid,itemid,runcode
> Dim RUNCODE$,EVNT,ID
> RESOURCES "TBASIC.rsrc","APPLtbX~"
> dim gMyFileSpec as fsSpec
> LOCAL FN buildTbsplsh
>   WINDOW _tbsplsh,"TBASIC_Splash",( 433, 225)-(1147, 630), 1028
>   PICTURE FIELD _picFld1class1,%4000,(   0,   0)-( 739, 423), 
> 7,_cropPict
> END FN
>
> LOCAL FN updateTbsplsh
>   ' If you're not using PG, add...
>   DIM gObjT,gObjL,gObjB,gObjR
> END FN
>
> FN buildTbSplsh
> FN updateTbsplsh
>
> Local Mode
> Local Fn KillSpinningCursor
> Dim evnt as EventRecord
> End Fn =  Fn EventAvail(  0,  evnt )
> include "Tlbx SpeechSynthesis.Incl"
> clear local
> #if ndef _gestaltSpeechMgrPresent
> _gestaltSpeechMgrPresent = 0
> #endif
> local fn hasSpeechMgr' returns non-zero if Speech Mgr present
> dim @ speechAttr as long
> end fn = fn Gestalt(_"ttsc",speechAttr) = _noErr and (speechAttr and
> _gestaltSpeechMgrPresent%)
>
> do
> If System(_sysVers) => 1000 Then Fn KillSpinningCursor
> until mouse(_down)
>
> WINDOW CLOSE #_tbsplsh
> long if fn hasSpeechMgr
> err = fn SpeakString ("Welcome to T BASIC")
> while fn SpeechBusy
> wend
>
> xelse
> BEEP:WINDOW #855: PRINT ("No Speech Manager available.")
> end if
>
> _tbeditor         = 2                 'TBASIC window
> _EF1WClass2       = 8001
>
> LOCAL FN buildTbeditor
> WINDOW _tbeditor,"TBASIC",(  24,  80)-(1023, 806), _docNoGrow
> TEXT _Geneva,10,0:COLOR=_zBlack
> //LONG COLOR 60675,61087,48266
>  EDIT FIELD 1,"",(   5,   7)-( 976, 706), 4,_leftJust
> END FN
>
> LOCAL FN updateTbeditor
>   DIM gObjT,gObjL,gObjB,gObjR
> END FN
>
> FN buildTbeditor
> FN updateTbeditor
>
> container$ = EDIT$(1)
> //GET FIELD ZTXThandle&, 1
>
> local fn PrintEditField( whichEF as long )
> def PrintEditField( whichEF )
> end fn
>
> LOCAL FN doMenus
> menuid = Menu(_menuID)
> itemid = Menu(_itemID)
> //PRINT menuID
> //PRINT itemID
> Menu
> EDIT MENU 2
> Select MenuID
> case 127
> Select itemID
> case 1
>
>  FN buildTbsplsh
>  FN updateTbsplsh
> DO
> If System(_sysVers) => 1000 Then Fn KillSpinningCursor
> UNTIL MOUSE(_down)
> WINDOW CLOSE #_tbsplsh
>
> end select
> case 0
> select itemID
> case 1
> END
> end select
> case 1
> Select itemID
> case 1 ' New
> FN buildTbeditor
> FN updateTbeditor
> EDIT FIELD #1, ""
> case 2
>  'Open
>
> case 3 'Close
> WINDOW CLOSE #_tbEditor
> case 5'Save
>
> case 6 'Save As...
>
> case 8'Page Setup...
> DEF PAGE
> case 9 'Print...
> Fn PrintEditField(1)
>
> end select
> case 4
> Select itemID
> case 4
> Fn LaunchURL("http://www.jumpbyte.com/")
> case 3
> Fn LaunchURL("mailto:bheibert@...")
> end select
> case 3
> Select itemID
> case 1
> runcode$ = EDIT$(1)
> end select
> end select
> END FN
>
> LOCAL FN doDialog
> evnt = DIALOG(0)
> id = DIALOG(evnt)
> SELECT CASE (evnt)
> CASE _wndClose
> WINDOW CLOSE #_tbEditor
> END SELECT
> END FN
>
> ON DIALOG FN doDialog
> ON MENU FN doMenus
>
> Do
> HANDLEEVENTS
> UNTIL gFBQuit
>
> --
>