may be you should create a theme. I saw that in Setting alain got  
already some insfrastructure of the setting.

On Aug 6, 2009, at 4:54 PM, Torsten Bergmann wrote:

> If someone wants to also theme the cursors here is a working snippet  
> (a)
> and a snippet to generate Smalltalk code from an external picture (b).
>
> Note that there are various class variables in class Cursor
> representing the different styles (here we only change #NormalCursor
> as an example)
>
> Have fun
> Torsten
>
>
> --------------------------------------------------------------------------
> |form cursor|
> form := (Form
>       extent: 1...@19
>       depth: 32
>       fromArray: #( 3875735066 922945050 0 0 0 0 0 0 0 0 0 0 3875735066  
> 3171091994 922945050 0 0 0 0 0 0 0 0 0 3875735066 4293256936  
> 3171091994 922945050 0 0 0 0 0 0 0 0 3875735066 4294967295  
> 4293256936 3171091994 922945050 0 0 0 0 0 0 0 3875735066 4294967295  
> 4294967295 4293256936 3171091994 922945050 0 0 0 0 0 0 3875735066  
> 4294967295 4294967295 4294967295 4293256936 3171091994 922945050 0 0  
> 0 0 0 3875735066 4294967295 4294967295 4294967295 4294967295  
> 4293256936 3171091994 922945050 0 0 0 0 3875735066 4294967295  
> 4294967295 4294967295 4294967295 4294835709 4293059300 3171091994  
> 922945050 0 0 0 3875735066 4294967295 4294967295 4294967295  
> 4294835709 4294704123 4294506744 4292664799 3171091994 922945050 0 0  
> 3875735066 4294967295 4294967295 4294835709 4294704123 4294506744  
> 4294309365 4294046193 4292269784 3171091994 922945050 0 3875735066  
> 4294967295 4294835709 4294704123 4294506744 4294309365 4294046193  
> 4293848814 4293585642 4291809233 3171091994 922945050 3875735066  
> 4294835709 4294704123 4294506744 4294309365 4294046193 4293848814  
> 4293585642 4293322470 4293059298 4291414475 3171091994 3875735066  
> 4294704123 4294506744 4294309365 4292467163 4293848814 4293585642  
> 3171091994 3171091994 3171091994 3171091994 3171091994 3875735066  
> 4294506744 4294309365 4292467163 4093838874 4288980395 4293322470  
> 3154314778 1292043802 0 0 0 3875735066 4294309365 4292467163  
> 4093838874 922945050 3540190746 4293059298 4291414475 3540190746 0 0  
> 0 3875735066 4292467163 4093838874 922945050 0 3020097050 4289769653  
> 4292598747 3020097050 1292043802 0 0 3171091994 4093838874 922945050  
> 0 0 922945050 3607299610 4292401368 4290822338 3506636314 0 0 0 0 0  
> 0 0 0 3020097050 4290822338 4292072403 3422750234 0 0 0 0 0 0 0 0  
> 436405786 3607299610 2650998298 822281754 0 0)
>       offset: 0...@0).
>       
> cursor := Cursor extent: 1...@19 depth: 32.
> cursor offset: 0...@0.
> cursor bits: form bits.
> Cursor classPool at: #NormalCursor put: cursor.
> cursor beCursor
> --------------------------------------------------------------------------
>
>
> --------------------------------------------------------------------------
> | image stream |
> image := ColorForm fromFileNamed: '/path/to/icon.gif'.
> stream := WriteStream with: String new.
> image storeOn: stream.
> stream contents.
> --------------------------------------------------------------------------
> -- 
> Jetzt kostenlos herunterladen: Internet Explorer 8 und Mozilla  
> Firefox 3 -
> sicherer, schneller und einfacher! http://portal.gmx.net/de/go/atbrowser
>
> _______________________________________________
> Pharo-project mailing list
> [email protected]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project

Reply via email to