Scratch

startup
    | t1 t2 t3 t4 |
    HostSystemMenus startUp.
    HostSystemMenus menuBarControler reviseHostMenus.
    ScriptableScratchMorph randomInit.
    ScratchTranslator detectRenderPlugin.
    ScratchTranslator importLanguagesList.
    self processSettingsFile.
    self readDefaultNotes.
    self updateProjectName.
    shuffledCostumeNames _ nil.
    author _ ''.
    loginName _ ''.
    loginPassword _ ''.
    fileIOPreference _ nil.
    customBlockPreference _ false.
    justSaved _ true.
    t4 _ false.
    "NewsDialog new getNews; getUserResponse."
    t1 _ InputSensor startupFileNames asOrderedCollection.
    2 to: 10 do: 
        [:t5 | 
        t3 _ Smalltalk getSystemAttribute: t5.
        (t3 notNil and: [t3 size > 0])
            ifTrue: [t1 addLast: (ScratchPlugin primShortToLongPath: t3)]].
    t1 do: 
        [:t6 | 
        t6 asLowercase = 'presentation' ifTrue: [t4 _ true].
        t6 asLowercase = 'fullscreen' ifTrue: [TakeOverScreen _ true]].
    TakeOverScreen
        ifTrue: 
            [Smalltalk fullScreenMode: true.
            World restoreDisplay].
    self enterQuarterModeIfSmallScreen.
    t2 _ t1
                detect: [:t7 | (t7 asLowercase endsWith: '.sb')
                        or: [t7 asLowercase endsWith: '.pt']]
                ifNone: [].
    t2
        ifNotNil: 
            [t4 ifTrue: [Display fillColor: Color black].
            self openScratchProjectNamed: t2.
            t4 ifTrue: [self enterPresentationMode; shoutGo].
            ^ self].
    viewerPane currentCategory: 'motion'.
    self setDefaultSprite.
    self newScratchProject.
    t2 _ t1 detect: [:t7 | t7 asLowercase endsWith: '.sprite']
                ifNone: [^ self].
    workPane submorphs do: [:t8 | (t8 isKindOf: ScratchSpriteMorph)
            ifTrue: [t8 deleteSprite]].
    self importSpriteOrProject: t2.

  t1 _ InputSensor startupFileNames asOrderedCollection.