MenuEditor.st
changeset 1912 a2f795ace8a9
parent 1908 f782762ea789
child 1913 bed277fdbd85
equal deleted inserted replaced
1911:0538568157f0 1912:a2f795ace8a9
  2559     "create a new Menu
  2559     "create a new Menu
  2560     "
  2560     "
  2561     self addAndSelectValueOf:
  2561     self addAndSelectValueOf:
  2562         [ |item|
  2562         [ |item|
  2563             item := RegularMenuItem new.
  2563             item := RegularMenuItem new.
  2564             item expand.
  2564             "/ --- do not add it expanded - because that makes it hard to add multipe menus 
       
  2565             "/ item expand.
  2565             item
  2566             item
  2566         ].
  2567         ].
  2567 !
  2568 !
  2568 
  2569 
  2569 doCreateMenuSliceItem
  2570 doCreateMenuSliceItem