l = iuplist{dropdown="YES"} 

IupSetAttribute(l, "1", "HELVETICA_NORMAL_8") 
IupSetAttribute(l, "2", "COURIER_NORMAL_8") 
IupSetAttribute(l, "3", "TIMES_NORMAL_8") 
IupSetAttribute(l, "4", "HELVETICA_ITALIC_8") 
IupSetAttribute(l, "5", "COURIER_ITALIC_8") 
IupSetAttribute(l, "6", "TIMES_ITALIC_8") 
IupSetAttribute(l, "7", "HELVETICA_BOLD_8") 
IupSetAttribute(l, "8", "COURIER_BOLD_8") 
IupSetAttribute(l, "9", "TIMES_BOLD_8") 
IupSetAttribute(l, "10", "HELVETICA_NORMAL_10") 
IupSetAttribute(l, "11", "COURIER_NORMAL_10") 
IupSetAttribute(l, "12", "TIMES_NORMAL_10") 
IupSetAttribute(l, "13", "HELVETICA_ITALIC_10") 
IupSetAttribute(l, "14", "COURIER_ITALIC_10") 
IupSetAttribute(l, "15", "TIMES_ITALIC_10") 
IupSetAttribute(l, "16", "HELVETICA_BOLD_10") 
IupSetAttribute(l, "17", "COURIER_BOLD_10") 
IupSetAttribute(l, "18", "TIMES_BOLD_10") 
IupSetAttribute(l, "19", "HELVETICA_NORMAL_12") 
IupSetAttribute(l, "20", "COURIER_NORMAL_12") 
IupSetAttribute(l, "21", "TIMES_NORMAL_12") 
IupSetAttribute(l, "22", "HELVETICA_ITALIC_12") 
IupSetAttribute(l, "23", "COURIER_ITALIC_12") 
IupSetAttribute(l, "24", "TIMES_ITALIC_12") 
IupSetAttribute(l, "25", "HELVETICA_BOLD_12") 
IupSetAttribute(l, "26", "COURIER_BOLD_12") 
IupSetAttribute(l, "27", "TIMES_BOLD_12") 
IupSetAttribute(l, "28", "HELVETICA_NORMAL_14") 
IupSetAttribute(l, "29", "COURIER_NORMAL_14") 
IupSetAttribute(l, "30", "TIMES_NORMAL_14") 
IupSetAttribute(l, "31", "HELVETICA_ITALIC_14") 
IupSetAttribute(l, "32", "COURIER_ITALIC_14") 
IupSetAttribute(l, "33", "TIMES_ITALIC_14") 
IupSetAttribute(l, "34", "HELVETICA_BOLD_14") 
IupSetAttribute(l, "35", "COURIER_BOLD_14") 
IupSetAttribute(l, "36", "TIMES_BOLD_14") 

dg = iupdialog{l} 
dg.title = "title" 

dg2 = nil 

l.action = function(self, t, i ,v) 

  if dg2 then 
    IupHide(dg2) 
  end 

  if v == 1 then 
    ml = iupmultiline{} 
    ml.size = "200x200" 
    ml.value = "1234\nmmmmm\niiiii" 

    ml.font = t 

    dg2 = iupdialog{ml} 
    dg2.title = t 
    dg2:show() 
    IupSetFocus(l) 
  end 
end 

dg:show()