[squeak-dev] The Trunk: ToolBuilder-MVC-mt.47.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Aug 24 11:44:01 UTC 2016


Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-MVC-mt.47.mcz

==================== Summary ====================

Name: ToolBuilder-MVC-mt.47
Author: mt
Time: 24 August 2016, 1:43:54.539718 pm
UUID: 3631ae7d-063c-f649-acbd-4e5a455f3d7c
Ancestors: ToolBuilder-MVC-mt.46

Fixes drawing bug in panels and spacers in MVC.

=============== Diff against ToolBuilder-MVC-mt.46 ===============

Item was changed:
  ----- Method: MVCToolBuilder>>buildPluggablePanel: (in category 'widgets required') -----
  buildPluggablePanel: aSpec
  	| widget children |
  	widget := View new model: aSpec model.
+ 	widget
+ 		borderWidth: 1;
+ 		backgroundColor: nil;
+ 		foregroundColor: nil.
+ 	
- 	widget borderWidth: 1.
  	self register: widget id: aSpec name.
  	children := aSpec children.
  	children isSymbol ifTrue:[
  		"@@@@ FIXME: PluggablePanes need to remember their getChildrenSelector"
  		"widget getChildrenSelector: children.
  		widget update: children."
  		children := #().
  	].
  	self setFrame: aSpec frame in: widget.
  	self buildAll: children in: widget.
  	parent ifNotNil:[parent addSubView: widget].
  	self setLayout: aSpec layout in: widget.
  	^widget!

Item was changed:
  ----- Method: MVCToolBuilder>>buildPluggableSpacer: (in category 'widgets required') -----
  buildPluggableSpacer: aSpec
  	
  	| widget |
  	widget := View new.
  	self register: widget id: aSpec name.
  
  	widget borderWidth: 0.
+ 	widget backgroundColor: nil.
+ 	widget foregroundColor: nil.
- 	widget backgroundColor: (aSpec color ifNil: [Color transparent]).
  	widget window: (widget window topLeft extent: aSpec extent).
  	
  	self setFrame: aSpec frame in: widget.
  
  	parent ifNotNil:[parent addSubView: widget].
  	^widget!



More information about the Squeak-dev mailing list