Scratch

Scratch-UI-Panes >> ScratchFrameMorph >> scratch skin >> readSkinFrom:

readSkinFrom: aDirectory
    "Read the Forms for my skin from the given directory and store them in myskin dictionary."
    "When in XO mode, entries in ScratchSkinXO override the corresponding entries in ScratchSkin."
    "self readSkinFrom: (FileDirectory default directoryNamed: 'ScratchSkin')"

    | dict img i xoDict |
    dict _ Dictionary new.
    xoDict _ Dictionary new.
    aDirectory fileNames do: [:fn |
        Cursor read showWhile: [
            img _ [Form fromFileNamed: (aDirectory fullNameFor: fn)] ifError: [nil]].
        img ifNotNil: [
            i _ fn findLast: [:c | c = $.].
            i = 0 ifFalse: [fn _ fn copyFrom: 1 to: i - 1].
            (fn asLowercase endsWith: '_xo')
                ifTrue: [xoDict at: (fn copyFrom: 1 to: fn size - 3) asSymbol put: img]
                ifFalse: [dict at: fn asSymbol put: img]]].
    ScratchSkin _ dict.
    ScratchSkinXO _ xoDict.

    img _ ScratchSkin at: #scriptsPaneTexture ifAbsent: [nil].
    (img notNil and: [img depth ~= 32]) ifTrue: [
        ScratchSkin at: #scriptsPaneTexture put: (img asFormOfDepth: 32)].