ExtendedComboBox.st
changeset 6237 12ad20ee2671
parent 6178 4227070538b7
equal deleted inserted replaced
6236:ddfc83270532 6237:12ad20ee2671
  1221     menuWrapper width:w.
  1221     menuWrapper width:w.
  1222     h := (useableExt y - menuOrigin y - 4) min:(menuHeight value).
  1222     h := (useableExt y - menuOrigin y - 4) min:(menuHeight value).
  1223     menuWrapper height:h.
  1223     menuWrapper height:h.
  1224 
  1224 
  1225     menuWrapper origin:menuOrigin extent:(w@h).
  1225     menuWrapper origin:menuOrigin extent:(w@h).
  1226     menuWrapper beUndecorated.
  1226     menuWrapper bePopUpView. "/ beUndecorated.
  1227     menuWrapper openModal.
  1227     menuWrapper openModal.
  1228     menuWrapper notNil ifTrue:[
  1228     menuWrapper notNil ifTrue:[
  1229         menuWrapper realized ifTrue:[
  1229         menuWrapper realized ifTrue:[
  1230             self closeMenu
  1230             self closeMenu
  1231         ].
  1231         ].