Cursor theming

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
4 messages Options
Reply | Threaded
Open this post in threaded view
|

Cursor theming

Torsten Bergmann
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: 12@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: 12@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
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
Reply | Threaded
Open this post in threaded view
|

Re: Cursor theming

Alexandre Bergel
Maybe this is because it is new to me, but for the 5 minutes I have  
played with it, I like the white arrow better than the original black  
one.

Alexandre


On 6 Aug 2009, at 10:54, 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: 12@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: 12@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
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>

--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.






_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
Reply | Threaded
Open this post in threaded view
|

Re: Cursor theming

Stéphane Ducasse
In reply to this post by Torsten Bergmann
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: 12@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: 12@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
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project


_______________________________________________
Pharo-project mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
Reply | Threaded
Open this post in threaded view
|

Re: Cursor theming

Gary Chambers-4
Sorry, not had time to make a new set of cursors.
Nice that 32 bit depth is supported though, can have translucent drop
shadows etc.

Regards, Gary

----- Original Message -----
From: "Stéphane Ducasse" <[hidden email]>
To: <[hidden email]>
Sent: Friday, August 07, 2009 7:33 AM
Subject: Re: [Pharo-project] Cursor theming


> 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: 12@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: 12@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
>> [hidden email]
>> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
>
>
> _______________________________________________
> Pharo-project mailing list
> [hidden email]
> http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project 


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