The Trunk: SmallLand-ColorTheme-fbs.2.mcz

Frank Shearar uploaded a new version of SmallLand-ColorTheme to project The Trunk:
http://source.squeak.org/trunk/SmallLand-ColorTheme-fbs.2.mcz

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

Name: SmallLand-ColorTheme-fbs.2
Author: fbs
Time: 2 May 2013, 8:40:47.295 am
UUID: 2ea9706f-9267-497f-9886-1b932794bfc7
Ancestors: SmallLand-ColorTheme-fbs.1

Move the SmallLand themes/preferences to the SmallLand-ColorTheme package.

=============== Diff against SmallLand-ColorTheme-fbs.1 ===============

Item was added:
+ ----- Method: Preferences class>>smallLand (in category '*SmallLand-ColorTheme') -----
+ smallLand
+ "Small-Land theme. It install the complete Small-Land theme  
+ (Preferences, Fonts, Colors, etc)"
+ "
+ Preferences smallLand.  
+ "
+ self smallLandPreferences.
+ self smallLandFonts.
+ SmallLandColorTheme current apply!

Item was added:
+ ----- Method: Preferences class>>smallLandBigFonts (in category '*SmallLand-ColorTheme') -----
+ smallLandBigFonts
+ "private - change the fonts to small-land's choices"
+
+ "
+ Preferences smallLandBigFonts.
+ "
+
+ #(
+ (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 added:
+ ----- Method: Preferences class>>smallLandFonts (in category '*SmallLand-ColorTheme') -----
+ smallLandFonts
+ "private - change the fonts to small-land's  
+ choices"
+ "
+ Preferences smallLandFonts.  
+ "
+ Preferences bigDisplay
+ ifTrue: [^ self smallLandBigFonts].
+ Preferences tinyDisplay
+ ifTrue: [^ self smallLandTinyFonts].
+ self smallLandSmallFonts!

Item was added:
+ ----- Method: Preferences class>>smallLandPreferences (in category '*SmallLand-ColorTheme') -----
+ smallLandPreferences
+ "Private - change the preferences according to small-land taste"
+
+ self setPreferencesFrom: #(
+ (haloEnclosesFullBounds true)
+ (showBoundsInHalo       true)
+ (cmdGesturesEnabled false)
+ (easySelection true)
+ (abbreviatedBrowserButtons       true)
+ (alternativeBrowseIt             true)
+ (alwaysShowVScrollbar            false)
+ (annotationPanes                 true)
+ (balloonHelpInMessageLists       true)
+ (browseWithDragNDrop             true)
+ (browseWithPrettyPrint           true)
+ (classicNewMorphMenu             true)
+ (collapseWindowsInPlace          true)
+ (diffsWithPrettyPrint            true)
+ (dragNDropWithAnimation          true)
+ (duplicateControlAndAltKeys      true)
+ (eToyFriendly                    true)
+ (extraDebuggerButtons            true)
+ (extractFlashInHighestQuality    true)
+ (fastDragWindowForMorphic        false)
+ (includeSoundControlInNavigator  true)
+ (menuKeyboardControl             true)
+ (menuAppearance3d false)
+ (gradientMenu false)
+ (mouseOverForKeyboardFocus       true)
+ (optionalButtons                 true)
+ (preserveTrash                   true)
+ (projectViewsInWindows           true)
+ (propertySheetFromHalo           true)
+ (scrollBarsNarrow                true)
+ (scrollBarsOnRight               true)
+ (selectiveHalos                  true)
+ (showDirectionForSketches        true)
+ (showDirectionHandles            true)
+ (slideDismissalsToTrash          true)
+ (translationWithBabel            true)
+ (unlimitedPaintArea              true)
+ (unlimitedPaintArea              true)
+
+ (menuColorFromWorld false)
+ (noviceMode true)
+ (uniqueNamesInHalos true)
+ (infiniteUndo true)
+ (useUndo true)
+ (soundStopWhenDone true)
+ ).
+
+ self setParameter: #balloonHelpDelayTime to: 100.
+ !

Item was added:
+ ----- Method: Preferences class>>smallLandSmallFonts (in category '*SmallLand-ColorTheme') -----
+ smallLandSmallFonts
+ "private - change the fonts to small-land's choices"
+
+ "
+ Preferences smallLandFonts.
+ "
+
+ #(
+ (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 added:
+ ----- Method: Preferences class>>smallLandTinyFonts (in category '*SmallLand-ColorTheme') -----
+ smallLandTinyFonts
+ "private - change the fonts to small-land's choices"
+
+ "
+ Preferences smallLandTinyFonts.
+ "
+
+ #(
+ (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).
+ !