[Pkg] The Trunk: ToolBuilder-Morphic-topa.168.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jul 11 22:32:42 UTC 2016


Tobias Pape uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-topa.168.mcz

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

Name: ToolBuilder-Morphic-topa.168
Author: topa
Time: 12 July 2016, 12:32:32.896626 am
UUID: 7db062cb-f3e1-4434-b620-d63e88b34c81
Ancestors: ToolBuilder-Morphic-mt.167

Look up Font by point size if request is in points

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

Item was changed:
  ----- Method: PluggableCheckBoxMorph>>installButton (in category 'installing') -----
  installButton
  
  	| aButton aLabel |
  	aButton := UpdatingThreePhaseButtonMorph checkBox
  		target: self model;
  		actionSelector: self actionSelector;
  		getSelector: self valueSelector;
  		yourself.
  	aLabel := (StringMorph contents: self label translated
  				font: (StrikeFont familyName: TextStyle defaultFont familyName
+ 							pointSize: TextStyle defaultFont pointSize - 1)).
- 							size: TextStyle defaultFont pointSize - 1)).
  	self addMorph: (self horizontalPanel
  		addMorphBack: aButton;
  		addMorphBack: aLabel;
  		yourself).!

Item was changed:
  ----- Method: PluggableDropDownListMorph>>installDropDownList (in category 'drawing') -----
  installDropDownList
  
  	| aButton aLabel |
  	aButton := PluggableButtonMorph on: self model getState: nil action: nil.
  	aLabel := (StringMorph contents: self model currentRemoteVatId translated
  				font: (StrikeFont familyName: TextStyle defaultFont familyName
+ 							pointSize: TextStyle defaultFont pointSize - 1)).
- 							size: TextStyle defaultFont pointSize - 1)).
  	self addMorph: (self horizontalPanel
  		addMorphBack: aLabel;
  		addMorphBack: aButton;
  		yourself).!



More information about the Packages mailing list