#---------------------------------------------------------------#
# demoscr.cf
#
# Control Script For SirlinVIEW Demo
#	Ver 1.06
#
# 5/2/90
# (c) Copyright 1989,1990 Sirlin Computer Corporation. All Rights Reserved.
#
#---------------------------------------------------------------#


*Send screenControl {
	SetCntlGreek:		0
}

*Send dwgdraw { SetReturnCancel: FALSE }
*Send drawingprompt { SetSValue: " DRAWING... " }

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

*Send normalcursor { HideCursor: }

*New Pen txtpen {
	SetPenColor: 	BLACK
	SetBkgdColor: 	YELLOW
}

*New Pen txtborderpen {
	SetPenColor:	BLACK
}

#-------------------------------------------
# explanation box (small)

*New Ftextwin runtext1 {
	SetPosnRC:	1, 1
	SetSizeRC:	7, 25
	SetEOBuf:	32	# space char
	SetPen:		txtpen
}

*New HelpWindow runtxtwin1 {
	SetGraphic: *New Canvas {
			SetPosnRC:	2, 1,
			SetSizeRC:	9, 27
			SetPen:		txtpen
			SetBorderPen:	txtborderpen
			AddGraphic:	runtext1
			AddGraphic:	*New Ftext {
				SetString: " Press Enter "
				SetPosnRC:	8, 7
				SetPen:		whitepen
				}
			}
	SetHelpTextWin:	runtext1
	SetHelpFile: 	"demo.txt"
	SetTouchOutside: FALSE
	SetClickOutside: TRUE
	SetOutsideStatus: CANCEL
}

*New HelpWindow runtxtwin1a {
	SetGraphic: *New Canvas {
			SetPosnRC:	2, 1,
			SetSizeRC:	9, 27
			SetPen:		txtpen
			SetBorderPen:	txtborderpen
			AddGraphic:	runtext1
			}
	SetHelpTextWin:	runtext1
	SetHelpFile: 	"demo.txt"
	SetTouchOutside: FALSE
	SetClickOutside: TRUE
	SetOutsideStatus: CANCEL
}

#-------------------------------------------
# explanation box (larger)

*New Ftextwin runtext2 {
	SetPosnRC:	1, 1
	SetSizeRC:	7, 35
	SetEOBuf:	32	# space char
	SetPen:		txtpen
}

*New HelpWindow runtxtwin2 {
	SetGraphic: *New Canvas {
			SetPosnRC:	2, 1,
			SetSizeRC:	9, 37
			SetPen:		txtpen
			SetBorderPen:	txtborderpen
			AddGraphic:	runtext2
			AddGraphic:	*New Ftext {
				SetString: " Press Enter "
				SetPosnRC:	8, 12
				SetPen:		whitepen
				}
			}
	SetHelpTextWin:	runtext2
	SetHelpFile: 	"demo.txt"
	SetTouchOutside: FALSE
	SetClickOutside: TRUE
	SetOutsideStatus: CANCEL
}

*New HelpWindow runtxtwin2a {
	SetGraphic: *New Canvas {
			SetPosnRC:	2, 1,
			SetSizeRC:	9, 37
			SetPen:		txtpen
			SetBorderPen:	txtborderpen
			AddGraphic:	runtext2
			}
	SetHelpTextWin:	runtext2
	SetHelpFile: 	"demo.txt"
	SetTouchOutside: FALSE
	SetClickOutside: TRUE
	SetOutsideStatus: CANCEL
}

#-------------------------------------------
# explanation box (wider, below)

*New Ftextwin runtext3 {
	SetPosnRC:	1, 1
	SetSizeRC:	6, 30
	SetEOBuf:	32	# space char
	SetPen:		txtpen
}

*New HelpWindow runtxtwin3 {
	SetGraphic: *New Canvas {
			SetPosnRC:	15, 1,
			SetSizeRC:	8, 32
			SetPen:		txtpen
			SetBorderPen:	txtborderpen
			AddGraphic:	runtext3
			AddGraphic:	*New Ftext {
				SetString: " Press Enter "
				SetPosnRC:	7, 7
				SetPen:		whitepen
				}
			}
	SetHelpTextWin:	runtext3
	SetHelpFile: 	"demo.txt"
	SetTouchOutside: FALSE
	SetClickOutside: TRUE
	SetOutsideStatus: CANCEL
}

