Pharo-Launcher-UI-BenComan.64 should have been done like this.
MODIFY
src/Pharo-Launcher-UI.package/PhLStatusbar.class/instance/initializeWidgets.st
src/Pharo-Launcher-UI.package/PhLStatusbar.class/instance/initializeWidgets.st
initialization
initializeWidgets
- labelModel := LabelModel new.
+ labelModel := self newLabel.

MODIFY
src/Pharo-Launcher-UI.package/PhLTitlebarModel.class/instance/initializeWidgets.st
src/Pharo-Launcher-UI.package/PhLTitlebarModel.class/instance/initializeWidgets.st
initialization
initializeWidgets
- (label := LabelModel new)
+ (label := self newLabel)
text: ''.
- (refreshButton := ButtonModel new)
+ (refreshButton := self newButton)
icon: Smalltalk ui icons refreshIcon;
action: refreshAction;
state: false.
\ No newline at end of file

MODIFY
src/Pharo-Launcher-UI.package/PhLTitledTreeModel.class/instance/initializeWidgets.st
src/Pharo-Launcher-UI.package/PhLTitledTreeModel.class/instance/initializeWidgets.st
initialization
initializeWidgets
- titlebar := PhLTitlebarModel new.
- tree := TreeModel new.
+ titlebar := self newTItleBar.
+ tree := self newTree.
\ No newline at end of file

ADD
src/Pharo-Launcher-UI.package/PhLTitledTreeModel.class/instance/newTitleBar.st
+widgets
+newTitleBar
+ self instantiate: PhLTitlebarModel.
\ No newline at end of file

MODIFY
src/Pharo-Launcher-UI.package/PharoLauncher.class/instance/initializeWidgets.st
src/Pharo-Launcher-UI.package/PharoLauncher.class/instance/initializeWidgets.st
initialization
initializeWidgets
- (imagesModel := PhLTitledTreeModel new)
+ (imagesModel := self newTitledTree)
title: 'Existing images' translated;
refreshAction: [ self updateImages ];
displayBlock: [ :image | image name ];
@@ -8,14 +8,14 @@ initializeWidgets
menu: [ :menu | self imagesMenu: menu ];
makeMultiSelect.
- (templatesModel := PhLTitledTreeModel new)
+ (templatesModel := self newTitledTree)
title: 'Templates' translated;
refreshAction: [ self refreshTemplateGroups ];
displayBlock: [ :group | group name ];
childrenBlock: [ :group | group children: self ];
menu: [ :menu | self templatesMenu: menu ].
- statusbarModel := PhLStatusbar new.
+ statusbarModel := self newStatusBar.
self updateImages.
templatesModel roots: templateRepository groups.
\ No newline at end of file

ADD
src/Pharo-Launcher-UI.package/PharoLauncher.class/instance/newStatusBar.st
+widgets
+newStatusBar
+ self instantiate: PhLStatusbar.
+

ADD
src/Pharo-Launcher-UI.package/PharoLauncher.class/instance/newTitledTree.st
+widgets
+newTitledTree
+ self instantiate: PhLTitledTreeModel.
\ No newline at end of file

Pharo-Launcher-UI-BenComan.64 should have been done like this.