Ah, cool.
Here is one I have around (was for Pharo2-3, fails in 4.0 somewhere) on my windows box.
Nice little things in there, even if it would need some rework (I am using Linux most of the time now).
"Put this in ~/Library/Preferences/pharo/ "
Smalltalk isHeadless ifFalse: [
StartupLoader default executeAtomicItems: {
StartupAction name: 'Image Setup' code: [
| color red green yellow white isIssueImage backgroundColor |
"============================================================================="
"some helper blocks for error printing"
color := [:colorCode :text|
�� �� FileStream stderr��
�� �� �� �� "set the color"
�� �� �� �� nextPut: Character escape; nextPut: $[; print: colorCode; nextPut: $m;
�� �� �� �� nextPutAll: text; crlf;
�� �� �� �� "reset the color"
�� �� �� �� nextPut: Character escape; nextPutAll: '[0m'.
].
red �� ��:= [:text| color value: 31 value: text ].
green ��:= [:text| color value: 32 value: text ].
yellow := [:text| color value: 33 value: text ].
white ��:= [:text| FileStream stderr nextPutAll: text; crlf ].
"Check whether we use an image for issue reporting"
isIssueImage := Smalltalk imageFile basename first isDigit.
"============================================================================="
Author fullName: 'PhilippeBack'.
"============================================================================="
"["
yellow value: 'Loading custom preferences'.
Smalltalk tools debugger��
alwaysOpenFullDebugger: true;
filterCommonMessageSends: true.
white value: '- set default fonts'.
"StandardFonts defaultFont: (LogicalFont familyName: 'Source Code Pro' pointSize: 11)."
GraphicFontSettings resetAllFontToDefault.
white value: '- preparing tools'.
"backgroundColor := Color r: 0.287 g: 0.228 b: 0.338."
"PolymorphSystemSettings��
desktopColor: backgroundColor;
showDesktopLogo: false."
"UITheme currentSettings fastDragging: true."
TextEditorDialogWindow autoAccept: true.
SHPreferences setStyleTableNamed: 'Tango'.
UITheme currentSettings
preferGradientFill: false;
preferRoundCorner: false;
menuColor: Color white.
isIssueImage ifFalse: [
(SystemVersion current major >= 3) ifTrue: [
"
No need anymore as they are default in 3.0
white value: '- loading Eclipse icons...'.
Gofer new
smalltalkhubUser: 'estebanlm' project: 'EclipsePack';
package: 'EclipsePack';
load.
white value: '- setting theme to Eclipse theme icons'.��
ThemeIcons current: EclipseUIThemeIcons new.
white value: '- resetting world menu'.
World resetWorldMenu.
white value: '- reset icon caches of Nautilus'.
NautilusUI resetIconCaches.
white value: '- Eclipse icons update done.'.
"
]
�� ��].
(isIssueImage and: [ Smalltalk isInteractive ])
ifTrue: [ | slice |
"open a slice inspector"
slice := (Smalltalk imageFile basename copyUpTo: $-).
(MCFileRepositoryInspector repository: (MCHttpRepository inboxRepository) workingCopy: nil)
versionSearchAccept: slice;
show.
].
white value: '- adding repositories'.
MCRepositoryGroup default��
�� ��addRepository: (MCSmalltalkhubRepository��
owner: 'philippeback'��
project: 'DripfeedIt');
�� ��addRepository: (MCSmalltalkhubRepository
owner: 'philippeback'
project: 'HighOctane');
�� ��addRepository: (MCSmalltalkhubRepository
owner: 'philippeback'
project: 'HOWebStack');
�� ��addRepository: (MCSmalltalkhubRepository
owner: 'philippeback'
project: 'HOSeaside');
�� ��addRepository: (MCSmalltalkhubRepository
owner: 'philippeback'
project: 'HOExperiments');
addRepository: (MCSmalltalkhubRepository
owner: 'philippeback'
project: 'DeepIntoPharo');
addRepository: (MCSmalltalkhubRepository
owner: 'laurentlaffont'
project: 'TilingWindowManager');
�� ��addRepository: (MCSmalltalkhubRepository
owner: 'philippeback'
project: 'HOExtras').
�� �� "Pharo Extras Team Projects"
��#(
'BitmapCharacterSet'
'CollectionArithmetic'
'Coral'
'EventRecorder'
'FFICompatibility'
'FileSystemLegacy'
'Flotr'
'Gettext'
'ImageWorker'
'JSON'
'LDAP'
'LEDMorph'
'MorphExamplesAndDemos'
'NBOpenGL'
'OPAX'
'OrderPreservingDictionary'
'Pastell'
'Phexample'
'PlotMorph'
'PostgresV2'
'Postmark'
'ProfStef'
'RFB'
'ROE'
'SCouchDBViewServer'
'SMark'
'Smacc'
'Sound'
'Soup'
'Spotlight2'
'Tanker'
'XMLParser'
'XMLSupport'
'XMLWriter'
'XPath'
'readline') do: [ :projectName |
MCRepositoryGroup default addRepository: (
MCSmalltalkhubRepository��
owner: 'PharoExtras'
project: projectName)
].
�� �� "Customizations"
�� �� (SystemVersion current major = 3) ifTrue: [
white value: '- specific customizations for 3.0'.
white value: '- adding metarepo for 3.0'.
MCHttpRepository
user: 'philippeback'
password: ''.
].
�� �� (SystemVersion current major = 2) ifTrue: [
white value: '- specific customizations for 2.0'.
].
"] fork."
white value: '- enabling TrueType fonts'.
FreeTypeSystemSettings loadFt2Library: true.
"============================================================================="
white value: 'Loading Tiling Window Manager'.
Gofer new
smalltalkhubUser: 'LaurentLaffont'project: 'TilingWindowManager';
package: 'ConfigurationOfTilingWindowManager';
load.
((Smalltalk at: #ConfigurationOfTilingWindowManager) project version: #stable) load.
(Smalltalk at: #TWMBar) perform: #showTWMBar: with: true.
"============================================================================="
white value: 'Loading slices'.
"============================================================================="
(Workspace new contents: 'Welcome Philou';
�� �� openLabel: 'Startup')
width: 600; height: 230 ";"
"setToAdhereToEdge: #bottomLeft;"
"makeUnclosable".
MCWorkingCopyBrowser new show window
width: 700; height: 230 ";"
"setToAdhereToEdge: #topLeft;"
"makeUnclosable".
]��
runOnce: true}].