VERSION 10

INCLUDE _std_mlarge
INCLUDE header_gr_child
INCLUDE gr_orientation

DIALOG edges_patternopt, title("Edge pattern")
BEGIN
	GROUPBOX gb_pat 10 10 380 130, label("Overwrite pattern palette")
	TEXT     tx_pat1	20	30	280	., label("Pattern 1:") 		
	COMBOBOX cb_pat1	80 30 100	., dropdownlist contents(linepatterns) nomemory
	TEXT     tx_pat2	20	50	280	., label("Pattern 2:") 		
	COMBOBOX cb_pat2	80 50 100	., dropdownlist contents(linepatterns) nomemory
	TEXT     tx_pat3	20	70	280	., label("Pattern 3:") 		
	COMBOBOX cb_pat3	80 70 100	., dropdownlist contents(linepatterns) nomemory
	TEXT     tx_pat4	20	90	280	., label("Pattern 4:") 		
	COMBOBOX cb_pat4	80 90 100	., dropdownlist contents(linepatterns) nomemory
	TEXT     tx_pat5	210	30	280	., label("Pattern 5:") 		
	COMBOBOX cb_pat5	270 30 100	., dropdownlist contents(linepatterns) nomemory
	TEXT     tx_pat6	210	50	280	., label("Pattern 6:") 		
	COMBOBOX cb_pat6	270 50 100	., dropdownlist contents(linepatterns) nomemory
	TEXT     tx_pat7	210	70	280	., label("Pattern 7:") 		
	COMBOBOX cb_pat7	270 70 100	., dropdownlist contents(linepatterns) nomemory
	TEXT     tx_pat8	210	90	280	., label("Pattern 8:") 		
	COMBOBOX cb_pat8	270 90 100	., dropdownlist contents(linepatterns) nomemory
END

PROGRAM command
BEGIN
	put " edgepatternpalette("
	if edges_patternopt.cb_pat1 {
		put edges_patternopt.cb_pat1 " "
	}
	if edges_patternopt.cb_pat2 {
		put edges_patternopt.cb_pat2 " "
	}
	if edges_patternopt.cb_pat3 {
		put edges_patternopt.cb_pat3 " "
	}
	if edges_patternopt.cb_pat4 {
		put edges_patternopt.cb_pat4 " "
	}
	if edges_patternopt.cb_pat5 {
		put edges_patternopt.cb_pat5 " "
	}
	if edges_patternopt.cb_pat6 {
		put edges_patternopt.cb_pat6 " "
	}
	if edges_patternopt.cb_pat7 {
		put edges_patternopt.cb_pat7 " "
	}
	if edges_patternopt.cb_pat8 {
		put edges_patternopt.cb_pat8 " "
	}
	put ")"
END
*! v1.5.0 __ 17 Sep 2015 __ 13:09:53
*! v1.5.1 __ 17 Sep 2015 __ 14:54:23