UISelectionPanel.st
changeset 251 ea4577f6cc41
parent 244 b70597d2a39b
child 291 1fd3867c08cc
equal deleted inserted replaced
250:d2d028799b01 251:ea4577f6cc41
  1172 !
  1172 !
  1173 
  1173 
  1174 raiseMenu
  1174 raiseMenu
  1175     "can open menu
  1175     "can open menu
  1176     "
  1176     "
  1177     |spec menu value collection paste|
  1177     |spec menu value paste|
  1178 
  1178 
  1179     spec := self clientSpec value.
  1179     spec := self clientSpec value.
  1180 
  1180 
  1181     spec notNil ifTrue:[
  1181     spec notNil ifTrue:[
  1182         menu := self class menuSelected decodeAsLiteralArray.
  1182         menu := self class menuSelected decodeAsLiteralArray.