Not yet started: StartupLoader

StartUpLoader

Used for : build starting images for projects, from standard images, downloaded packages and Preference settings. 

Created by: Mariano Peck 

https://marianopeck.wordpress.com/2012/05/12/startuploader-running-startup-scripts-in-pharo/

Example 1

StartupPreferencesLoader default executeAtomicItems: {

  StartupAction

   name: 'Set the Author'

   code: [ Author fullName: 'PeterUhnak'. ]

   runOnce: true.

​

  StartupAction

   name: 'Set fonts'

   code: [

    "FreeTypeSystemSettings loadFt2Library: false.

    FreeTypeSystemSettings loadFt2Library: true."

​

    "StandardFonts defaultFont: (LogicalFont familyName: 'DejaVu Sans Mono' pointSize: '9' ).

    GraphicFontSettings resetAllFontToDefault."

   ]

   runOnce: true.

​

  StartupAction

   name: 'GTSpotter usage data'

   code: [

    (Smalltalk globals includesKey: #GTSpotterEventRecorderSettings) ifTrue: [

     #GTSpotterEventRecorderSettings asClass sendUsageData: true

    ]

   ]

   runOnce: true.

​

  StartupAction

   name: 'No logo'

   code: [ PolymorphSystemSettings showDesktopLogo: false. ]

   runOnce: true.

}

Example 2

StartupPreferencesLoader default executeAtomicItems: {

 StartupAction

  name: 'add dynacase configuration and load it.'

  code: [

   true & (SmalltalkImage current shortImageName includesSubstring: 'DynaCASE') ifTrue: [

    (UIManager default proceed: 'Load DynaCASE via gitfiletree?') ifTrue: [

     [

      "Gofer & Metacello loading my specific project..."

      UIManager default message: 'Loading complete'

     ] fork

    ]

   ].

  ]

  runOnce: true.

}