Uhuh, that's indeed the old theme, but as said before I now prefer the current 
theme with some adaptations: it's less aggressive to the eye.

To apply, call SHTextStylerST80 initialize after changing the style table
                                                                
SHTextStylerST80 styleTable: #(
        "(symbol        color           [emphasisSymbolOrArray          
[textStyleName [pixelHeight]]])"                
                                                
        (default                                                                
( black )       )
        (invalid                                                                
( red )         )
        (excessCode                                                     ( red ) 
)
        (comment                                                                
( green muchDarker )    )
        (unfinishedComment                                      ( green 
muchDarker )    )
        (#'$'                                                                   
( magenta muchDarker)   )
        (character                                                      ( 
magenta muchDarker)   )
        (integer                                                                
( magenta muchDarker)   )
        (number                                                         ( 
magenta muchDarker)   )
        (#-                                                                     
        ( magenta muchDarker)   )
        (symbol                                                                 
( magenta muchDarker)   )       
        (stringSymbol                                                   ( 
magenta muchDarker)   )       
        (literalArray                                                   ( 
magenta muchDarker)   )
        (string                                                                 
( magenta muchDarker)   )
        (unfinishedString                                               ( 
magenta muchDarker)   )
        (assignment                                                             
( black )                                       )
        (ansiAssignment                                                 ( black 
)                                       )
        (literal                                                                
        ( black )                                       )
        (keyword                                                                
( black )                                       )
        (binary                                                                 
( black )                                       )
        (unary                                                                  
( black )                                       )
        (incompleteKeyword                                              ( red ) 
                                )
        (incompleteBinary                                               ( red ) 
                                )
        (incompleteUnary                                                ( red ) 
                                )
        (undefinedKeyword                                               ( red ) 
                                )
        (undefinedBinary                                                ( red ) 
                                )
        (undefinedUnary                                         ( red )         
                        )                                                       
                                                
        (patternKeyword                                                 ( black 
) bold                          )
        (patternBinary                                                  ( black 
) bold                          )
        (patternUnary                                                   ( black 
) bold                          )
        (#self                                                                  
( cyan muchDarker )             )
        (#super                                                                 
( cyan muchDarker )             )
        (#true                                                                  
( cyan muchDarker )             )
        (#false                                                                 
        ( cyan muchDarker )             )
        (#nil                                                                   
( cyan muchDarker )             )
        (#thisContext                                                   ( cyan 
muchDarker )             )
        (#return                                                                
( black )                                       )
        (patternArg                                                     ( blue 
muchDarker )             )       
        (methodArg                                                              
( blue muchDarker )             )               
        (blockPatternArg                                                ( blue 
muchDarker )             )               
        (blockArg                                                               
( blue muchDarker )             )       
        (argument                                                               
( blue muchDarker )             )               
        (blockArgColon                                                  black   
        ) 
        (leftParenthesis                                                        
black           ) 
        (rightParenthesis                                               black   
        ) 
        (leftParenthesis1                                               black   
        ) 
        (rightParenthesis1                                              black   
        ) 
        (leftParenthesis2                                               black   
        )  
        (rightParenthesis2                                              black   
        )  
        (leftParenthesis3                                               black   
        ) 
        (rightParenthesis3                                              black   
        ) 
        (leftParenthesis4                                               black   
        ) 
        (rightParenthesis4                                              black   
        ) 
        (leftParenthesis5                                               black   
        )  
        (rightParenthesis5                                              black   
        ) 
        (leftParenthesis6                                               black   
        ) 
        (rightParenthesis6                                              black   
        ) 
        (leftParenthesis7                                               black   
        ) 
        (rightParenthesis7                                              black   
        ) 
        (blockStart                                                             
black           ) 
        (blockEnd                                                               
black           ) 
        (blockStart1                                                            
black           ) 
        (blockEnd1                                                              
black           ) 
        (blockStart2                                                            
black           ) 
        (blockEnd2                                                              
black           ) 
        (blockStart3                                                            
black           ) 
        (blockEnd3                                                              
black           ) 
        (blockStart4                                                            
black           ) 
        (blockEnd4                                                              
black           ) 
        (blockStart5                                                            
black           ) 
        (blockEnd5                                                              
black           ) 
        (blockStart6                                                            
black           ) 
        (blockEnd6                                                              
black           ) 
        (blockStart7                                                            
black           ) 
        (blockEnd7                                                              
black           )                                                               
                                                                                
                                                                                
                                                                                
                                                                                
        (arrayStart                                                             
black           ) 
        (arrayEnd                                                               
black           ) 
        (arrayStart1                                                    black   
        ) 
        (arrayEnd1                                                              
black           ) 
        (byteArrayStart                                                         
black           ) 
        (byteArrayEnd                                                           
black           ) 
        (byteArrayStart1                                                        
black           ) 
        (byteArrayEnd1                                                          
black           ) 
        (leftBrace                                                              
black           ) 
        (rightBrace                                                             
black           ) 
        (cascadeSeparator                                               black   
        ) 
        (statementSeparator                                             black   
        ) 
        (externalCallType                                               black   
        ) 
        (externalCallTypePointerIndicator               black           ) 
        (primitiveOrExternalCallStart                   black           ) 
        (primitiveOrExternalCallEnd                             black           
)
        (methodTempBar                                                  black   
        ) 
        (blockTempBar                                                   black   
        ) 
        (blockArgsBar                                                   black   
        ) 
        (primitive                                                              
gray            )
        (externalFunctionCallingConvention              gray            )
        (module                                                                 
gray            )
        (blockTempVar                                                   ( blue 
muchDarker )             )       
        (blockPatternTempVar                                    ( blue 
muchDarker )             )       
        (instVar                                                                
( brown darker)                 )       
        (workspaceVar                                                   ( blue 
muchDarker )             )       
        (undefinedIdentifier                                            ( red ) 
                )       
        (incompleteIdentifier                                   ( red )         
        )       
        (tempVar                                                                
( blue muchDarker )             )       
        (patternTempVar                                         ( blue 
muchDarker )             )       
        (poolConstant                                                   ( black 
) bold          )       
        (classVar                                                               
( brown darker )                )       
        (globalVar                                                              
( black ) bold          ) )
                                                        



On 25 oct. 2010, at 19:36, Mariano Martinez Peck wrote:

> Thanks Ramon. So, we have to options. 
> 
> 1) We commit this change to Shout repository
> 2) We add this method in ConfigurationOfPharo and we call it while building 
> the dev image.
> 
> opinions?
> 
> cheers
> 
> mariano
> 
> On Mon, Oct 25, 2010 at 7:12 PM, Ramon Leon <[email protected]> wrote:
> On 10/23/2010 10:11 AM, Mariano Martinez Peck wrote:
> Exactly.
> 
> Can you or Simon provide a script to set back the original colors?? So
> that we can apply this for next PharoDev images?  (or at least for my
> own images)
> 
> Thanks
> 
> Mariano
> 
> I just went back in the package history and found the point where Damien 
> changed the colors and grabbed the previous version.  I have a 
> ConfigurationOfDevelopment class that loads all my local packages, so I just 
> added a method to it to reload the old colors.  Here it is...
> 
> 

--
 Simon



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

Reply via email to