20 Nov
2015
20 Nov
'15
3:26 p.m.
Hi,
I am trying to use exampleClassHierarchy in RTCircularTreeMapBuilder for
visualizing some packages and classes.
First, I think the borderWith: should be a fraction of what already is
defined in the examples, otherwise the borders are too think to visualize
anything correctly.
Second, the borderWidth is proportional to the radius of circle. Is this
intended?
To reproduce, here is an example + screenshot:
| b |
b := RTCircularTreeMapBuilder new.
b shape
color: Color transparent;
borderWidth: 0.01;
borderColor: Color black;
if: [ :cls | cls subclasses isEmpty ] fillColor: [ :cls|
(Smalltalk includesKey: (cls name, 'Test') asSymbol) ifTrue: [ Color green ]
ifFalse: [ Color purple ] ].
b
baseradius: 400;
weight: [ :cls | cls withAllSubclasses size].
b explore: RTObject
using: #subclasses.
b build.
^ b view open
[image: Inline image 1]
27 Nov
27 Nov
1:46 p.m.
hi Usman,
I think you are using a old version of Roassal / Trachel. This issue has been fixed
several months ago.
If I execute a slightly modified version of your script (I have simply removed
borderWidth:):
| b |
b := RTCircularTreeMapBuilder new.
b shape
color: Color transparent;
borderColor: Color black;
if: [ :cls | cls subclasses isEmpty ] fillColor: [ :cls|
(Smalltalk includesKey: (cls name, 'Test') asSymbol) ifTrue: [ Color green ]
ifFalse: [ Color purple ] ].
b
baseradius: 400;
weight: [ :cls | cls withAllSubclasses size].
b explore: RTObject
using: #subclasses.
b build.
^ b view open
I have
On Nov 20, 2015, at 11:26 AM, Usman Bhatti
<usman.bhatti(a)gmail.com> wrote:
Hi,
I am trying to use exampleClassHierarchy in RTCircularTreeMapBuilder for visualizing some
packages and classes.
First, I think the borderWith: should be a fraction of what already is defined in the
examples, otherwise the borders are too think to visualize anything correctly.
Second, the borderWidth is proportional to the radius of circle. Is this intended?
To reproduce, here is an example + screenshot:
| b |
b := RTCircularTreeMapBuilder new.
b shape
color: Color transparent;
borderWidth: 0.01;
borderColor: Color black;
if: [ :cls | cls subclasses isEmpty ] fillColor: [ :cls|
(Smalltalk includesKey: (cls name, 'Test') asSymbol) ifTrue: [ Color green ]
ifFalse: [ Color purple ] ].
b
baseradius: 400;
weight: [ :cls | cls withAllSubclasses size].
b explore: RTObject
using: #subclasses.
b build.
^ b view open
<Screen Shot 2015-11-20 at 3.25.05 PM.png>
_______________________________________________
Moose-dev mailing list
Moose-dev(a)list.inf.unibe.ch
https://www.list.inf.unibe.ch/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
3313
days inactive
3320
days old
1 comments
2 participants
participants (2)
-
Alexandre Bergel -
Usman Bhatti