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
