Here is how VW formats this same method. This is much better in my opinion:


renderCategoriesOn: html 

    (html fieldSet)

        legend: 'Choose one or more categories';

        with: 

                [html unorderedList: 

                        [self allCategories do: 

                                [:category | 

                                html listItem: 

                                        [(html checkbox)

                                            value: (self belongsToCategory: category);

                                            onTrue: [self addCategory: category]

                                                onFalse: [self removeCategory: category];

                                            with: [html text: category asString]]]

                            separatedBy: [html break]]]