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

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

Name: SmallLand-ColorTheme-mt.8
Author: mt
Time: 9 August 2016, 5:11:15.740174 pm
UUID: 0d23fc79-6fdf-bc49-8c3b-70af909b7b54
Ancestors: SmallLand-ColorTheme-mt.7

Fix long delay when changing many fonts at once like in the demo mode.

=============== Diff against SmallLand-ColorTheme-mt.7 ===============

Item was changed:
  ----- Method: Preferences class>>smallLandBigFonts (in category '*SmallLand-ColorTheme') -----
  smallLandBigFonts
  	"private - change the fonts to small-land's choices"
  
  	"
  	Preferences smallLandBigFonts.
  	"
  
+ 	Preferences setDefaultFonts: #(
- 	#(
  		(setButtonFontTo:			#BitstreamVeraSansMono	15)
  
  		(setListFontTo:				#BitstreamVeraSans		15)
  		(setMenuFontTo:			#BitstreamVeraSans		15)
  		(setSystemFontTo:			#BitstreamVeraSans		15)
  
  		(setWindowTitleFontTo:	#BitstreamVeraSans		15)
  
  		(setCodeFontTo:				#BitstreamVeraSerif		15)
  
  		(setFlapsFontTo:				#KomikaText					24)
  		(setEToysFontTo:			#KomikaText					24)
  		(setHaloLabelFontTo:		#KomikaText					24)
  		(setEToysTitleFontTo:		#KomikaText					36)
+  	).
-  	)
- 		do: [:triplet |
- 			Preferences
- 				perform: triplet first
- 				with: (StrikeFont familyName: triplet second pointSize: triplet third)
- 		].
  
  	BalloonMorph setBalloonFontTo: (StrikeFont familyName: #BitstreamVeraSans pointSize: 15).
  !

Item was changed:
  ----- Method: Preferences class>>smallLandSmallFonts (in category '*SmallLand-ColorTheme') -----
  smallLandSmallFonts
  	"private - change the fonts to small-land's choices"
  
  	"
  	Preferences smallLandFonts.
  	"
  
+ 	Preferences setDefaultFonts: #(
- 	#(
  		(setButtonFontTo:			#BitstreamVeraSansMono	12)
  
  		(setListFontTo:				#BitstreamVeraSans		12)
  		(setMenuFontTo:			#BitstreamVeraSans		12)
  		(setSystemFontTo:			#BitstreamVeraSans		12)
  
  		(setWindowTitleFontTo:	#BitstreamVeraSans		15)
  
  		(setCodeFontTo:				#BitstreamVeraSerif		12)
  
  		(setFlapsFontTo:				#KomikaText					15)
  		(setEToysFontTo:			#KomikaText					15)
  		(setHaloLabelFontTo:		#KomikaText					15)
  		(setEToysTitleFontTo:		#KomikaText					24)
+  	).
-  	)
- 		do: [:triplet |
- 			Preferences
- 				perform: triplet first
- 				with: (StrikeFont familyName: triplet second pointSize: triplet third)
- 		].
  
  	BalloonMorph setBalloonFontTo: (StrikeFont familyName: #BitstreamVeraSans pointSize: 12).
  !

Item was changed:
  ----- Method: Preferences class>>smallLandTinyFonts (in category '*SmallLand-ColorTheme') -----
  smallLandTinyFonts
  	"private - change the fonts to small-land's choices"
  
  	"
  	Preferences smallLandTinyFonts.
  	"
  
+ 	Preferences setDefaultFonts: #(
- 	#(
  		(setButtonFontTo:			#AccujenMono	9)
  
  		(setListFontTo:				#Accujen		9)
  		(setMenuFontTo:			#Accujen		9)
  		(setSystemFontTo:			#Accujen		9)
  
  		(setWindowTitleFontTo:	#Accujen		10)
  
  		(setCodeFontTo:				#Accuny		9)
  
  		(setFlapsFontTo:				#Atlanta		11)
  		(setEToysFontTo:			#Atlanta		11)
  		(setHaloLabelFontTo:		#Atlanta		11)
  		(setEToysTitleFontTo:		#Atlanta		11)
+  	).
-  	)
- 		do: [:triplet |
- 			Preferences
- 				perform: triplet first
- 				with: (StrikeFont familyName: triplet second pointSize: triplet third)
- 		].
  
  	BalloonMorph setBalloonFontTo: (StrikeFont familyName: #Accujen pointSize: 9).
  !