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