The Trunk: ToolBuilder-MVC-mt.47.mcz

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!