aboutToStyle:

classic Classic list List threaded Threaded
3 messages Options
Stéphane Ducasse Stéphane Ducasse
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate
star

aboutToStyle:

Hi guys

as part of a controlled experience I'm going over all the changes in MC done in squeak since pharo creation and

I saw that Squeak has

MCSnapshotBrowser>>aboutToStyle: aStyler
       
        | classDefinition shouldStyle |
        classSelection ifNil: [ ^false ].
        self switchIsComment ifTrue: [ ^false ].
        methodSelection
                ifNotNil: [
                        classDefinition := items
                                detect: [:ea |
                                        ea isClassDefinition and: [ ea className = classSelection ] ]
                                ifNone: [
                                        (Smalltalk at: classSelection ifAbsent: [ Object ]) asClassDefinition ].
                        shouldStyle := true ]
                ifNil: [
                        classDefinition := nil.
                        shouldStyle := categorySelection ~= self extensionsCategory ].
        aStyler
                environment: self;
                classOrMetaClass: (classDefinition ifNotNil: [
                        SHMCClassDefinition
                                classDefinition: classDefinition
                                items: items
                                meta: switch = #class ]).
        ^shouldStyle

while Pharo not.

Could you tell me if this would not be a good idea to integrate it in Pharo :).

Stef
Alain Plantec-3 Alain Plantec-3
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate
star

Re: aboutToStyle:

could be added but we need also SHMCClassDefinition to make it work.
Alain

Le 11/02/2012 09:55, Stéphane Ducasse a écrit :

> Hi guys
>
> as part of a controlled experience I'm going over all the changes in MC done in squeak since pharo creation and
>
> I saw that Squeak has
>
> MCSnapshotBrowser>>aboutToStyle: aStyler
>
> | classDefinition shouldStyle |
> classSelection ifNil: [ ^false ].
> self switchIsComment ifTrue: [ ^false ].
> methodSelection
> ifNotNil: [
> classDefinition := items
> detect: [:ea |
> ea isClassDefinition and: [ ea className = classSelection ] ]
> ifNone: [
> (Smalltalk at: classSelection ifAbsent: [ Object ]) asClassDefinition ].
> shouldStyle := true ]
> ifNil: [
> classDefinition := nil.
> shouldStyle := categorySelection ~= self extensionsCategory ].
> aStyler
> environment: self;
> classOrMetaClass: (classDefinition ifNotNil: [
> SHMCClassDefinition
> classDefinition: classDefinition
> items: items
> meta: switch = #class ]).
> ^shouldStyle
>
> while Pharo not.
>
> Could you tell me if this would not be a good idea to integrate it in Pharo :).
>
> Stef


Schwab,Wilhelm K Schwab,Wilhelm K
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate
star

Re: aboutToStyle:

Something that I have long wanted a clean way to do is to change the background color of text editors.  I've gotten close a few times, but it's a bit more of a hack than I care to make.  A suitable style option would be appreciated - I have *no* idea how/where to add it.  My guess is that it belongs in themes, but that's just a guess.




________________________________________
From: [hidden email] [[hidden email]] on behalf of Alain Plantec [[hidden email]]
Sent: Sunday, February 12, 2012 3:34 PM
To: [hidden email]
Subject: Re: [Pharo-project] aboutToStyle:

could be added but we need also SHMCClassDefinition to make it work.
Alain

Le 11/02/2012 09:55, Stéphane Ducasse a écrit :

> Hi guys
>
> as part of a controlled experience I'm going over all the changes in MC done in squeak since pharo creation and
>
> I saw that Squeak has
>
> MCSnapshotBrowser>>aboutToStyle: aStyler
>
>       | classDefinition shouldStyle |
>       classSelection ifNil: [ ^false ].
>       self switchIsComment ifTrue: [ ^false ].
>       methodSelection
>               ifNotNil: [
>                       classDefinition := items
>                               detect: [:ea |
>                                       ea isClassDefinition and: [ ea className = classSelection ] ]
>                               ifNone: [
>                                       (Smalltalk at: classSelection ifAbsent: [ Object ]) asClassDefinition ].
>                       shouldStyle := true ]
>               ifNil: [
>                       classDefinition := nil.
>                       shouldStyle := categorySelection ~= self extensionsCategory ].
>       aStyler
>               environment: self;
>               classOrMetaClass: (classDefinition ifNotNil: [
>                       SHMCClassDefinition
>                               classDefinition: classDefinition
>                               items: items
>                               meta: switch = #class ]).
>       ^shouldStyle
>
> while Pharo not.
>
> Could you tell me if this would not be a good idea to integrate it in Pharo :).
>
> Stef



Loading...