Thanks, Luc

Cheers,
Doru


On 7 Feb 2011, at 17:01, Luc Fabresse wrote:

> 
> I don't know if this is the right way but I use that (Pharo 1.0 colors):
> 
> SHTextStylerST80 styleTable: 
>        #(
>        "(symbol        color           [emphasisSymbolOrArray          
> [textStyleName [pixelHeight]]])"                
>        (default                                                               
>  black           )
>        (invalid                                                               
>  red                     )
>        (excessCode                                                            
>  red                     )
>        (comment                                                               
>  (green muchDarker)              italic)
>        (unfinishedComment                                      (red 
> muchDarker)        italic)
>        (#'$'                                                                  
>  (red muchDarker)        )
>        (character                                                             
>  (red muchDarker)        )
>        (integer                                                               
>          (red muchDarker)        )
>        (number                                                         (red 
> muchDarker)        )       
>        (#-                                                                    
>          (red muchDarker)        )
>        (symbol                                                                
>  (blue muchDarker)                       bold)   
>        (stringSymbol                                                   (blue 
> muchDarker)                       bold)   
>        (literalArray                                                   (blue 
> muchDarker)                       bold)
>        (string                                                                
>  (magenta muchDarker)    normal)
>        (unfinishedString                                               red    
>                  normal          )
>        (assignment                                                            
>  nil                     bold                    )
>        (ansiAssignment                                                 nil    
>                  bold)
>        (literal                                                               
>          nil                     italic)
>        (keyword                                                               
>  (blue muchDarker)                       )
>        (binary                                                                
>  (blue muchDarker)                       )       
>        (unary                                                                 
>  (blue muchDarker)                       )
>        (incompleteKeyword                                              (gray 
> muchDarker)                       underlined)
>        (incompleteBinary                                               (gray 
> muchDarker)                       underlined)     
>        (incompleteUnary                                                (gray 
> muchDarker)                       underlined)
>        (undefinedKeyword                                               red    
>                  )
>        (undefinedBinary                                                red    
>                  )       
>        (undefinedUnary                                         red            
>          )                                                                    
>                                    
>        (patternKeyword                                                 nil    
>                  bold)
>        (patternBinary                                                  nil    
>                  bold)
>        (patternUnary                                                   nil    
>                  bold)   
>        (#self                                                                 
>  (red muchDarker)        bold)
>        (#super                                                                
>  (red muchDarker)        bold)
>        (#true                                                                 
>  (red muchDarker)        bold)
>        (#false                                                                
>          (red muchDarker)        bold)
>        (#nil                                                                  
>  (red muchDarker)        bold)
>        (#thisContext                                                   (red 
> muchDarker)        bold)
>        (#return                                                               
>  (red muchDarker)        bold)
>        (patternArg                                                     (blue 
> muchDarker)                       italic) 
>        (methodArg                                                             
>  (blue muchDarker)                       italic)
>        (blockPatternArg                                                (blue 
> muchDarker)                       italic)
>        (blockArg                                                              
>  (blue muchDarker)                       italic)
>        (argument                                                              
>  (blue muchDarker)                       italic)
>        (blockArgColon                                                  black  
>          )
>        (leftParenthesis                                                       
>  black           )
>        (rightParenthesis                                               black  
>          )
>        (leftParenthesis1                                               (green 
> muchDarker)              )
>        (rightParenthesis1                                              (green 
> muchDarker)              )
>        (leftParenthesis2                                               
> (magenta muchDarker)            )
>        (rightParenthesis2                                              
> (magenta muchDarker)            )
>        (leftParenthesis3                                               (red 
> muchDarker)                )
>        (rightParenthesis3                                              (red 
> muchDarker)                )
>        (leftParenthesis4                                               (green 
> darker)          )
>        (rightParenthesis4                                              (green 
> darker)          )
>        (leftParenthesis5                                               
> (orange darker)         )
>        (rightParenthesis5                                              
> (orange darker)         )
>        (leftParenthesis6                                               
> (magenta darker)                )
>        (rightParenthesis6                                              
> (magenta darker)                )
>        (leftParenthesis7                                               blue   
>          )
>        (rightParenthesis7                                              blue   
>          )
>        (blockStart                                                            
>  black           )
>        (blockEnd                                                              
>  black           )
>        (blockStart1                                                           
>  (green muchDarker)                      )
>        (blockEnd1                                                             
>  (green muchDarker)                      )
>        (blockStart2                                                           
>  (magenta muchDarker)            )
>        (blockEnd2                                                             
>  (magenta muchDarker)            )
>        (blockStart3                                                           
>  (red muchDarker)                )
>        (blockEnd3                                                             
>  (red muchDarker)                )
>        (blockStart4                                                           
>  (green darker)          )
>        (blockEnd4                                                             
>  (green darker)          )
>        (blockStart5                                                           
>  (orange darker)         )
>        (blockEnd5                                                             
>  (orange darker)         )
>        (blockStart6                                                           
>  (magenta darker)                )
>        (blockEnd6                                                             
>  (magenta darker)                )
>        (blockStart7                                                           
>  blue            )
>        (blockEnd7                                                             
>  blue            )                                                            
>                                                                               
>                                                                               
>                                                                               
>                                                                               
>                    
>        (arrayStart                                                            
>  black           )
>        (arrayEnd                                                              
>  black           )
>        (arrayStart1                                                    black  
>          )
>        (arrayEnd1                                                             
>  black           )
>        (leftBrace                                                             
>  black           )
>        (rightBrace                                                            
>  black           )
>        (cascadeSeparator                                               black  
>          )
>        (statementSeparator                                             black  
>          )
>        (externalCallType                                               black  
>          )
>        (externalCallTypePointerIndicator               black           )
>        (primitiveOrExternalCallStart                   black   bold    )
>        (primitiveOrExternalCallEnd                             black   bold   
>  )
>        (methodTempBar                                                  gray   
>          )
>        (blockTempBar                                                   gray   
>          )
>        (blockArgsBar                                                   gray   
>          )
>        (primitive                                                             
>  (green muchDarker)              bold)
>        (pragmaKeyword                                          (green 
> muchDarker)              bold)
>        (pragmaUnary                                                    (green 
> muchDarker)              bold)
>        (pragmaBinary                                                   (green 
> muchDarker)              bold)                                                
>                    
>        (externalFunctionCallingConvention              (green muchDarker)     
>          bold)
>        (module                                                                
>  (green muchDarker)              bold)
>        (blockTempVar                                                   gray   
>          italic)
>        (blockPatternTempVar                                    gray           
>  italic)
>        (instVar                                                               
>  black           bold)
>        (workspaceVar                                                   black  
>          bold)
>        (undefinedIdentifier                                            red    
>                  bold)
>        (incompleteIdentifier                                   (gray darker)  
>  (italic underlined))
>        (tempVar                                                               
>  (gray darker)   italic)
>        (patternTempVar                                         (gray darker)  
>  italic)
>        (poolConstant                                                   (gray 
> darker)   italic)
>        (classVar                                                              
>  (gray darker)   bold)
>        (globalVar                                                             
>  black           bold) )
> 
> #Luc
> 
> 
> 2011/2/7 Stéphane Ducasse <[email protected]>
> If I recall correctly there is a
> 
> defaultStyleTable
> 
> subduedStyleTable
> 
> Stef
> 
> On Feb 7, 2011, at 12:21 PM, Tudor Girba wrote:
> 
> > Hi,
> >
> > I am not sure what is the preferred way to set Shout programmatically. Can 
> > anyone point me to a script that already does that? I would be interested 
> > in proposing another color configuration and package it with the Glamorous 
> > Theme.
> >
> > Cheers,
> > Doru
> >
> >
> > --
> > www.tudorgirba.com
> >
> > "No matter how many recipes we know, we still value a chef."
> >
> >
> >
> >
> >
> >
> >
> 
> 
> 

--
www.tudorgirba.com

"Every now and then stop and ask yourself if the war you're fighting is the 
right one."




Reply via email to