a simple method to change the wallpaper

PasteUpMorph>>setBackgroundImage: aFilename
                "Sets the graphic file provided as a wallpaper"
                self runningWorld backgroundImageData: aFilename asFileEntry binaryContents.


Then you go to the File List and copy the name of the file in the clipboard. Open a workspace:

self runningWorld setBackgroundImage: '<paste here>'

screenshot.jpg