Define Device (
	Manufacturer "Test"
	Device "Test"
	CharSet (
		az2AZ
		Disable (
			' !   #   %   &   (   )   :   ;   ?   @   [   ]   ^   ` {|}~
			$21 $23 $25 $26 $28 $29 $3A $3B $3F $40 $5B $5D $5E $60 $7B-$7E
		)
		Remap (
			$3C to $28 ' < (
			$3E to $29 ' > )
		)
	)
	NoteRange 20 50
)

Define Usage (
	"Important usage information"
	"can be defined as well!"
	"------------------------------------"
	"It's a great way to remind yourself"
	"about things you need to remember"
	"about each module!"
)

Define Font "Topaz2" (
	Name "Topaz2.font"
	Size 8
)

Define Font "Garnet" (
	Name "Garnet.font"
	Size 16
	Style ( BOLD )
)

Define Font "Numbers" (
	Name "Topaz2N.font"
	Size 8
)

Define Font "Helvetica" (
	Name "Helvetica.font"
	Size 9
)

Define Font "Topaz2p" (
	Name "Topaz2p.font"
	Size 8
)

'Set Font "Topaz2"

Define Window "Main" (
	Position 10 19
	Size 340 200
	Border
)

Define Window "Second" (
	Position 350 16
	Size 250 250
)

Define Window "Third" (
	Position 10 240
	Size 250 150
	Border
)

Define Window "Draggable" (
	Position 330 290
	Size 300 100
	DragBar
)

Define Link "SliderTextTest" (
	Type Texts (
		Font "Helvetica"
		Position 0 19
		Size 100 8
		Data (
			"1"
			"Neeto!"
			"Special Gadget"
			"Sting"
			"5"
			"Perfect for me"
		)
	)
)

Define Link "EQ_Gain" (
	Type Numbers (
		Font "Helvetica"
		Position 0 -12
		Size 100 8
		MinValue -12
		Skip .1
		LevelText "dB"
	)
)

Define Link "Note" (
	Type Note (
		Font "Numbers"
		Position 0 -12
		Size 100 8
	)
)

Define Link "Auto-E" (
	Type ARexx (
		File "modules/Test/Test.rexx"
	)
)

'Define Link "Auto-Int"
'	Type ARexx (
'		String "SetGad 1 50"
'	)
')


Window "Main" (
	Border (
		Position 10 10
		Size 320 180
		Frame 3D-Recess
	)

	Border (
		Position 233 20
		Size 38 26
		Fill 1
		Frame None
	)
	Border (
		Position 271 20
		Size 38 26
		Fill 3
		Frame None
	)

	Text "ABCDEFGHIJK" (
		Position 240 35
		Font "Numbers"
		Color 2
	)

	Gadget "1" (
		Position 20 60
		Font "Numbers"
		Type Slider (
			Range 0 127
			Default 5
			Size 100 12
			Direction HORIZONTAL
			LevelPlace RIGHT
		)
	)

	Gadget "2" (
		Position 20 72
		Font "Numbers"
		Type Slider (
			Range 0 127
			Default 110
			Size 100 12
			Direction HORIZONTAL
			LevelPlace RIGHT
		)
	)

	Gadget "3" (
		Position 20 84
		Font "Numbers"
		Type Slider (
			Range 0 127
			Default 42
			Size 100 12
			Direction HORIZONTAL
			LevelPlace RIGHT
		)
	)

	Gadget "4" (
		Position 20 96
		Font "Numbers"
		Type Slider (
			Range 0 127
			Default 10
			Size 100 12
			Direction HORIZONTAL
			LevelPlace RIGHT
		)
	)

	Gadget "5" (
		Position 20 108
		Font "Numbers"
		Type Slider (
			Range 0 127
			Default 127
			Size 100 12
			Direction HORIZONTAL
			LevelPlace RIGHT
		)
	)

	Gadget "ARexxTest1" (
		Position 20 45
		Type Button (
			Label "Automate"
			Size 100 12
			Link "Auto-E"
		)
	)

	Gadget "TextTest" (
		Position 180 80
		Type Slider (
			Range 0 4
			Size 100 15
			Direction HORIZONTAL
			Default 2
			Link "SliderTextTest"
		)
	)

	Gadget "A" (
		Position 180 140
		Font "Numbers"
		Type Slider (
			Range 0 200
			Default 51
			Size 100 10
			Direction HORIZONTAL
			Link "EQ_Gain"
		)
	)
)

Window "Second" (
	Border (
		Position 20 10
		Size 150 150
		Fill 3
	)

	Gadget "Borna" (
		Position 200 60
		Font "Numbers"
		Type Slider (
			Range 10 99
			Size 15 100
			Direction VERTICAL
			LevelPlace BELOW
			LevelText "goombas"
		)
	)

	Gadget "Cycla" (
		Position 80 60
		Type Cycle (
			Width 3
			Data (
				"OFF"
				"ON"
				"YES"
			)
		)
	)

	Gadget "Cyclab" (
		Position 80 80
		Type Cycle (
			Width 3
			Data (
				"One"
				"Two"
				"Three"
			)
			DataValues (
				3 7 $12
			)
		)
	)

	Gadget "Name" (
		Position 40 115
		Font "Topaz2"
		Type String (
			MaxChars 10
		)
	)

	Text DEVICE (
		Position 40 35
		Font "Garnet"
	)
)

Window "Third" (
	Gadget "ListTest" (
		Position 10 10
		Type List (
			Size 150 100
			Data (
				"Item 0 - FIRST"
				"Item 1"
				"Item 2"
				"Item 3"
				"Item 4"
				"Item 5"
				"Item 6"
				"Item 7"
				"Item 8"
				"Item 9"
				"Item 10"
				"Item 11"
				"Item 12"
				"Item 13"
				"Item 14"
				"Item 15"
				"Item 16"
				"Item 17 - LAST"
			)
			Default 15
		)
	)
)

Window "Draggable" (
	Text "Drag me!" (
		Position 20 35
		Font "Garnet"
		Color 2
		Shadow
	)

	Gadget "6" (
		Position 20 80
		Font "Topaz2"
		Type Slider (
			Range 0 200
			Size 160 12
			Direction HORIZONTAL
			LevelPlace RIGHT
			LevelText "ms"
			Default 40
		)
	)

	Gadget "MX" (
		Position 180 16
		Font "Topaz2p"
		Type MX (
			Data (
				"Mutually"
				"Exclusive"
				"Gadget"
				"Type"
			)
			Spacing 2
			LabelPlace RIGHT
		)
	)

	Gadget "Note" (
		Position 79 62
'		Font "Topaz2p"
		Type Slider (
			Range 0 127
			Size 100 12
			Direction HORIZONTAL
			LevelPlace RIGHT
			Default 40
			Link "Note"
		)
	)
)
