[squeak-dev] The Trunk: SmallLand-ColorTheme-fbs.2.mcz

commits at source.squeak.org commits at source.squeak.org
Thu May 2 08:42:21 UTC 2013


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



More information about the Squeak-dev mailing list