[futurebasic] Here is my scripting language project (everything that is in .main)

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

From: Brian Heibert <bheibert@...>
Date: Tue, 17 Aug 2004 18:24:33 -0500
'---------------------------------------------------------------
:                                      'CONSTANTS
'---------------------------------------------------------------
_tbsplsh          = 1                 'TBASIC_Splash window
_picFld1class1    = 1

RESOURCES "TBASIC.rsrc","APPLtbX~"
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 )

do
If System(_sysVers) => 1000 Then Fn KillSpinningCursor
until mouse(_down)
WINDOW CLOSE #_tbsplsh

'---------------------------------------------------------------
:                                      'CONSTANTS
'---------------------------------------------------------------
_tbeditor         = 2                 'TBASIC window
_EF1WClass2       = 8001


LOCAL FN buildTbeditor
  WINDOW _tbeditor,"TBASIC",(  24,  80)-( 1190, 804), _docNoGrow
TEXT _NewYork,12,0:COLOR=_zBlack
  EDIT FIELD 1,%4000,(   5,   7)-( 448, 708), 4,_leftJust
END FN



local fn ResizeField
edit field -1,,(3,3)-(window(_width),window(_height))
end fn

edit field -1,"",(3,3)-(window(_width)-x,window(_height)-4), _Framed
scroll button -1, 0, 0, 0, 0,, _Scrollvert
FN ResizeField


LOCAL FN updateTbeditor
' If you're not using PG, add...
  DIM gObjT,gObjL,gObjB,gObjR
END FN

FN buildTbeditor
FN updateTbeditor

container$ = EDIT$(8001)

LOCAL FN doMenus
menuid = Menu(_menuID)
itemid = Menu(_itemID)
PRINT menuID
PRINT itemID
Menu
Select MenuID
case 127
Select itemID
case 1
WINDOW #355
INPUT "";a$

end select
end select
END FN

ON MENU FN doMenus

Do
HANDLEEVENTS
UNTIL 0