regex gurus anyone? Method category refactoring?

Hi, I'm looking at getting the window building tools to provide some information to a theme, so it can provide meaningful themeing (in the first instance window color) .

So I have a list of the senders of #labelled:, that currently are sending virginal SystemWindows with no models.

I'd like to do a regex on the scoped list, of the form

(SystemWindow labelled: 'later') model: self.  
    becomes (SystemWindow labelled: 'later' justSetModel: self) model: self.

So the theme can see the model at the time it's asked to provide the color.

ie (SystemWindow labelled: foo ) model: bar.
    becomes (SystemWindow labelled: foo justSetModel: bar) model: bar.

Any takers on a regex for that?

Also, how do you add all the methods changed to category *MyWindow-Changes in one go?

Bear in mind no package browser in the dev or one click images.

Thanks,   ...Stan