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