How about�� this:

ListModel new
������ items: (1 to: 10);
������ backgroundColorBlock: [ :item :index |Color red ];
������ openWithSpec.