[prev in list] [next in list] [prev in thread] [next in thread] 

List:       squeak-dev
Subject:    [squeak-dev] The Trunk: EToys-mt.501.mcz
From:       commits () source ! squeak ! org
Date:       2023-08-29 11:29:01
Message-ID: 20230829112907.5058D5826C1 () mail ! squeak ! org
[Download RAW message or body]

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

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

Name: EToys-mt.501
Author: mt
Time: 29 August 2023, 1:28:57.118076 pm
UUID: 75bd2e26-c361-3141-8045-3099f0680337
Ancestors: EToys-mt.500

Removes etoys-specific font from useful sound tool.

=============== Diff against EToys-mt.500 ===============

Item was changed:
  ----- Method: SoundLibraryTool>>addSoundList (in category 'initialization') -----
  addSoundList
  	"Add the sounds list to the tool."
  	
  	listBox := PluggableMultiColumnListMorph
  				on: self
  				list: #listing
  				selected: #soundIndex
  				changeSelected: #soundIndex:.
  	listBox hResizing: #spaceFill.
  	
  	listBox hideMenuButton.
  	listBox height: 240.
+ 	listBox font: Preferences standardDefaultTextFont.
- 	listBox font: Preferences standardEToysFont.
  	self  addMorphBack: listBox!

Item was changed:
  ----- Method: SpectrumAnalyzerMorph>>addLevelSliderIn: (in category 'private') -----
  addLevelSliderIn: aPoint
  
  	| levelSlider r |
  	(levelSlider := SimpleSliderMorph new)
  		color: color;
  		sliderColor: Color gray;
  		extent: (aPoint x * 0.75) asInteger @ (aPoint y * 0.6) asInteger;
  		minimumExtent: levelSlider extent;
  		target: soundInput;
  		actionSelector: #recordLevel:;
  		orientation: #horizontal;
  		adjustToValue: soundInput recordLevel.
  	r := AlignmentMorph newRow
  		color: color;
  		layoutInset: 0;
  		wrapCentering: #center; cellPositioning: #leftCenter;
  		hResizing: #shrinkWrap;
  		vResizing: #rigid;
  		height: aPoint y + 2 px.
+ 	r addMorphBack: (StringMorph contents: '0 ' font: Preferences standardButtonFont).
- 	r addMorphBack: (StringMorph contents: '0 ' font: Preferences standardEToysButtonFont).
  	r addMorphBack: levelSlider.
+ 	r addMorphBack: (StringMorph contents: ' 10' font: Preferences standardButtonFont).
- 	r addMorphBack: (StringMorph contents: ' 10' font: Preferences standardEToysButtonFont).
  	self addMorphBack: r.!

Item was changed:
  ----- Method: SpectrumAnalyzerMorph>>buttonName:action: (in category 'private') -----
  buttonName: aString action: aSymbol
  
  	^ SimpleButtonMorph new
  		target: self;
+ 		label: aString font: Preferences standardButtonFont;
- 		label: aString font: Preferences standardEToysButtonFont;
  		actionSelector: aSymbol
  !


[prev in list] [next in list] [prev in thread] [next in thread]