<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
<img src="cid:e774dc8c-d5d7-48df-8483-0b66bb60f81f" width="auto"></img><div class="mb_sig"></div><blockquote class="history_container" type="cite" style="border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;">
<p style="color: #AAAAAA; margin-top: 10px;">Am 03.09.2019 09:05:01 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style="font-family:Arial,Helvetica,sans-serif">Marcel Taeumel uploaded a new version of SUnitGUI to project The Trunk:<br>http://source.squeak.org/trunk/SUnitGUI-mt.72.mcz<br><br>==================== Summary ====================<br><br>Name: SUnitGUI-mt.72<br>Author: mt<br>Time: 3 September 2019, 9:04:53.468063 am<br>UUID: 7a1aee8a-d3d3-b749-b2b9-647310559a1a<br>Ancestors: SUnitGUI-mt.71<br><br>Fixes the class hierarchy in the test runner. Adds number of tests to the class labels.<br><br>Needs Tools-mt.880. We might want to find a better place for tree-to-list flattening. Yet, this is not a new dependency from SUnitGUI to the tools package.<br><br>=============== Diff against SUnitGUI-mt.71 ===============<br><br>Item was changed:<br> ----- Method: TestRunner>>classList (in category 'accessing-classes') -----<br> classList<br>+ <br>+ | helper |<br>- | offset |<br> classes isEmpty ifTrue: [ ^ classes ].<br>+ <br>+ helper := Browser new.<br>+ ^ helper<br>+ flattenHierarchyTree: (helper createHierarchyTreeOf: classes)<br>+ on: OrderedCollection new<br>+ indent: ''<br>+ by: ' '<br>+ format: [:class | class isAbstract<br>+ ifTrue: [class name asText addAttribute: TextEmphasis italic; yourself]<br>+ ifFalse: ['{1} ({2})' format: {class name. class allTestSelectors size}]]!<br>- offset := classes first allSuperclasses size.<br>- ^ classes collect: [ :each | | ident |<br>- ident := String <br>- new: 2 * (0 max: each allSuperclasses size - offset) <br>- withAll: $ .<br>- each isAbstract<br>- ifFalse: [ ident , each name ]<br>- ifTrue: [ <br>- ident asText , each name asText <br>- addAttribute: TextEmphasis italic;<br>- yourself ] ].!<br><br><br></div></blockquote>
</div></body>