A Workplace Shell Example: Animated Icons

Here is another example showing how to animate a folder's icon.

/* Put the workplace system folder names into the environment    */
call wpsysobj

sysicon = .wpos2sys~wpqueryicon

configicon = .wpconfig~wpqueryicon

/* Create a new folder with title 'My Folder' on the desktop     */
newfolder = .wpfolder~new('My Folder','',.wpdesktop,1)

do 20;newfolder~wpseticon(sysicon);newfolder~wpseticon(configicon);end

For additional examples, see the SOM section of the Object REXX Reference.