; This source originated from PowerWindows. I've optimised and customised it
;slightly.


;-------
;------- Load Example Window
;-------

LoadWindow
	dc.w	160,70
	dc.w	320,80
	dc.b	0,1
	dc.l	GADGETUP+CLOSEWINDOW
	dc.l	WINDOWCLOSE+ACTIVATE+NOCAREREFRESH
	dc.l	StrGadg2
	dc.l	0
	dc.l	.Name
	dc.l	0
	dc.l	0
	dc.w	5,5
	dc.w	640,200
	dc.w	WBENCHSCREEN
	dc.l	LoadWinText			;address of window text
	
.Name
	dc.b	'      Load Example Options',0
	even

StrGadg2
	dc.l	NextLGadg
	dc.w	122,35
	dc.w	176,10
	dc.w	0
	dc.w	RELVERIFY+LONGINT
	dc.w	STRGADGET
	dc.l	.Border
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	.SInfo
	dc.w	0
	dc.l	DoSpecify
	
.SInfo:
	dc.l	0
	dc.l	0
	dc.w	0
	dc.w	3
	dc.w	0
	dc.w	0,0,0,0,0
	dc.l	0
	dc.l	0
	dc.l	0
	
.Border
	dc.w	-2,-2
	dc.b	3,0,RP_JAM1
	dc.b	5
	dc.l	.Vectors
	dc.l	0

.Vectors
	dc.w	0,0
	dc.w	179,0
	dc.w	179,11
	dc.w	0,11
	dc.w	0,0

.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	-96,1
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Specify ->',0
	even

NextLGadg:
	dc.l	PrevLGadg
	dc.w	26,58
	dc.w	79,11
	dc.w	0
	dc.w	RELVERIFY
	dc.w	BOOLGADGET
	dc.l	RendBorder
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoLoadNext

.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	23,2
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Next',0
	even

PrevLGadg
	dc.l	CancelGadg
	dc.w	122,58
	dc.w	79,11
	dc.w	0
	dc.w	RELVERIFY
	dc.w	BOOLGADGET
	dc.l	RendBorder
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoLoadPrev

.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	8,2
	dc.l	0
	dc.l	.Text
	dc.l	0
.Text
	dc.b	'Previous',0
	even

LoadWinText
	dc.b	1,0,RP_JAM2,0
	dc.w	48,15
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Select Which Example To Load',0
	even

;-------
;------- Run Example Window
;-------

RunWindow
	dc.w	160,70
	dc.w	320,80
	dc.b	0,1
	dc.l	GADGETUP+CLOSEWINDOW
	dc.l	WINDOWCLOSE+ACTIVATE+NOCAREREFRESH
	dc.l	StrGadg1
	dc.l	0
	dc.l	.Name
	dc.l	0
	dc.l	0
	dc.w	5,5
	dc.w	640,200
	dc.w	WBENCHSCREEN
	dc.l	RunWinText

.Name
	dc.b	'       Run Current Example',0
	even

StrGadg1
	dc.l	RunGadg
	dc.w	122,35
	dc.w	176,10
	dc.w	0
	dc.w	RELVERIFY
	dc.w	STRGADGET
	dc.l	.Border
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	.SInfo
	dc.w	0
	dc.l	DoRunEg
	
.SInfo:
	dc.l	0
	dc.l	0
	dc.w	0
	dc.w	20
	dc.w	0
	dc.w	0,0,0,0,0
	dc.l	0
	dc.l	0
	dc.l	0
	
.Border
	dc.w	-2,-2
	dc.b	3,0,RP_JAM1
	dc.b	5
	dc.l	.Vectors
	dc.l	0

.Vectors
	dc.w	0,0
	dc.w	179,0
	dc.w	179,11
	dc.w	0,11
	dc.w	0,0

.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	-112,1
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Arguments ->',0
	even

RunGadg:
	dc.l	CancelGadg
	dc.w	26,58
	dc.w	79,11
	dc.w	0
	dc.w	RELVERIFY
	dc.w	BOOLGADGET
	dc.l	RendBorder
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoRunEg

.IText	dc.b	1,0,RP_JAM2,0
	dc.w	11,2
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Run It!',0
	even

RunWinText
	dc.b	1,0,RP_JAM2,0
	dc.w	23,18
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Confirm You Want To Run The Example',0
	even

;-------
;------- Search Window
;-------

SearchWindow
	dc.w	160,70
	dc.w	320,80
	dc.b	0,1
	dc.l	GADGETUP+CLOSEWINDOW
	dc.l	WINDOWCLOSE+ACTIVATE+NOCAREREFRESH
	dc.l	StrGadg
	dc.l	0
	dc.l	.Name
	dc.l	0
	dc.l	0
	dc.w	5,5
	dc.w	640,200
	dc.w	WBENCHSCREEN
	dc.l	SearchWinText

