argh this is late but we have to try that now :) On May 15, 2010, at 11:48 PM, Igor Stasenko wrote:
[
[[ | rx str url form | str := (HTTPSocket httpGet: 'http://www.socwall.com/browse/index.php?wpSortby=8') contents. rx := '.*(http\://.+tb_.+\.jpg).*' asRegex. url := (rx matches: str) ifTrue: [ str := (rx subexpression: 2) copyWithRegex: 'tb_' matchesReplacedWith: '' ] ifFalse: [ nil ]. form := nil. url ifNotNil: [ form := ImageReadWriter formFromStream: (HTTPSocket httpGet: url). World backgroundImage: form layout: #scaled ].
1 minute asDelay wait. ] on: Error do: [:ex| ] ] repeat.
] newProcess name: 'Random background changer'; priority: Processor userBackgroundPriority; resume