tim Rowledge uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-tpr.1115.mcz
==================== Summary ====================
Name: Kernel-tpr.1115 Author: tpr Time: 28 October 2017, 11:06:07.532891 am UUID: 5ca44325-d17b-4169-a4bc-801f91348851 Ancestors: Kernel-cmm.1114
Changes as part of promoting #buildWindowWith* to Model
=============== Diff against Kernel-cmm.1114 ===============
Item was added: + ----- Method: Model>>buildWindowWith: (in category 'toolbuilder') ----- + buildWindowWith: builder + | windowSpec | + windowSpec := builder pluggableWindowSpec new. + windowSpec model: self. + windowSpec label: #windowTitle. + windowSpec children: OrderedCollection new. + ^windowSpec!
Item was added: + ----- Method: Model>>buildWindowWith:specs: (in category 'toolbuilder') ----- + buildWindowWith: builder specs: specs + | windowSpec | + windowSpec := self buildWindowWith: builder. + specs do:[:assoc| + | rect action widgetSpec | + rect := assoc key. + action := assoc value. + widgetSpec := action value. + widgetSpec ifNotNil:[ + widgetSpec frame: rect. + windowSpec children add: widgetSpec]]. + ^windowSpec!
Item was added: + ----- Method: Model>>windowTitle (in category 'toolbuilder') ----- + windowTitle + ^self class name!
Item was removed: - ----- Method: StringHolder>>buildWindowWith: (in category 'toolbuilder') ----- - buildWindowWith: builder - | windowSpec | - windowSpec := builder pluggableWindowSpec new. - windowSpec model: self. - windowSpec label: #labelString. - windowSpec children: OrderedCollection new. - ^windowSpec!
Item was removed: - ----- Method: StringHolder>>buildWindowWith:specs: (in category 'toolbuilder') ----- - buildWindowWith: builder specs: specs - | windowSpec | - windowSpec := self buildWindowWith: builder. - specs do:[:assoc| - | rect action widgetSpec | - rect := assoc key. - action := assoc value. - widgetSpec := action value. - widgetSpec ifNotNil:[ - widgetSpec frame: rect. - windowSpec children add: widgetSpec]]. - ^windowSpec!
Item was removed: - ----- Method: StringHolder>>labelString (in category 'toolbuilder') ----- - labelString - ^self class name!