.Name
	dc.b	'      String Search Options',0
	even

StrGadg
	dc.l	NextSGadg
	dc.w	122,35
	dc.w	176,10
	dc.w	0
	dc.w	RELVERIFY
	dc.w	STRGADGET
	dc.l	.Border
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	.SInfo
	dc.w	0
	dc.l	DoSearch
	
.SInfo:
	dc.l	0
	dc.l	0
	dc.w	0
	dc.w	50
	dc.w	0
	dc.w	0,0,0,0,0
	dc.l	0
	dc.l	0
	dc.l	0
	
.Border
	dc.w	-2,-2
	dc.b	3,0,RP_JAM1
	dc.b	5
	dc.l	.Vectors
	dc.l	0

.Vectors
	dc.w	0,0
	dc.w	179,0
	dc.w	179,11
	dc.w	0,11
	dc.w	0,0

.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	-88,1
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'String ->',0
	even

NextSGadg:
	dc.l	PrevSGadg
	dc.w	26,58
	dc.w	79,11
	dc.w	0
	dc.w	RELVERIFY
	dc.w	BOOLGADGET
	dc.l	RendBorder
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoSearch

.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	23,2
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Next',0
	even

PrevSGadg
	dc.l	CancelGadg
	dc.w	122,58
	dc.w	79,11
	dc.w	0
	dc.w	RELVERIFY
	dc.w	BOOLGADGET
	dc.l	RendBorder
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoSPrev

.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	8,2
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Previous',0
	even

SearchWinText
	dc.b	1,0,RP_JAM2,0
	dc.w	17,15
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Select Search Option Or Enter String',0
	even

QuitWindow
	dc.w	160,70
	dc.w	320,80
	dc.b	0,1
	dc.l	GADGETUP+CLOSEWINDOW
	dc.l	WINDOWCLOSE+ACTIVATE+NOCAREREFRESH
	dc.l	QuitGadg
	dc.l	0
	dc.l	.Name
	dc.l	0
	dc.l	0
	dc.w	5,5
	dc.w	640,200
	dc.w	WBENCHSCREEN
	dc.l	QuitWinText

.Name
	dc.b	'    Quit Displayer Requested',0
	even

QuitGadg:
	dc.l	CancelGadg
	dc.w	26,58
	dc.w	79,11
	dc.w	0
	dc.w	RELVERIFY
	dc.w	BOOLGADGET
	dc.l	RendBorder
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoQuit
	
.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	8,2
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'  Yes',0
	even

QuitWinText
	dc.b	1,0,RP_JAM2,0
	dc.w	79,28
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Sure You Want To Quit ?',0
	even

;-------
;------- Print Window
;-------

PrintWindow
	dc.w	160,70
	dc.w	320,80
	dc.b	0,1
	dc.l	GADGETUP+CLOSEWINDOW
	dc.l	WINDOWCLOSE+ACTIVATE+NOCAREREFRESH
	dc.l	PrintPGadg
	dc.l	0
	dc.l	.Name
	dc.l	0
	dc.l	0
	dc.w	5,5
	dc.w	640,200
	dc.w	WBENCHSCREEN
	dc.l	PrintWinText
	
.Name
	dc.b	'         Print Options',0
	even

PrintPGadg
	dc.l	PrintFGadg
	dc.w	26,58
	dc.w	79,11
	dc.w	0
	dc.w	RELVERIFY
	dc.w	BOOLGADGET
	dc.l	RendBorder
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoPrintPage

.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	23,2
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Page',0
	even

PrintFGadg
	dc.l	CancelGadg
	dc.w	122,58
	dc.w	79,11
	dc.w	0
	dc.w	RELVERIFY
	dc.w	BOOLGADGET
	dc.l	RendBorder
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoPrintFile

.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	8,2
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'  File',0
	even

PrintWinText
	dc.b	1,0,RP_JAM2,0
	dc.w	84,28
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Select Print Option',0
	even


;-------
;------- Generic Cancel Gadget
;-------

CancelGadg
	dc.l	0
	dc.w	219,58
	dc.w	79,11
	dc.w	0
	dc.w	RELVERIFY
	dc.w	BOOLGADGET
	dc.l	RendBorder
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoCancel

.IText
	dc.b	1,0,RP_JAM2,0
	dc.w	15,2
	dc.l	0
	dc.l	.Text
	dc.l	0

.Text
	dc.b	'Cancel',0
	even

;-------
;------- Generic render border
;-------

RendBorder
	dc.w	-2,-1
	dc.b	2,0,RP_JAM1
	dc.b	3
	dc.l	.Vectors
	dc.l	.Border1
	
.Vectors
	dc.w	82,0
	dc.w	0,0
	dc.w	0,12