*New HelpWindow runtxtwin3a {
	SetGraphic: *New Canvas {
			SetPosnRC:	15, 1,
			SetSizeRC:	8, 32
			SetPen:		txtpen
			SetBorderPen:	txtborderpen
			AddGraphic:	runtext3
			}
	SetHelpTextWin:	runtext3
	SetHelpFile: 	"demo.txt"
	SetTouchOutside: FALSE
	SetClickOutside: TRUE
	SetOutsideStatus: CANCEL
}

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

*Send runtxtwin2 {
	LoadHelp: 	RUN1A
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenubut { Highlite: }

*Send runtxtwin2 {
	LoadHelp: 	RUN1B
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenubut { UnHighlite: }

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

*Send mainmenu { Draw: }

*Send runtxtwin1 {
	LoadHelp: 	RUN1C
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send helpbut { Highlite: }

*Send runtxtwin1 {
	LoadHelp: 	RUN1D
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send helpbut { UnHighlite: }

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

*Send loadbut { Highlite: }

*Send runtxtwin1 {
	LoadHelp: 	RUN2A
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

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

*Send loadbut { UnHighlite: }
*Send mainmenu { Undraw: }
*Send dirbox { Reset: Draw: }

*Send runtxtwin3 {
	LoadHelp: 	RUN2B
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

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

*Send dirbox_fnamefield {
	SetString:	"INDEX   .DWG"
	Draw:
}

*Send runtxtwin3 {
	LoadHelp: 	RUN2C
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

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

*Send dirbox { Undraw: }
*Send dwgname { SetSValue: "index.dwg" }
*Send loaddwg { Doit: }
*Send dwgdraw { Doit: }

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

*Send runtxtwin2 {
	LoadHelp: 	RUN3A
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenu { Draw: }
*Send linkbut { Highlite: }

*Send runtxtwin1 {
	LoadHelp: 	RUN3B
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenu { Undraw: }
*Send link { InitLinks: }

*Send runtxtwin1 {
	LoadHelp: 	RUN3C
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send link { DoneLinks: }

*Send runtxtwin1a {
	LoadHelp: 	RUN3D
	Draw: 		
}

*Send normalcursor { ShowCursor: }

*Send promptmsg { SetString: "Point to Region to Link to Drawing..." }
*Send drawprompt { Doit: }

*Send normalcursor { SetEventXY: 1, 400, 150, 0 }
#*Send link { Edit: }

*Send link { TakeControl: DUMYCALLER }
*Send promptmsg { SetString: "" }
*Send drawprompt { Doit: }

*Send normalcursor { HideCursor: }

*Send runtxtwin1a { Undraw: }

*Send okcancelboxtext { SetString: "LOAD THIS DRAWING FILE?" }
*Send dwgname {
	SetTarget:	okcancelboxtext2
	SetOpcode:	SetString:
	Doit:
}
*Send okcancelbox { Draw: }

*Send runtxtwin3 {
	LoadHelp: 	RUN3E
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send okcancelbox { Undraw: }
*Send undrawprompt { Doit: }
*Send loaddwg { Doit: }

*Send screenControl {
	SetCntlGreek:		3
	SetCntlGreekSize:	6
}

*Send dwgdraw { Doit: }

*Send screenControl {
	SetCntlGreek:		0
}

*Send runtxtwin2 {
	LoadHelp: 	RUN3F
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

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

*Send runtxtwin2 {
	LoadHelp: 	RUN4A
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenu { Draw: }
*Send viewbut { Highlite: }

*Send runtxtwin1 {
	LoadHelp: 	RUN4B
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenu { Undraw: }
*Send viewmenu { Draw: }
#*Send zmupbut { Highlite: }

*Send runtxtwin1 {
	LoadHelp: 	RUN4C
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send viewmenu { Undraw: }

*Send runtxtwin1 {
	LoadHelp: 	RUN4D
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send viewmenu { Undraw: }
*Send autodwg {	ZoomFactor: 2.0 }
*Send dwgdraw { Doit: }

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

*Send runtxtwin2 {
	LoadHelp: 	RUN5A
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenu { Draw: }
*Send layerbut { Highlite: }

*Send runtxtwin1 {
	LoadHelp: 	RUN5B
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenu { Undraw: }
*Send layer_initaction { Doit: }
*Send layerdialog { Draw: }

*Send runtxtwin3 {
	LoadHelp: 	RUN5C
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send layer_holder { ToggleLayer: 1 }
*Send layer_list { UpdateButton: 1 }

*Send runtxtwin3 {
	LoadHelp: 	RUN5D
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send layer_holder { ToggleLayer: 3 }
*Send layer_list { UpdateButton: 3 }

*Send runtxtwin3 {
	LoadHelp: 	RUN5E
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send layerdialog { Undraw: }
*Send layer_holder { UpdateLayers: }
*Send dwgdraw { Doit: }

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

*Send runtxtwin2 {
	LoadHelp: 	RUN6A
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenu { Draw: }
*Send notebut { Highlite: }

*Send runtxtwin1 {
	LoadHelp: 	RUN6B
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenu { Undraw: }
*Send notemenu { Draw: }
*Send addnotebut { Highlite: }

*Send runtxtwin1 {
	LoadHelp: 	RUN6C
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send notemenu { Undraw: }

*Send runtxtwin2a {
	LoadHelp: 	RUN6D
	Draw: 		
}

*Send promptmsg { SetString:
" Select Location with Mouse (or use arrow keys and press Enter):"
}
*Send drawprompt { Doit: }

*Send normalcursor { SetEventXY: 1, 400, 150, 0 ShowCursor: }

*Send noteaddlocator { SetTarget: noteadder SetOpcode: SetI2Value: Doit: }
*Send noteadder { Doit: }
*Send notes { SendNoteText: }

*Send normalcursor { HideCursor: }

*Send undrawprompt { Doit: }
*Send runtxtwin2a { Undraw: }
*Send notedialog { Reset: Draw: }

*Send runtxtwin3a {
	LoadHelp: 	RUN6E
	Draw: 		
}

*Send notetext {
	SetString: "T" Draw:
	SetString: "Th" Draw:
	SetString: "Thi" Draw:
	SetString: "This" Draw:
	SetString: "This " Draw:
	SetString: "This i" Draw:
	SetString: "This is" Draw:
	SetString: "This is " Draw:
	SetString: "This is a" Draw:
	SetString: "This is a " Draw:
	SetString: "This is a n" Draw:
	SetString: "This is a no" Draw:
	SetString: "This is a not" Draw:
	SetString: "This is a note" Draw:
	SetString: "This is a note!" Draw:
}

*Send runtxtwin3a { Undraw: }

*Send runtxtwin3 {
	LoadHelp: 	RUN6F
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send notedialog { Undraw: }
*Send notes { DrawCurrent: }

*Send runtxtwin2 {
	LoadHelp: 	RUN6G
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

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

*Send mainmenu { Draw: }
*Send printbut { Highlite: }

*Send runtxtwin1 {
	LoadHelp: 	RUN7A
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenu { Undraw: }
*Send printmenu { Draw: }

*Send runtxtwin1 {
	LoadHelp: 	RUN7B
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send printmenu { Undraw: }

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

*Send runtxtwin2 {
	LoadHelp: 	RUN8A
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send inputform { Draw: }

*Send runtxtwin3 {
	LoadHelp: 	RUN8B
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send inputform { Undraw: }

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

*Send mainmenu { Draw: }
*Send quitbut { Highlite: }

*Send runtxtwin1 {
	LoadHelp: 	RUN9A
	Draw: 		
	TakeControl: DUMYCALLER 
	Reset:
	UnDraw:
}

*Send mainmenu { Undraw: }

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

# reset

*Send dirbox_fnamefield { SetString: "" }
*Send dwgname { SetSValue: "" }
*Send autodwg { LoadFile: "" }
*Send notes { Reset: }

*Send status { Undraw: }
*Send normalcursor { ShowCursor: }

*Send mainprompt { Draw: }