;motif test
subr b1
ty,'button 1'
endsubr
subr b2
ty,'button 2'
endsubr
subr b3
ty,'button 3'
endsubr
subr b4
ty,'button 4'
endsubr

;board = xmdialog_board(0, 0, 0, 'mtest2',500,200,10,10,1)
;f1 = xmform(board, 0, 0)
;xmposition,f1,0,50
f1 = xmdialog_form(0,0,0,'mtest2')
l1 = xmlabel(f1,'test buttons')
b1 = xmbutton(f1,'function 1','b1')
b2 = xmbutton(f1,'function 2','b2')
b3 = xmbutton(f1,'function 3','b3')
b4 = xmbutton(f1,'function 4','b4')

ty,'l1 =',l1
;xmattach,l1,0,   1,1,0,1
;xmattach,b1,0,   0,0,0,1
;xmattach,b1,l1,  1,0,0,0
;xmattach,b2,l1,  1,0,0,0
;xmattach,b2,0,   0,1,0,0
;xmattach,b2,b1,  0,0,0,1
;xmattach,b3,0,   0,0,1,1
;xmattach,b3,b1,  1,0,0,0
;xmattach,b4,0,   0,1,1,0
;xmattach,b4,b3,  0,0,0,1
;xmattach,b4,b2,  1,0,0,0
xmattach_relative,l1,0,100,0,20
xmattach_relative,b1,0,50,20,60
xmattach_relative,b2,50,100,20,60
xmattach_relative,b3,0,50,60,100
xmattach_relative,b4,50,100,60,100

;xtmanage,board
xtmanage, f1
xtloop, 1