|
Stéphane Ducasse |
|
|
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 |
|
|
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 |
|
|
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 |
| Powered by Nabble | See how NAML generates this page |