[Pkg] The Trunk: Kernel-tpr.1115.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Oct 28 18:06:21 UTC 2017
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!
More information about the Packages
mailing list