PopUpMenu.st
changeset 2645 4418d4fb2740
parent 2644 6f8d25684da9
child 2655 3648be6af751
equal deleted inserted replaced
2644:6f8d25684da9 2645:4418d4fb2740
   960 
   960 
   961     "Created: / 10.1.1996 / 20:11:42 / cg"
   961     "Created: / 10.1.1996 / 20:11:42 / cg"
   962     "Modified: / 20.5.1998 / 22:39:03 / cg"
   962     "Modified: / 20.5.1998 / 22:39:03 / cg"
   963 !
   963 !
   964 
   964 
       
   965 startUpFor:originatingWidget
       
   966     ^ self startUp
       
   967 !
       
   968 
   965 startUpOrNil
   969 startUpOrNil
   966     "start the menu modal - return the selected value,
   970     "start the menu modal - return the selected value,
   967      or - if no values where specified - return the index.
   971      or - if no values where specified - return the index.
   968      If nothing was selected, return nil.
   972      If nothing was selected, return nil.
   969      Modal - i.e. stay in the menu until finished.
   973      Modal - i.e. stay in the menu until finished.
  1243     "set the model - forwarded to my menuViews"
  1247     "set the model - forwarded to my menuViews"
  1244 
  1248 
  1245     menuView model:aModel
  1249     menuView model:aModel
  1246 
  1250 
  1247     "Modified: 5.6.1996 / 17:08:30 / cg"
  1251     "Modified: 5.6.1996 / 17:08:30 / cg"
  1248 !
       
  1249 
       
  1250 originator:aWidget
       
  1251     "set the originating widget"
       
  1252 ! !
  1252 ! !
  1253 
  1253 
  1254 !PopUpMenu methodsFor:'deactivation'!
  1254 !PopUpMenu methodsFor:'deactivation'!
  1255 
  1255 
  1256 hide
  1256 hide
  1580 ! !
  1580 ! !
  1581 
  1581 
  1582 !PopUpMenu class methodsFor:'documentation'!
  1582 !PopUpMenu class methodsFor:'documentation'!
  1583 
  1583 
  1584 version
  1584 version
  1585     ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.90 2002-10-26 15:47:40 ca Exp $'
  1585     ^ '$Header: /cvs/stx/stx/libwidg/PopUpMenu.st,v 1.91 2002-10-26 15:52:18 ca Exp $'
  1586 ! !
  1586 ! !