.Border1
	dc.w	-2,-1
	dc.b	1,0,RP_JAM1
	dc.b	3
	dc.l	.Vectors1
	dc.l	0

.Vectors1
	dc.w	1,12
	dc.w	82,12
	dc.w	82,1

;------
;------	Double-Menu Requester
;------


MyReq		dc.l		0		old requester
		dc.w		79,14		leftedge,topedge
		dc.w		150,88		width,height
		dc.w		-75,-44		rel left, rel right
		dc.l		ReqGadg1	ptr to gadget list
		dc.l		ReqBorder	ptr to border
		dc.l		ReqText		ptr to text
		dc.w		POINTREL	flags
		dc.b		2		fill pen
		dc.b		0		Kludge Fill
		dc.l		0		Layer
		ds.b		32		God Knows
		dc.l		0		Image ptr
		dc.l		0		RWindow
		ds.b		36		God knows
		even				incase

ReqBorder	dc.w		0,0		XY origin relative to container TopLeft
		dc.b		1,0,RP_JAM1	front pen, back pen and drawmode
		dc.b		5		number of XY vectors
		dc.l		.BorderVectors	pointer to XY vectors
		dc.l		0		next border in list

.BorderVectors	dc.w		0,0
		dc.w		151,0
		dc.w		151,89
		dc.w		0,89
		dc.w		0,0

ReqGadg1:
	dc.l	ReqGadg2
	dc.w	32,17
	dc.w	80,8
	dc.w	0
	dc.w	RELVERIFY+ENDGADGET
	dc.w	BOOLGADGET
	dc.l	ReqBord
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoLoadMenu
.IText
	dc.b	1,0,RP_JAM1,0
	dc.w	12,0
	dc.l	0
	dc.l	.Text
	dc.l	0
.Text
	dc.b	'Load Eg',0
	even
ReqGadg2:
	dc.l	ReqGadg3
	dc.w	33,28
	dc.w	80,8
	dc.w	0
	dc.w	RELVERIFY+ENDGADGET
	dc.w	BOOLGADGET
	dc.l	ReqBord
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoRunMenu
.IText
	dc.b	1,0,RP_JAM1,0
	dc.w	11,0
	dc.l	0
	dc.l	.Text
	dc.l	0
.Text
	dc.b	'Run  Eg',0
	even
ReqGadg3
	dc.l	ReqGadg4
	dc.w	33,39
	dc.w	80,8
	dc.w	0
	dc.w	RELVERIFY+ENDGADGET
	dc.w	BOOLGADGET
	dc.l	ReqBord
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoSearchMenu
.IText
	dc.b	1,0,RP_JAM1,0
	dc.w	15,0
	dc.l	0
	dc.l	.Text
	dc.l	0
.Text
	dc.b	'Search',0
	even
ReqGadg4:
	dc.l	ReqGadg5
	dc.w	33,50
	dc.w	80,8
	dc.w	0
	dc.w	RELVERIFY+ENDGADGET
	dc.w	BOOLGADGET
	dc.l	ReqBord
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoPrintMenu
.IText
	dc.b	1,0,RP_JAM1,0
	dc.w	20,0
	dc.l	0
	dc.l	.Text
	dc.l	0
.Text
	dc.b	'Print',0
	even
ReqGadg5:
	dc.l	ReqGadg6
	dc.w	33,61
	dc.w	80,8
	dc.w	0
	dc.w	RELVERIFY+ENDGADGET
	dc.w	BOOLGADGET
	dc.l	ReqBord
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoSwitch
.IText
	dc.b	1,0,RP_JAM1,0
	dc.w	14,0
	dc.l	0
	dc.l	.Text
	dc.l	0
.Text
	dc.b	'Switch',0
	even
ReqGadg6:
	dc.l	0
	dc.w	33,72
	dc.w	80,8
	dc.w	0
	dc.w	RELVERIFY+ENDGADGET
	dc.w	BOOLGADGET
	dc.l	ReqBord
	dc.l	0
	dc.l	.IText
	dc.l	0
	dc.l	0
	dc.w	0
	dc.l	DoQuitMenu
.IText
	dc.b	1,0,RP_JAM1,0
	dc.w	22,0
	dc.l	0
	dc.l	.Text
	dc.l	0
.Text
	dc.b	'QUIT',0
	even

ReqText
	dc.b	1,3,RP_JAM2,0
	dc.w	16,4
	dc.l	0
	dc.l	.Text
	dc.l	0
.Text
	dc.b	' Select Option ',0
	even


ReqBord
	dc.w	-2,-1
	dc.b	2,0,RP_JAM1
	dc.b	5
	dc.l	.Vectors
	dc.l	0

.Vectors
	dc.w	0,0
	dc.w	83,0
	dc.w	83,9
	dc.w	0,9
	dc.w	0,0