We are trying to fix the ChangeSorter because the menu are broken.
So we did
ChangeSorterApplication>>changeSetMenu1: aMenu shifted: isShifted
"Set up aMenu to hold commands for the change-set-list pane. This
could be for a single or double changeSorter"
aMenu title: 'Change Set'.
self changeSetMenu1NewGeneration: aMenu.
ChangeSorterApplication>>changeSetMenu1NewGeneration: aMenuModel
| group1 menuItem |
menuItem := MenuItemModel new
name: [ TimeStamp now asString ];
enabled: [ TimeStamp now seconds even ];
yourself.
group1 := MenuGroupModel new.
group1 autoRefresh: true.
aMenuModel
addMenuGroup: group1.
self classesListModel menu: aMenuModel.
but the menu does not pop up.
We tried to understand NewListModel but we could not understand how the new
menu supposed to work
The example
exampleWithMenu
"self exampleWithMenu"
….
model := NewListModel new.
model menu: menu.
model openWithSpec
but this is not how it works with a list.
So how do we use the new menu?
Stef
