The Trunk: ToolBuilder-Morphic-topa.168.mcz

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).!