The Trunk: PreferenceBrowser-topa.61.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: PreferenceBrowser-topa.61.mcz

commits-2
Tobias Pape uploaded a new version of PreferenceBrowser to project The Trunk:
http://source.squeak.org/trunk/PreferenceBrowser-topa.61.mcz

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

Name: PreferenceBrowser-topa.61
Author: topa
Time: 12 July 2016, 12:23:57.27535 am
UUID: 14cc130e-5a14-404a-8be8-3e08091395a9
Ancestors: PreferenceBrowser-pre.60

Look up Font by point size if request is in points

=============== Diff against PreferenceBrowser-pre.60 ===============

Item was changed:
  ----- Method: PBBooleanPreferenceView>>enabledButton (in category 'user interface') -----
  enabledButton
  | aButton aLabel |
  aButton := UpdatingThreePhaseButtonMorph checkBox
  target: self preference;
  actionSelector: #togglePreferenceValue;
  getSelector: #preferenceValue;
  yourself.
  aLabel := (StringMorph contents: 'enabled' translated
  font: (StrikeFont familyName: TextStyle defaultFont familyName
+ pointSize: TextStyle defaultFont pointSize - 1)).
- size: TextStyle defaultFont pointSize - 1)).
  ^self horizontalPanel
  addMorphBack: aButton;
  addMorphBack: aLabel;
  yourself.!

Item was changed:
  ----- Method: PBBooleanPreferenceView>>localToProjectButton (in category 'user interface') -----
  localToProjectButton
  | aButton aLabel |
  aButton := UpdatingThreePhaseButtonMorph checkBox
  target: self preference;
  actionSelector: #toggleProjectLocalness;
  getSelector: #localToProject;
  yourself.
  aLabel := (StringMorph contents: 'local' translated
  font: (StrikeFont familyName: TextStyle defaultFont familyName
+ pointSize: TextStyle defaultFont pointSize - 1)).
- size: TextStyle defaultFont pointSize - 1)).
  ^self horizontalPanel
  addMorphBack: aButton;
  addMorphBack: aLabel;
  yourself.!