3331 |
3331 |
3332 |emp| |
3332 |emp| |
3333 |
3333 |
3334 emp := self at:#emphasisForChangedCode ifAbsent:nil. |
3334 emp := self at:#emphasisForChangedCode ifAbsent:nil. |
3335 emp isNil ifTrue:[ |
3335 emp isNil ifTrue:[ |
3336 emp := #color->Color red darkened. |
3336 emp := #color->Color darkRed. |
3337 emp := Array with:#bold with:emp. |
3337 emp := Array with:#bold with:emp. |
3338 "/ emp := #color->Color blue darkened. |
3338 "/ emp := #color->Color blue darkened. |
3339 self at:#emphasisForChangedCode put:emp. |
3339 self at:#emphasisForChangedCode put:emp. |
3340 ]. |
3340 ]. |
3341 ^ emp |
3341 ^ emp |
3342 |
3342 |
3343 " |
3343 " |
3344 self allInstancesDo:[:pref |pref at:#emphasisForChangedCode put:nil]. |
3344 self allInstancesDo:[:pref |pref at:#emphasisForChangedCode put:nil]. |
3345 UserPreferences current emphasisForChangedCode. |
3345 UserPreferences current emphasisForChangedCode. |
3346 UserPreferences current at:#emphasisForChangedCode put:nil. |
3346 UserPreferences current at:#emphasisForChangedCode put:nil. |
3347 " |
3347 " |
3348 |
3348 |
3349 "Modified: / 10-11-2006 / 17:27:23 / cg" |
3349 "Modified: / 10-11-2006 / 17:27:23 / cg" |
|
3350 "Modified: / 13-03-2019 / 21:19:05 / Claus Gittinger" |
3350 ! |
3351 ! |
3351 |
3352 |
3352 emphasisForChangedCodeInSmallTeam |
3353 emphasisForChangedCodeInSmallTeam |
3353 "the emphasis for changed code (in a remote changeSet) in the browser. |
3354 "the emphasis for changed code (in a remote changeSet) in the browser. |
3354 You need the SmallTeam extension to be present for this to work." |
3355 You need the SmallTeam extension to be present for this to work." |
3375 emphasisForDifferentPackage |
3376 emphasisForDifferentPackage |
3376 |emp| |
3377 |emp| |
3377 |
3378 |
3378 emp := self at:#emphasisForDifferentPackage ifAbsent:nil. |
3379 emp := self at:#emphasisForDifferentPackage ifAbsent:nil. |
3379 emp isNil ifTrue:[ |
3380 emp isNil ifTrue:[ |
3380 emp := #color->Color green darkened. |
3381 emp := #color->Color darkGreen. |
3381 "/ emp := Array with:#bold with:emp. |
3382 "/ emp := Array with:#bold with:emp. |
3382 self at:#emphasisForDifferentPackage put:emp. |
3383 self at:#emphasisForDifferentPackage put:emp. |
3383 ]. |
3384 ]. |
3384 ^ emp |
3385 ^ emp |
3385 |
3386 |
3386 " |
3387 " |
3387 self allInstancesDo:[:pref |pref at:#emphasisForDifferentPackage put:nil]. |
3388 self allInstancesDo:[:pref |pref at:#emphasisForDifferentPackage put:nil]. |
3388 " |
3389 " |
|
3390 |
|
3391 "Modified: / 13-03-2019 / 21:13:24 / Claus Gittinger" |
3389 ! |
3392 ! |
3390 |
3393 |
3391 emphasisForInstrumentedFullyCoveredCode |
3394 emphasisForInstrumentedFullyCoveredCode |
3392 "the emphasis for code in the browser which is instrumented and where all branches have been |
3395 "the emphasis for code in the browser which is instrumented and where all branches have been |
3393 executed" |
3396 executed" |
3465 emphasisForModifiedBuffer |
3468 emphasisForModifiedBuffer |
3466 |emp| |
3469 |emp| |
3467 |
3470 |
3468 emp := self at:#emphasisForModifiedBuffer ifAbsent:nil. |
3471 emp := self at:#emphasisForModifiedBuffer ifAbsent:nil. |
3469 emp isNil ifTrue:[ |
3472 emp isNil ifTrue:[ |
3470 emp := #color->Color red darkened. |
3473 emp := #color->Color darkRed. |
3471 emp := Array with:#bold with:emp. |
3474 emp := Array with:#bold with:emp. |
3472 self at:#emphasisForModifiedBuffer put:emp. |
3475 self at:#emphasisForModifiedBuffer put:emp. |
3473 ]. |
3476 ]. |
3474 ^ emp |
3477 ^ emp |
3475 |
3478 |
3476 " |
3479 " |
3477 self allInstancesDo:[:pref |pref at:#emphasisForModifiedBuffer put:nil]. |
3480 self allInstancesDo:[:pref |pref at:#emphasisForModifiedBuffer put:nil]. |
3478 " |
3481 " |
|
3482 |
|
3483 "Modified: / 13-03-2019 / 21:19:08 / Claus Gittinger" |
3479 ! |
3484 ! |
3480 |
3485 |
3481 emphasisForNamespacedCode |
3486 emphasisForNamespacedCode |
3482 "the emphasis for changed code (in changeSet) in the browser" |
3487 "the emphasis for changed code (in changeSet) in the browser" |
3483 |
3488 |
3484 |emp| |
3489 |emp| |
3485 |
3490 |
3486 emp := self at:#emphasisForNamespacedCode ifAbsent:nil. |
3491 emp := self at:#emphasisForNamespacedCode ifAbsent:nil. |
3487 emp isNil ifTrue:[ |
3492 emp isNil ifTrue:[ |
3488 emp := #color->Color green darkened. |
3493 emp := #color->Color darkGreen. |
3489 "/ emp := Array with:#bold with:emp. |
3494 "/ emp := Array with:#bold with:emp. |
3490 "/ emp := #color->Color blue darkened. |
3495 "/ emp := #color->Color blue darkened. |
3491 self at:#emphasisForNamespacedCode put:emp. |
3496 self at:#emphasisForNamespacedCode put:emp. |
3492 ]. |
3497 ]. |
3493 ^ emp |
3498 ^ emp |
3494 |
3499 |
3495 " |
3500 " |
3496 self allInstancesDo:[:pref |pref at:#emphasisForNamespacedCode put:nil]. |
3501 self allInstancesDo:[:pref |pref at:#emphasisForNamespacedCode put:nil]. |
3497 UserPreferences current emphasisForNamespacedCode. |
3502 UserPreferences current emphasisForNamespacedCode. |
3498 UserPreferences current at:#emphasisForNamespacedCode put:nil. |
3503 UserPreferences current at:#emphasisForNamespacedCode put:nil. |
3499 " |
3504 " |
3500 |
3505 |
3501 "Created: / 01-07-2010 / 18:39:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
3506 "Created: / 01-07-2010 / 18:39:18 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
3507 "Modified: / 13-03-2019 / 21:13:29 / Claus Gittinger" |
3502 ! |
3508 ! |
3503 |
3509 |
3504 emphasisForObsoleteCode |
3510 emphasisForObsoleteCode |
3505 |emp| |
3511 |emp| |
3506 |
3512 |
4334 |
4340 |
4335 xmlAttributeColor |
4341 xmlAttributeColor |
4336 "the emphasis used for xml-attributes; |
4342 "the emphasis used for xml-attributes; |
4337 If syntaxColoring is turned on." |
4343 If syntaxColoring is turned on." |
4338 |
4344 |
4339 ^ self at:#xmlAttributeColor ifAbsent:[ Color green darkened contrastingColorFor:View defaultBackgroundColor] |
4345 ^ self at:#xmlAttributeColor ifAbsent:[ Color darkGreen contrastingColorFor:View defaultBackgroundColor] |
4340 |
4346 |
4341 " |
4347 " |
4342 self current at:#xmlAttributeColor put:Color black |
4348 self current at:#xmlAttributeColor put:Color black |
4343 self current xmlAttributeColor |
4349 self current xmlAttributeColor |
4344 " |
4350 " |
4345 |
4351 |
4346 "Created: / 24-07-2011 / 21:30:59 / cg" |
4352 "Created: / 24-07-2011 / 21:30:59 / cg" |
4347 "Modified: / 29-08-2018 / 13:52:44 / Claus Gittinger" |
4353 "Modified: / 13-03-2019 / 21:14:00 / Claus Gittinger" |
4348 ! |
4354 ! |
4349 |
4355 |
4350 xmlAttributeEmphasis |
4356 xmlAttributeEmphasis |
4351 "the emphasis used for xml-attributes; |
4357 "the emphasis used for xml-attributes; |
4352 If syntaxColoring is turned on." |
4358 If syntaxColoring is turned on." |
6159 resetSyntaxColorsBlueSelectorsGreenComments |
6165 resetSyntaxColorsBlueSelectorsGreenComments |
6160 "resets the colors in the CurrentPreferences to alternative default values |
6166 "resets the colors in the CurrentPreferences to alternative default values |
6161 (with blue selectors and green comments)" |
6167 (with blue selectors and green comments)" |
6162 |
6168 |
6163 self resetSyntaxColors. |
6169 self resetSyntaxColors. |
6164 self at:#commentColor putSyntaxColor:(Color green darkened). |
6170 self at:#commentColor putSyntaxColor:(Color darkGreen). |
6165 self at:#commentEmphasis put:#italic. |
6171 self at:#commentEmphasis put:#italic. |
6166 self at:#selectorColor putSyntaxColor:(Color blue). |
6172 self at:#selectorColor putSyntaxColor:(Color blue). |
6167 self at:#selectorEmphasis put:#normal. |
6173 self at:#selectorEmphasis put:#normal. |
6168 self at:#methodSelectorColor putSyntaxColor:(Color blue). |
6174 self at:#methodSelectorColor putSyntaxColor:(Color blue). |
6169 self at:#methodSelectorEmphasis put:#bold. |
6175 self at:#methodSelectorEmphasis put:#bold. |
6170 |
6176 |
6171 "Modified: / 20-06-2017 / 08:35:49 / cg" |
6177 "Modified: / 20-06-2017 / 08:35:49 / cg" |
6172 "Modified: / 29-08-2018 / 13:44:18 / Claus Gittinger" |
6178 "Modified: / 13-03-2019 / 21:13:33 / Claus Gittinger" |
6173 ! |
6179 ! |
6174 |
6180 |
6175 resetSyntaxColorsBlueSelectorsGreyComments |
6181 resetSyntaxColorsBlueSelectorsGreyComments |
6176 "resets the colors in the CurrentPreferences to alternative default values |
6182 "resets the colors in the CurrentPreferences to alternative default values |
6177 (with blue selectors and grey comments)" |
6183 (with blue selectors and grey comments)" |
6185 resetSyntaxColorsGreenComments |
6191 resetSyntaxColorsGreenComments |
6186 "resets the colors in the CurrentPreferences to alternative default values |
6192 "resets the colors in the CurrentPreferences to alternative default values |
6187 (with green comments)" |
6193 (with green comments)" |
6188 |
6194 |
6189 self resetSyntaxColors. |
6195 self resetSyntaxColors. |
6190 self at:#commentColor putSyntaxColor:(Color green darkened). |
6196 self at:#commentColor putSyntaxColor:(Color darkGreen). |
6191 |
6197 |
6192 "Modified: / 16-03-2012 / 10:34:50 / cg" |
6198 "Modified: / 16-03-2012 / 10:34:50 / cg" |
6193 "Modified: / 29-08-2018 / 13:44:25 / Claus Gittinger" |
6199 "Modified: / 13-03-2019 / 21:13:36 / Claus Gittinger" |
6194 ! |
6200 ! |
6195 |
6201 |
6196 resetSyntaxColorsGreenCommentsBlueControlFlowSelectors |
6202 resetSyntaxColorsGreenCommentsBlueControlFlowSelectors |
6197 "resets the colors in the CurrentPreferences to alternative default values |
6203 "resets the colors in the CurrentPreferences to alternative default values |
6198 (with green comments, blue control flow)" |
6204 (with green comments, blue control flow)" |
6199 |
6205 |
6200 self resetSyntaxColors. |
6206 self resetSyntaxColors. |
6201 self at:#commentColor putSyntaxColor:(Color green darkened). |
6207 self at:#commentColor putSyntaxColor:(Color darkGreen). |
6202 self at:#controlFlowSelectorColor putSyntaxColor:(Color blue). |
6208 self at:#controlFlowSelectorColor putSyntaxColor:(Color blue). |
6203 |
6209 |
6204 "Created: / 08-09-2006 / 16:10:38 / cg" |
6210 "Created: / 08-09-2006 / 16:10:38 / cg" |
6205 "Modified: / 29-08-2018 / 13:44:31 / Claus Gittinger" |
6211 "Modified: / 13-03-2019 / 21:13:39 / Claus Gittinger" |
6206 ! |
6212 ! |
6207 |
6213 |
6208 resetSyntaxColorsToSqueakStyle |
6214 resetSyntaxColorsToSqueakStyle |
6209 "resets the colors in the CurrentPreferences to alternative default values" |
6215 "resets the colors in the CurrentPreferences to alternative default values" |
6210 |
6216 |
6216 resetSyntaxColorsToSqueakStyle1 |
6222 resetSyntaxColorsToSqueakStyle1 |
6217 "resets the colors in the CurrentPreferences to alternative default values |
6223 "resets the colors in the CurrentPreferences to alternative default values |
6218 (with blue selectors and green comments)" |
6224 (with blue selectors and green comments)" |
6219 |
6225 |
6220 self resetSyntaxColors. |
6226 self resetSyntaxColors. |
6221 self at:#commentColor putSyntaxColor:(Color green darkened). |
6227 self at:#commentColor putSyntaxColor:(Color darkGreen). |
6222 self at:#commentEmphasis put:#italic. |
6228 self at:#commentEmphasis put:#italic. |
6223 self at:#selectorColor putSyntaxColor:(Color blue:80). |
6229 self at:#selectorColor putSyntaxColor:(Color blue:80). |
6224 self at:#selectorEmphasis put:#normal. |
6230 self at:#selectorEmphasis put:#normal. |
6225 self at:#methodSelectorColor putSyntaxColor:(Color black). |
6231 self at:#methodSelectorColor putSyntaxColor:(Color black). |
6226 self at:#methodSelectorEmphasis put:#bold. |
6232 self at:#methodSelectorEmphasis put:#bold. |
6229 self at:#instVarIdentifierEmphasis put:#bold. |
6235 self at:#instVarIdentifierEmphasis put:#bold. |
6230 self at:#constantColor putSyntaxColor:(Color red:67). |
6236 self at:#constantColor putSyntaxColor:(Color red:67). |
6231 |
6237 |
6232 "Modified: / 16-03-2012 / 10:34:40 / cg" |
6238 "Modified: / 16-03-2012 / 10:34:40 / cg" |
6233 "Modified (comment): / 17-03-2012 / 10:38:47 / cg" |
6239 "Modified (comment): / 17-03-2012 / 10:38:47 / cg" |
6234 "Modified: / 29-08-2018 / 13:44:42 / Claus Gittinger" |
6240 "Modified: / 13-03-2019 / 21:13:42 / Claus Gittinger" |
6235 ! |
6241 ! |
6236 |
6242 |
6237 resetSyntaxColorsToSqueakStyle2 |
6243 resetSyntaxColorsToSqueakStyle2 |
6238 "resets the colors in the CurrentPreferences to alternative default values |
6244 "resets the colors in the CurrentPreferences to alternative default values |
6239 (with blue selectors and green comments)" |
6245 (with blue selectors and green comments)" |
6240 |
6246 |
6241 self resetSyntaxColors. |
6247 self resetSyntaxColors. |
6242 self at:#commentColor putSyntaxColor:(Color green darkened). |
6248 self at:#commentColor putSyntaxColor:(Color darkGreen). |
6243 self at:#commentEmphasis put:#italic. |
6249 self at:#commentEmphasis put:#italic. |
6244 self at:#selectorColor putSyntaxColor:(Color blue:80). |
6250 self at:#selectorColor putSyntaxColor:(Color blue:80). |
6245 self at:#selectorEmphasis put:#normal. |
6251 self at:#selectorEmphasis put:#normal. |
6246 self at:#controlFlowSelectorEmphasis put:#bold. |
6252 self at:#controlFlowSelectorEmphasis put:#bold. |
6247 self at:#methodSelectorColor putSyntaxColor:(Color black). |
6253 self at:#methodSelectorColor putSyntaxColor:(Color black). |
6255 self at:#localIdentifierColor putSyntaxColor:(Color grey:50 ). |
6261 self at:#localIdentifierColor putSyntaxColor:(Color grey:50 ). |
6256 self at:#localIdentifierEmphasis put:#normal. |
6262 self at:#localIdentifierEmphasis put:#normal. |
6257 |
6263 |
6258 "Modified: / 16-03-2012 / 10:34:35 / cg" |
6264 "Modified: / 16-03-2012 / 10:34:35 / cg" |
6259 "Modified (comment): / 17-03-2012 / 10:38:57 / cg" |
6265 "Modified (comment): / 17-03-2012 / 10:38:57 / cg" |
6260 "Modified: / 29-08-2018 / 13:44:54 / Claus Gittinger" |
6266 "Modified: / 13-03-2019 / 21:13:45 / Claus Gittinger" |
6261 ! |
6267 ! |
6262 |
6268 |
6263 resetSyntaxColorsToVAgeStyle |
6269 resetSyntaxColorsToVAgeStyle |
6264 "resets the colors in the CurrentPreferences to alternative default values |
6270 "resets the colors in the CurrentPreferences to alternative default values |
6265 (green comments, blue globals)" |
6271 (green comments, blue globals)" |
6285 "resets the colors in the CurrentPreferences to visual C default style |
6291 "resets the colors in the CurrentPreferences to visual C default style |
6286 (green comments, blue keywords, redish string constants)" |
6292 (green comments, blue keywords, redish string constants)" |
6287 |
6293 |
6288 self resetSyntaxColors. |
6294 self resetSyntaxColors. |
6289 self at:#controlFlowSelectorColor putSyntaxColor:(Color blue). |
6295 self at:#controlFlowSelectorColor putSyntaxColor:(Color blue). |
6290 self at:#commentColor putSyntaxColor:(Color green darkened). |
6296 self at:#commentColor putSyntaxColor:(Color darkGreen). |
6291 self at:#constantColor putSyntaxColor:(Color red:64 green:8 blue:8). |
6297 self at:#constantColor putSyntaxColor:(Color red:64 green:8 blue:8). |
6292 |
6298 |
6293 "Modified: / 16-03-2012 / 10:34:30 / cg" |
6299 "Modified: / 16-03-2012 / 10:34:30 / cg" |
6294 "Modified (comment): / 17-03-2012 / 10:39:11 / cg" |
6300 "Modified (comment): / 17-03-2012 / 10:39:11 / cg" |
6295 "Modified: / 29-08-2018 / 13:45:11 / Claus Gittinger" |
6301 "Modified: / 13-03-2019 / 21:13:50 / Claus Gittinger" |
6296 ! |
6302 ! |
6297 |
6303 |
6298 resetSyntaxColorsToVW7Style |
6304 resetSyntaxColorsToVW7Style |
6299 "resets the colors in the CurrentPreferences to alternative default values |
6305 "resets the colors in the CurrentPreferences to alternative default values |
6300 (with light blue comments, green variables)" |
6306 (with light blue comments, green variables)" |
6304 self at:#selectorColor putSyntaxColor:(Color black). |
6310 self at:#selectorColor putSyntaxColor:(Color black). |
6305 self at:#selectorEmphasis put:#normal. |
6311 self at:#selectorEmphasis put:#normal. |
6306 self at:#methodSelectorColor putSyntaxColor:(Color black). |
6312 self at:#methodSelectorColor putSyntaxColor:(Color black). |
6307 self at:#methodSelectorEmphasis put:#bold. |
6313 self at:#methodSelectorEmphasis put:#bold. |
6308 self at:#identifierEmphasis put:#normal. |
6314 self at:#identifierEmphasis put:#normal. |
6309 self at:#identifierColor putSyntaxColor:(Color green darkened). |
6315 self at:#identifierColor putSyntaxColor:(Color darkGreen). |
6310 |
6316 |
6311 "Modified: / 16-03-2012 / 10:34:26 / cg" |
6317 "Modified: / 16-03-2012 / 10:34:26 / cg" |
6312 "Modified (comment): / 17-03-2012 / 10:39:18 / cg" |
6318 "Modified (comment): / 17-03-2012 / 10:39:18 / cg" |
6313 "Modified: / 29-08-2018 / 13:45:26 / Claus Gittinger" |
6319 "Modified: / 13-03-2019 / 21:13:56 / Claus Gittinger" |
6314 ! |
6320 ! |
6315 |
6321 |
6316 resetSyntaxColorsWithSideEffectHighlighting |
6322 resetSyntaxColorsWithSideEffectHighlighting |
6317 "resets the colors in the CurrentPreferences to their default values |
6323 "resets the colors in the CurrentPreferences to their default values |
6318 plus side effect highlighting (assignments to instvars and globals are marked)" |
6324 plus side effect highlighting (assignments to instvars and globals are marked)" |