configuring shout programmatically

> 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."
>
>
>
>
>
>
>

>
> 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 <[hidden email]>
> 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."
> >
> >
> >
> >
> >
> >
> >
>
>
>