This one is little bit fixed, (request a list with 1 image, instead of 8)
and delay 1 minute after error.
[
[[
| rx str url form |
str := (HTTPSocket httpGet:
'http://www.socwall.com/browse/index.php?wpLimit=1&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
].
] on: Error do: [:ex| ].
1 minute asDelay wait.
] repeat.
] newProcess name: 'Random background changer'; priority: Processor
userBackgroundPriority; resume
2010/5/16 Mariano Martinez Peck <marianop...@gmail.com>:
> Igor, you are my hero. This is fucking great hahahahaha
>
> I will use is it for my images!!! ahhh you should cache them so that when
> you are offline you can random the ones you already downloaded ahahahahhaha
>
> excellent :)
>
> mariano
>
> On Sat, May 15, 2010 at 11:48 PM, Igor Stasenko <siguc...@gmail.com> wrote:
>>
>> Guys, this is plain boring :)
>>
>> Here is more interesting example (just evaluate it to see what happens) ;)
>>
>> [
>>
>> [[
>> | 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
>>
>>
>>
>>
>>
>> 2010/5/15 Mariano Martinez Peck <marianop...@gmail.com>:
>> >
>> >
>> > On Fri, May 14, 2010 at 8:20 PM, Stéphane Ducasse
>> > <stephane.duca...@inria.fr> wrote:
>> >>
>> >> Yes start a section :)
>> >> under tips and trick
>> >>
>> >
>> > Done:
>> >
>> > http://book.pharo-project.org/book/table-of-contents/CustomizingPharo/PuttingABackgroundPicture/
>> >
>> >
>> >
>> >>
>> >> On May 14, 2010, at 8:15 PM, Mariano Martinez Peck wrote:
>> >>
>> >> >
>> >> >
>> >> > On Fri, May 14, 2010 at 12:14 PM, Gary Chambers
>> >> > <gazzagu...@btinternet.com> wrote:
>> >> > Fine for me spanned over two monitors (World extent 3...@1014) in
>> >> > Vista.
>> >> >
>> >> > Note that there is a shorter message form for setting the background
>> >> > image:
>> >> >
>> >> > World backgroundImage: (ImageReadWriter formFromFileNamed:
>> >> > 'pharoBackground.png') layout: #scaled
>> >> >
>> >> > Alternatively, as before, having a .jpg file in your image/changes
>> >> > directory with the name matching the theme name will load upon theme
>> >> > change
>> >> > (Watery 2.jpg for instance)
>> >> >
>> >> > It would be really cool a chaper in http://book.pharo-project.org/
>> >> > about "Customizing your own image"
>> >> > and we put there all these little and nice tricks.
>> >> >
>> >> >
>> >> > Regards, Gary
>> >> >
>> >> > ----- Original Message ----- From: "Stéphane Ducasse"
>> >> > <stephane.duca...@inria.fr>
>> >> > To: <Pharo-project@lists.gforge.inria.fr>
>> >> > Cc: "A friendly place where any question about pharo is welcome"
>> >> > <pharo-us...@lists.gforge.inria.fr>
>> >> > Sent: Thursday, May 13, 2010 7:44 PM
>> >> > Subject: Re: [Pharo-project] Help testing Pharo 1.1 in big screens!
>> >> >
>> >> >
>> >> >
>> >> > On my 30 inches screen
>> >> > opening in full show some little square due to the limit of the png
>> >> > :)
>> >> >
>> >> > Thanks mariano.
>> >> >
>> >> >
>> >> > On May 13, 2010, at 8:39 PM, Mariano Martinez Peck wrote:
>> >> >
>> >> > Hi folks. I re-try (yes, yes, I re-insist hahaha) to have a
>> >> > background
>> >> > picture for the PharoDev 1.1. The last time I tried, we had a problem
>> >> > with
>> >> > the picture because in big screens instead of making it bigger, it
>> >> > put it
>> >> > several times, or it cut it. Now, thanks to Gary, it should work
>> >> > well.
>> >> >
>> >> > So, if you are a lucky guy an have a big screen, can you please take
>> >> > the
>> >> > latests PharoCore 1.1 image, for example this:
>> >> >
>> >> >
>> >> >
>> >> > https://gforge.inria.fr/frs/download.php/26995/PharoCore-1.1-11357-UNSTABLE.zip
>> >> >
>> >> >
>> >> > How to test it ?
>> >> >
>> >> > - Download this in the same directory where the .image is:
>> >> > https://gforge.inria.fr/frs/download.php/26996/pharoBackground.png
>> >> >
>> >> > Then evaluate:
>> >> >
>> >> > World backgroundMorph:
>> >> > ((UITheme builder
>> >> > newAlphaImage: (ImageReadWriter formFromFileNamed:
>> >> > 'pharoBackground.png') help: nil)
>> >> > autoSize: false;
>> >> > layout: #scaled;
>> >> > lock)
>> >> >
>> >> >
>> >> > What to test ?
>> >> >
>> >> > - You should stretch the pharo image, make it very big, and the
>> >> > background picture should stretch also together with the image.
>> >> > - If you notice a performance decrease with it (I don't think so)
>> >> > - If you like it or not.
>> >> > - If the resolution is good enough in big screens
>> >> >
>> >> >
>> >> > Thanks!
>> >> >
>> >> > Mariano
>> >> >
>> >> >
>> >> > _______________________________________________
>> >> > Pharo-project mailing list
>> >> > Pharo-project@lists.gforge.inria.fr
>> >> > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>> >> >
>> >> >
>> >> > _______________________________________________
>> >> > Pharo-project mailing list
>> >> > Pharo-project@lists.gforge.inria.fr
>> >> > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>> >> >
>> >> >
>> >> > _______________________________________________
>> >> > Pharo-project mailing list
>> >> > Pharo-project@lists.gforge.inria.fr
>> >> > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>> >> >
>> >> > _______________________________________________
>> >> > Pharo-project mailing list
>> >> > Pharo-project@lists.gforge.inria.fr
>> >> > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>> >>
>> >>
>> >> _______________________________________________
>> >> Pharo-project mailing list
>> >> Pharo-project@lists.gforge.inria.fr
>> >> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>> >
>> >
>> > _______________________________________________
>> > Pharo-project mailing list
>> > Pharo-project@lists.gforge.inria.fr
>> > http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>> >
>>
>>
>>
>> --
>> Best regards,
>> Igor Stasenko AKA sig.
>>
>> _______________________________________________
>> Pharo-project mailing list
>> Pharo-project@lists.gforge.inria.fr
>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>
> _______________________________________________
> Pharo-project mailing list
> Pharo-project@lists.gforge.inria.fr
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>
--
Best regards,
Igor Stasenko AKA sig.
_______________________________________________
Pharo-project mailing list
Pharo-project@lists.gforge.inria.fr
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
