Sorry... you were right. Thing is...I always load a bunch of features to a clean image so I didn't remember where exactly it came from.
BTW, just for sharing purposes, below is the script I run into a fresh image to become it my "dev" image (you may want to copy parts and customize it for your own?)
| fontStruct fontName mapsToLoad enhancedListColor |
"Setting for rendering fonts nicer"
StsCodeFontManager default directWriteEnabled: true.
"Set custom code font"
"To get this string from the CURRENT configuration, just send evaluat:
StsCodeFontManager default codeBrowserFontFor: Transcript "
fontName := '-microsoft-droid sans mono-medium-r-normal--13-100-96-96-m-0-iso8859-1'.
fontStruct := Transcript shell display loadQueryFont: fontName.
fontStruct isNil
ifTrue: [CwMessagePrompter errorMessage: (NlsCatEST indexedMsg: 5)]
ifFalse: [
StsCodeFontManager default
updateCodeFontList: (CwFontList fontStruct: fontStruct)].
"Set custom browse font"
"To get this string from the CURRENT configuration, just evaluate:
EtWindow fontName"
"fontName := '-microsoft-droid sans-medium-r-normal-sans serif-13-100-96-96-p-0-iso8859-1'."
"fontName := '-microsoft-amaranth-medium-r-normal--13-100-96-96-p-0-iso8859-1'.
(fontStruct := Transcript shell display loadQueryFont: fontName) isNil
ifTrue: [CwMessagePrompter errorMessage: (NlsCatEST indexedMsg: 5)]
ifFalse: [EtWindow updateFontList: (CwFontList fontStruct: fontStruct)].
"
"Setting for sorting apps needing versioning first on app manager"
StsApplicationManager sort: #applicationsNeedingVersioningFirst.
"Setting to autofocus 'All' tab in class browser"
EtClassBrowser methodFiltering: #ShowPublicPrivateAll.
"Set color syntax max size to something much bigger than default"
StsPowerTools
parseTreeMaxMethodTextSize: SmallInteger largest;
updateStyling.
"Set custom color for lists"
enhancedListColor := Color fromString: '7D8C93'.
StsPowerTools
enhancedListColor: enhancedListColor;
updateAllBrowsersWithListColor: enhancedListColor.
"Select all categories in class browser"
EtClassBrowser selectAllCategoriesByDefault: true.
"Set desired theme"
StsPowerTools currentEditorTheme: 'Pharo 7.x Dark Theme'.
"Show timestamp as part of editions"
EmTimeStamp showVersionTimeStamps: true.
"Show horizontal scroll bars in upper panels of class browser"
EtClassBrowser showListHorizontalScrollBars: true.
"Bigger default size for some browsers"
StsApplicationManager defaultWindowSize: 1024 @ 800.
StsTabbedClassesBrowserWin defaultWindowSize: 1024 @ 800.
StsConfigurationMapsBrowser defaultWindowSize: 1024 @ 800.
MedScriptManager defaultWindowSize: 1024 @ 800.
StsTabbedChangesBrowserWin defaultWindowSize: 1024 @ 800.
StsTabbedClassEditionBrowserWin defaultWindowSize: 1024 @ 800.
StsApplicationEditionsBrowser defaultWindowSize: 1024 @ 800.
StsApplicationsChangesBrowser defaultWindowSize: 1024 @ 800.
"SUnitBrowser defaultWindowSize: 1024 @ 800."
StsTranscript defaultWindowSize: 800 @ 320.
"Show line number in debugger and class browser too"
StsPowerTools showBrowserLineNumbers: true.
StsPowerTools showDebuggerLineNumbers: true.
"Show some more icons on the methods selectors on class browser"
StsPowerTools settings removeKey: #IconAbstract ifAbsent: [].
StsPowerTools settings removeKey: #IconRunnable ifAbsent: [].
StsPowerTools settings removeKey: #IconSubclassOverride ifAbsent: [].
StsPowerTools settings removeKey: #IconSubclassesRedefine ifAbsent: [].
StsPowerTools settings removeKey: #IconWarning ifAbsent: [].
StsPowerTools settings at: #ShowScratchApplicationHierarchies put: true.
StsPowerTools settings at: #ColorChangedCategories put: Color blue.
StsPowerTools settings at: #DragDrop put: true.
StsPowerTools settings at: #DragDropButton put: CwConstants::Button3.
StsPowerTools showGuiTypeAttributes: false.
StsPowerTools updateAllBrowsers.
"Customize CodeAssist"
StsCodeAssist configuration
bracketHighlightInsideComments: true;
bracketHighlightInsideStrings: true;
smartHighlightStyleSelectedWord: true.
StsCodeAssistApp storeCodeAssistConfiguration.
"So that when we import from a shipped manager we have the development versions
and not the builder renamed tags"
"StsPowerTools importNewNamesAlwaysAccept."
"Load Development tools"
mapsToLoad := #(
'z.ST: ENVY/QA'
'z.ST: Monticello Importer'
'z.ST: Performance Workbench'
'z.ST: Refactoring Browser'
'z.ST: Server Workbench, Base'
'z.ST: Server, SST'
'z.ST: SUnit'
'Mastering ENVY/Developer Script Manager'
"'Instantiations ABT Development Preload'"
).
mapsToLoad do: [:each | (EmConfigurationMap editionsFor: each)
first loadWithRequiredMaps
].
System startUpClass debuggerClass: StsDebugger.
"Finally, reset transcript"
Transcript textWidget setString: Transcript defaultText
Locked
Screen Shot 2019-03-21 at 4.33.45 PM.png (274K)