/*  GuitarChord_P.rexx by MrDoc (1999) */

options results
address music
parse arg comm

MUIA_TWFmultiLED_Colour         =    0xfebd0001
MUIA_TWFmultiLED_Custom         =    0xfebd0002
MUIA_TWFmultiLED_Type           =    0xfebd0003
MUIA_TWFmultiLED_Free           =    0xfebd0004
MUIA_TWFmultiLED_TimeDelay      =    0xfebd0005


MUIV_TWFmultiLED_Colour_Off      =   0
MUIV_TWFmultiLED_Colour_On       =   1
MUIV_TWFmultiLED_Colour_Ok       =   2
MUIV_TWFmultiLED_Colour_Error    =   4
MUIV_TWFmultiLED_Colour_Panic    =   5

MUIV_TWFmultiLED_Type_Square5    =   2

MUIV_TWFmultiLED_TimeDelay_User  =  -1
MUIV_TWFmultiLED_TimeDelay_Off   =   0

Group_HorizSpacing = 0x8042c651
Group_VertSpacing  = 0x8042e1bf

window id W1 COMMAND """address command delete 'ram:chords' 'quiet >nil:';
                  address music 'quit';""" port inline title "GuitarChord"
    group
	group HORIZ frame
        label left "Procurar acorde -->"
		string id s1 COMMAND """GChordcomm.rexx CHORD"""
    endgroup
	group HORIZ frame
	group frame
	label center "\033bPosição 1"
    group HORIZ frame
		label center "Trasto-base"
        text id TG1 label "\033c\033b1"
	endgroup
	space
    group frame
		label center "E A D G B E"
		group HORIZ frame Group_HorizSpacing 2
			do i = 1 to 6
        		object class "TWFmultiLED.mcc" id L0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
			end
		endgroup
	endgroup
    group HORIZ frame Group_HorizSpacing 2
       	do i = 1 to 6
			object class "TWFmultiLED.mcc" id L1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
       	do i = 1 to 6
			object class "TWFmultiLED.mcc" id L2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
			object class "TWFmultiLED.mcc" id L3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
			object class "TWFmultiLED.mcc" id L4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
			object class "TWFmultiLED.mcc" id L5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	text id TN1
	endgroup
	group frame
	label center "\033bPosição 2"
    group HORIZ frame
		label center "Trasto-base"
        text id TG2 label "\033c\033b1"
	endgroup
	space
	group frame
		label center "E A D G B E"
		group HORIZ frame Group_HorizSpacing 2
			do i = 1 to 6
        		object class "TWFmultiLED.mcc" id M0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
			end
    	endgroup
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
        	object class "TWFmultiLED.mcc" id M1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
        	object class "TWFmultiLED.mcc" id M2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
        	object class "TWFmultiLED.mcc" id M3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
        	object class "TWFmultiLED.mcc" id M4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
        	object class "TWFmultiLED.mcc" id M5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
    text id TN2
	endgroup
    group frame
	label center "\033bPosição 3"
	group HORIZ frame
		label center "Trasto-base"
        text id TG3 label "\033c\033b1"
	endgroup
	space
	group frame
		label center "E A D G B E"
		group HORIZ frame Group_HorizSpacing 2
			do i = 1 to 6
        		object class "TWFmultiLED.mcc" id N0||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
			end
		endgroup
	endgroup
    group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
        	object class "TWFmultiLED.mcc" id N1||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
        	object class "TWFmultiLED.mcc" id N2||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
        	object class "TWFmultiLED.mcc" id N3||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
        	object class "TWFmultiLED.mcc" id N4||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
	group HORIZ frame Group_HorizSpacing 2
		do i = 1 to 6
        	object class "TWFmultiLED.mcc" id N5||i ATTRS MUIA_TWFmultiLED_Type MUIV_TWFmultiLED_Type_Square5 MUIA_TWFmultiLED_Colour MUIV_TWFmultiLED_Colour_Off
		end
	endgroup
    text id TN3
	endgroup
    endgroup
	view id V1 string "Escreve o nome do acorde que queres ver no campo à direita de 'Procurar acorde'. Serão mostradas de uma a três posições, conforme o acorde."
endgroup
endwindow