#
# WimpWorks mode
# (c) Jaffa Software 2002. All rights reserved.
# http://www.jaffasoft.co.uk/

HelpPath	WimpWorks,BASIC,Assembly,Wimp,MiscSWIs,OS,SWI,

ID_FirstChar	A-Za-z_
ID_Middle	A-Za-z_0-9
ID_LastChar	$%

#----------------------------------------------------------------------

# Immediate commands :
# APPEND AUTO DELETE EDIT HELP LIST LISTO LOAD LVAR NEW OLD
# RENUMBER RUN SAVE TWIN TWINO

SyntaxOptions
	SingleQuote	No
	DoubleQuote	Yes
	QuoteQuote	Yes
	SplitString	No
	HexPrefix	&
	BinPrefix	%
End

SyntaxComment 1
	Type		OneLine
	StartWith	'
End

SyntaxComment 2
	Type		OneLine
	StartWith	REM
End
 
SyntaxWords Group1 EndAlways case
	CALL CASE CHAIN CLEAR DATA DEF DIM ELSE END ENDCASE ENDIF
	ENDPROC ENDWHILE ERROR FOR GOSUB GOTO IF INSTALL LET LIBRARY
	LOCAL NEXT ON OTHERWISE OVERLAY QUIT REPEAT RESTORE RETURN
	RUN STOP SYS THEN TRACE UNTIL USR WHEN WHILE
End

SyntaxWords Group2 EndAlways case
	ABS ACS ADVAL AND ASC ASN ATN BEAT BEATS BGET BPUT CHR$ CIRCLE
	CLG CLOSE CLS COLOR COLOUR COS COUNT DEG DIV
	ENVELOPE EOF EOR ERL ERR EVAL EXP EXT FALSE FILL GCOL GET HIMEM
	INKEY INPUT INSTR INT LEFT$ LEN LN LOG LOMEM MID$ MOD MODE
	MOUSE MOVE NOT OF OFF OPENIN OPENOUT OPENUP OR ORIGIN OSCLI PAGE
	PI PLOT POINT POS PRINT PTR RAD READ REPORT REPORT$
	RIGHT$ RND SGN SIN SOUND SPC SQR STEP STEREO STR$ STRING$ SUM
	SUMLEN SWAP TAB TAN TEMPO TIME TINT TO TOP TRUE VAL VDU VOICE
	VOICES WAIT WIDTH
End

SyntaxWords Group3 EndOfID case
	PROC FN
End

SyntaxWords Group4 EndAlways case
	ADDITEM AFTER BUSYOFF BUSYON CENTREWIN CHANGEITEM
	CLAIMMORE CLEARALL CLOSEDOWN CLOSEMSGBOX CLOSESAVE CLOSWINDOW
	DELETEICON DELETEMENU ENDDRAG EVERY EXECCMD GETCARET
	HIDEICON HOUROFF HOURON HOURPERCENT HOURSMASH ICONINFO LIMIT
	LINK LOADACK MAKESLIDER MEMCOPY MOVEICON MOVEWINDOW OPENMENU
	OPENPOPUP OPENSAVE OPENWINDOW
End

SyntaxWords Group5 EndAlways case
	REDEFINE REDRAW RELEASE REPLY RESIZEICON SETCARET SETICON
	SETICONCOLOUR SETSAVE SETSIZE SETSLIDER SETSTATE SETTITLE
	SETVALID SHADEICON SHELL SPRITE STARTDRAG UNLINK WARNING
	WINDOWPOS WINDOWSIZE WPUT
End

SyntaxWords Group6 EndAlways case
	CEILING CLAIM COMMAND COPYICON ENCODE FULLNAME GROUPSTATE
	HEAPSIZE ICONBAR ICONHIDDEN ICONSHADED ITEMSHADED ITEMTICKED
	LCASE LEAFNAME LOADTEMPLATE LTRIM MESSAGE NEWMENU OPENQUERY
	OSVAR POLL READICON READSLIDER READSTATE READTITLE ROUND RTRIM
	STDBOX SUBST SURE SYSDATE SYSTIME TASKHANDLE TASKINFO TASKNAME
	TOKEN TRANSLATE TRIM UCASE WGET ZSTRING
End

SyntaxWords Group7 EndAlways case
	CIRCLE CIRCLEFILL CLWIN DRAW ELLIPSE ELLIPSEFILL LINE RECTANGLE
	RECTANGLEFILL TEXT
End

#----------------------------------------------------------------------

Search
	_Indent2	{" "} [ (("REM") | (";"~":")) {" "} ]
	Bchar		Alpha|"_"|"`"
	_MarkWord	(Bchar {Bchar|Digit} ["%"|"$"]) | ("&" {Hex}+) | {Digit}+
	_MoveWord	(Bchar {Bchar|Digit} ["%"|"$"]) | ("&" {Hex}+) | {Digit}+
	Func		"DEF" {" "} "PROC"|"FN" @0 Bchar {Bchar|Digit}
	Func2		"DEF" {" "} CW ~Bchar
	Label		[";:"] "." CW ~(Bchar|D)
	fold_start	"DEF"
	fold_end	"ENDPROC" | ("="*>) {NL}+
End

#FoldParm1 ("REM {{{", "REM }}}",startofline,case)
FoldParm2 (fold_start, fold_end,startofline,case)

KeyList
	^Delete		InsertStr(":") DeleteRight
	^Return		NewLine(indent,_Indent2)
End

Functions
	Key	^F3
	Menu	Save & Close        ^F3
	Icon	run
	Select	SaveRun("||") KillView
	Help	Saves the file and sends it back to WimpWorks.
End

Shortcuts
	DF	DEF FN\@\n\n=0
	DP	DEF PROC\@\n\nENDPROC
	CA.	CASE \@ OF\n\i  WHEN \@\n\iENDCASE
	WH.	WHILE \@\n\i  \@\n\iENDWHILE
	RE.	REPEAT\n\i  \@\n\iUNTIL ()
	ERR.	LOCAL ERROR\nON ERROR LOCAL RESTORE ERROR:ENDPROC\n\i\@
	FO.	FOR \@\n\i  \@\n\iNEXT
	STM{	STMFD    R13!,{0-12,14}\n\n\i\@\n\n\iLDMFD    R13!,{0-12,PC}^
	LDM{	LDMFD    R13!,{0-12,PC}^
	``-	' ----------------------------------------------------------------------------\n
	``=	' ============================================================================\n
End