[UI] Installation scripts

Gary Chambers gazzaguru2 at btinternet.com
Sun Mar 2 12:14:17 UTC 2008


My current "settings" script:

	Preferences
		setDefaultFonts: #(
			(setSystemFontTo:			#'Arial'		10)
			(setListFontTo:					#'Arial'		10)
			(setFlapsFontTo:				#'Arial'		12)
			(setEToysFontTo:				#'Arial'		8)
			(setEToysTitleFontTo:			#'Arial'		8)
			(setPaintBoxButtonFontTo:	#'Arial'		10)
			(setMenuFontTo:				#'Arial'		10)
			(setWindowTitleFontTo:		#'Arial'		12)
			(setBalloonHelpFontTo:		#'Arial'		8)
			(setCodeFontTo:				#'Arial'		10)
			(setButtonFontTo:				#'Arial'		10));
			setPreference: #maintainHalos toValue: false;
			setPreference: #showBoundsInHalo toValue: true;
			setPreference: #preserveTrash toValue: false;
			setPreference: #alternativeButtonsInScrollBars toValue: true;
			setPreference: #scrollBarsWithoutMenuButton toValue: true;
			setPreference: #scrollBarsNarrow toValue: false;
			setPreference: #mouseOverForKeyboardFocus toValue: false;
			setPreference: #mouseClickForKeyboardFocus toValue: true;
			setPreference: #alwaysShowVScrollbar toValue: false;
			setPreference: #showSplitterHandles toValue: false;
			setPreference: #useUndo toValue: false;
			setPreference: #syntaxHighlightingAsYouTypeAnsiAssignment toValue: true;
			setPreference: #showWorldMainDockingBar toValue: true;
			setPreference: #swapControlAndAltKeys toValue: true;
			setPreference: #swapMouseButtons toValue: true;
			setPreference: #mvcProjectsAllowed toValue: false;
			setPreference: #syntaxHighlightingAsYouTypeAnsiAssignment toValue: true;
			setPreference: #fastDragWindowForMorphic toValue: false;
			setPreference: #windowsActiveOnFirstClick toValue: true;
			setPreference: #noWindowAnimationForClosing toValue: true;
			setPreference: #externalFocusForPluggableText toValue: true;
			setPreference: #fadedBackgroundWindows toValue: false;
			setParameter: #menuColor to: (Color r: 0.782 g: 0.828 b: 0.92);
			textHighlightColor: (Color r: 0.595 g: 0.658 b: 0.976);
			insertionPointColor: (Color r: 0.595 g: 0.658 b: 0.976);
			addPreference: #multipleTextUndo
       		categories: #('general') default: false 
        		balloonHelp: 'Editors track a multiple undo history'.
		
	
	(World findA: DockingBarMorph) ifNotNilDo: [:db |
		db borderWidth: 0].
	
	(World findA: FlapTab)
		setToPopOutOnMouseOver: true;
		solidTab;
		width: 8;
		fillStyle: (TranslucentColor r: 0.638 g: 0.702 b: 0.082 alpha: 0.667).
	(World findA: FlapTab) referent
		borderWidth: 0;
		fillStyle:  (TranslucentColor r: 0.94 g: 0.972 b: 0.73 alpha: 0.7).


Regards, Gary
		


More information about the UI mailing list