equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 " |
1 " |
4 Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague |
2 Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague |
5 Copyright (c) 2009-2010 eXept Software AG |
3 Copyright (c) 2009-2010 eXept Software AG |
6 |
4 |
7 Permission is hereby granted, free of charge, to any person |
5 Permission is hereby granted, free of charge, to any person |
293 |
291 |
294 (holder := builder bindingAt:#ruleNameAspect) isNil ifTrue:[ |
292 (holder := builder bindingAt:#ruleNameAspect) isNil ifTrue:[ |
295 holder := BlockValue |
293 holder := BlockValue |
296 with:[:h | |
294 with:[:h | |
297 "/ h displayString , ' ' , (('[browse]' actionForAll:[ self browseLintRule]) colorizeAllWith:Color blue) |
295 "/ h displayString , ' ' , (('[browse]' actionForAll:[ self browseLintRule]) colorizeAllWith:Color blue) |
298 (h ? '') displayString actionForAll:[ self browseLintRule ] |
296 (h ? '') displayString asActionLinkTo:[ self browseLintRule ] |
299 ] |
297 ] |
300 argument: self ruleHolder. |
298 argument: self ruleHolder. |
301 builder aspectAt:#ruleNameAspect put:holder. |
299 builder aspectAt:#ruleNameAspect put:holder. |
302 ]. |
300 ]. |
303 ^ holder. |
301 ^ holder. |