It would be great to have this :-)
For example, we have just produced a dependency analyzer and I would like to use it in an inspector. Here an example:
| b |
b := RTDependencyAnalyzerBuilder new.
b shape circle
size: 10;
fillColor: (Color red alpha: 0.3);
if: [ :cls | ('TR*' match: cls name) ] fillColor: (Color purple alpha: 0.3).
b addClasses: RTObject withAllSubclasses. “Roassal2 classes"
b addClasses: TRObject withAllSubclasses. “Trachel classes"
b
dependencyFromAllClassesMatching: [ :cls | ('RT*' match: cls name) ]
toAllClassesMatching: [ :cls | ('TR*' match: cls name) ].
b open
Here a screenshot:
Blue lines are dependencies between Roassal classes to Trachel classes.
Purple = trachel
Red = Roassal
If some want to try this, I will be more than happy to share (actually it is available on Roassal2 @ Smalltalkhub).
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
fails quite spectacular on Moose 5.
It starts with some error in the FFI stuff.
To reproduce just find ConfigurationOfFFI and then run
ConfigurationOfFFI load you get thrown into the emergency evaluator.
Regards
Friedrich
Hello
I'm using some graphs on a web page, but after each one, there is a big blank.
I've been looking at the ROHTMLExporter >> addSVGInitialization: method, but I don't know how I can change the size of the SVG section.
Is it possible to do so that the svg section takes the minimum of size needed to print the graph in ?
Here is a screenshot , maybe it can help to understand the problem.
Hi,
Mircea posted this the other day a link to:
https://www.websequencediagrams.com
Interesting application area. Anyone interested in something like this?
Cheers,
Doru
--
www.tudorgirba.com
"Every thing has its own flow"
Reposting here, just in case you missed it :)
Doru
---------- Forwarded message ----------
From: Tudor Girba <tudor(a)tudorgirba.com>
Date: Sat, Jan 4, 2014 at 10:39 PM
Subject: Re: [Pharo-dev] Feature for request for GraphET?
To: Pharo Development List <pharo-dev(a)lists.pharo.org>
Here is one thing I would want: a correspondent Graph-ET functionality to
make something like this EyeSee script work as in the first attached
picture.
renderer := ESDiagramRenderer new.
grouped := { #item1->{10 . 12 . 11 . 14 } . #item2-> { 1 . 1 . 20 } .
#item3->{ 1 . 1 . 1 . 1 . 1} }.
diag := (ESVerticalBarDiagram new)
identifier: [:each | each key ];
y: [:each | each value size];
yAxisLabel: 'Count';
valueAxis;
rightYAxis;
defaultColor: Color veryVeryLightGray;
axisColor: Color veryVeryLightGray;
models: grouped;
rotatedLabels: true;
yourself.
diag2 := (ESVerticalBarDiagram new)
y: [:each | each value sum];
regularAxis;
yAxisLabel: 'Sum';
gapFraction: 2 / 3;
defaultColor: (Color red);
axisColor: (Color red);
models: grouped;
yourself.
(renderer compositeDiagram)
add: diag;
add: diag2.
renderer open
[image: Inline image 2]
The best I could produce with Graph-ET is this (I commented out the message
to which I did not find a correspondent):
builder := GETDiagramBuilder new.
grouped := { #item1->{10 . 12 . 11 . 14 } . #item2-> { 1 . 1 . 20 } .
#item3->{ 1 . 1 . 1 . 1 . 1} }.
diag := (GETVerticalBarDiagram new)
"identifier: [:each | each key ];"
y: [:each | each value size];
yAxisLabel: 'Count';
valueAxisLine;
"rightYAxis;"
color: Color veryLightGray;
"axisColor: Color veryLightGray;"
models: grouped;
"rotatedLabels: true;"
yourself.
diag2 := (GETVerticalBarDiagram new)
y: [:each | each value sum];
regularAxis;
yAxisLabel: 'Sum';
"gapFraction: 2 / 3;"
color: (Color red);
"axisColor: (Color red);"
models: grouped;
yourself.
(builder compositeDiagram)
add: diag;
add: diag2.
builder open
[image: Inline image 4]
Cheers,
Doru
On Thu, Jan 2, 2014 at 7:24 PM, Alexandre Bergel <alexandre.bergel(a)me.com>wrote:
> Hi!
>
> Daniel is looking for usage scenarios with GraphET. It would be great to
> hear about your need.
> Currently, we will work on:
> - PDF Export using Artefact
> - support for legend
> - smarter way to put labels on axis
>
> Anything else?
>
> Cheers,
> Alexandre
> --
> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
> Alexandre Bergel http://www.bergel.eu
> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>
>
>
>
>
--
www.tudorgirba.com
"Every thing has its own flow"
--
www.tudorgirba.com
"Every thing has its own flow"
Thanks to the GTInspector, I am in a very good mood today.
The Cmd-o command is so powerful.
Maybe, one day, we will not have code browser anymore, but simply powerful inspector.
Some small requests:
- If nothing is selected, and I press Cmd-o, can the line be used as a selection instead?
- can the list of superclasses be reversed when I browse a method?
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Hi,
I remember I made same question a couple of years ago… and I didn’t have an answer at the moment, and now I have the same problem.
I have a simple browser like this
“ColumnA" -> “ColumnB"
My problem is: ColumnA renders a custom Morph. The morph is complicated (is a solar system simulation), I can select a planet to show some properties.
This properties should be displayed in ColumnB
I tried something like this:
browser transmit from: #levels; to: #map; andShow: [ :a |
| presentation |
presentation := a morph.
presentation
title: 'Area Schematics';
display: [ :baseLevel |
self
createMorphFor: baseLevel
onSelect: [ :node| presentation selection: node ] ] ].
browser transmit from: #map; to: #properties; andShow: [ :a |
a text
title: 'Properties' ].
But that does not works :(
I want a way to trigger a port and update my properties pane.
How I do that?
I do not want to create a presenter for that simple and basic behaviour… it has to be an easy way that I’m not saying.
But even if I have to do a presenter/renderer and all the bureaucracy… I still don’t know how to do it.
Any help will be welcomed.
thanks,
Esteban