Cleaning initialize protocol

[Ducasse]

| pkgPrefix newClassPrefix env model prot|
prot := #'initialize - release'.
env := RBBrowserEnvironment new 
            forClasses: (Smalltalk allClasses 
                                    select: [ :each | each protocolNames includes: prot ]).

model := (RBNamespace onEnvironment: env) name: 'MyModel'; yourself.
RBProtocolRegexTransformation new
    model: model;
    replace: prot with: 'initialization';
  execute.

((Smalltalk allClasses reject: [:each | each isMeta ]) flatCollect: [ :each | each protocolNames ]) asSet select: [ :each | 'init*' match: each ]