inpboxe4c2k(vlabel, vcombo1, vcombo2, inp)
inpboxe4c2k.png
To get the menu, just use the following code:
vlabel<-c('matrix1','matrix2','matrix3','matrix4','combo1','combo2','option1')
vcombo1<-c('a1','b1','c1','d1')
vcombo2<-c('a2','b2','c2','d2')
inp<-c('M','N','S','T',0,0,'TRUE')
ans<-inpboxe4c2k(vlabel,vcombo1,vcombo2,inp)