[Pkg] The Trunk: ToolBuilder-Morphic-mt.131.mcz

[commits at source.squeak.org]

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

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

Name: ToolBuilder-Morphic-mt.131
Author: mt
Time: 15 April 2015, 5:03:08.876 pm
UUID: 9edadf2c-970c-f343-ab24-cf92eb411835
Ancestors: ToolBuilder-Morphic-mt.130

Avoid clipping submorphs in panels. Should not be required in general.

Why? Retractable scrollbars will else not be possible.

=============== Diff against ToolBuilder-Morphic-mt.130 ===============

Item was changed:
  ----- Method: MorphicToolBuilder>>buildPluggablePanel: (in category 'widgets required') -----
  buildPluggablePanel: aSpec
  	| widget children frame |
  	widget := self panelClass new.
  	self register: widget id: aSpec name.
  	widget model: aSpec model.
  	widget color: Color transparent.
- 	widget clipSubmorphs: true.
  	children := aSpec children.
  	children isSymbol ifTrue:[
  		widget getChildrenSelector: children.
  		widget update: children.
  		children := #().
  	].
  	self buildAll: children in: widget.
  	self buildHelpFor: widget spec: aSpec. 
  	self setFrame: aSpec frame in: widget.
  	parent ifNotNil:[self add: widget to: parent].
  	self setLayout: aSpec layout in: widget.
  	widget layoutInset: 0.
  	widget borderWidth: 0.
  	widget submorphsDo:[:sm|
  		(frame := sm layoutFrame) ifNotNil:[
  			(frame rightFraction = 0 or:[frame rightFraction = 1]) 
  				ifFalse:[frame rightOffset:1].
  			(frame bottomFraction = 0 or:[frame bottomFraction = 1]) 
  				ifFalse:[frame bottomOffset: 1]]].
  	widget color: Color transparent.
  	^widget!