Scratch

Thats the code for it! Copy and add to your remix of Scratch!!!


importImage: filename
    | t2 t3 t4 t5 t6 t7 |
    t2 _ filename.
    t5 _ OrderedCollection new.
    t4 _ FileDirectory extensionFor: t2 asLowercase.
    t4 = 'gif'
        ifTrue: [[t5 _ (GIFReadWriter new on: (FileStream readOnlyFileNamed: t2)) nextImageSet]
                ifError: [^ self]]
        ifFalse: [[t5 addLast: (Form fromFileNamed: t2)]
                ifError: [^ self]].
    t6 _ true.
    t5 do:
        [:t9 |
        t3 _ ImageMedia new form: (ScratchFrameMorph scaledFormForPaintEditor: t9).
        t7 _ self mediaNameFromFileName: t2 default: 'costume'.
        t3 mediaName: (self unusedMediaNameFromBaseName: (UTF8 withAll: t7)).
        media addLast: t3.
        t6
            ifTrue:
                [t6 _ false.
                self lookLike: t3 mediaName]].
    self updateMediaCategory