[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