The Trunk: SmallLand-ColorTheme-mt.8.mcz

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