[squeak-dev] The Trunk: PreferenceBrowser-topa.61.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jul 11 22:24:03 UTC 2016


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



More information about the Squeak-dev mailing list