Hi,
I extended the GTInspector with more support for handling files. See more
details here:
http://www.humane-assessment.com/blog/browsing-files-with-gtinspector
It is available in the latest Moose.
Please take a look and let me know what you think. And if you have
something to do with special files, it would be great to extend it with
more fancy support.
Cheers,
Doru
--
www.tudorgirba.com
"Every thing has its own flow"
Diego and I are looking at migrating the moose site to a newer pier.
We use the PierCodeExporter for that.
The moose site is a pretty old pier (Pier1 on Pharo 1.0rc1 10492). It doesn’t have grease loaded.
The exporter doesn’t use a lot of grease functionality.
We could have tried loading Grease, but decided to just copy paste
the functionality needed.
http://smalltalkhub.com/mc/Pier/Pier3Addons/main/Pier-Exporter1-DiegoLont.1…
Then the compilation fails because there are too many news entries,
resulting in a method that is too large to compile.
In PRKernelCodeExporter>>writeCodeFor: structure
we changed the repeated
structure addChild: (self newsABCD: aKernel).
to an array of selectors with a perform: loop.
+ stream << ' #('.
+ structure enumerator do: [ :each | stream << ' #''' << (each asSelector) << ':''' ] separatedBy: [ stream cr ].
+ stream << ' ) do: [ :each | ' << String cr << ' structure addChild: (self perform: each with: aKernel) ].' << String cr.
-
- structure enumerator do: [ :each |
- stream << ' structure addChild: (self ' << (each asSelector) << ': aKernel).' << String cr ].
This was enough for moose, but needs method splitting for larger sites.
http://smalltalkhub.com/mc/Pier/Pier3Addons/main/Pier-Exporter-Code-DiegoLo…
With this we are able to generate the code. Next step is loading in a newer Pier.
to be continued.
Stephan
Well seen!
Update Roassal and you can do:
-=-=-=-=-=-=-=-=-=-=-=-=
| v e1 e2 l lbl |
v := ROView new.
"Change here"
e1 := (ROBox new size: 30; width:200 ) element.
e2 := (ROBox new size: 30; width:200) element.
l := ROLine elementFrom: e1 to: e2.
lbl := (ROLabel text: 'hello world') element.
ROConstraint stick: lbl onEdge: l. "locate the label between 2 nodes"
e1 @ RODraggable.
e2 @ RODraggable.
v add: e1; add: e2; add: l; add: lbl.
v open
-=-=-=-=-=-=-=-=-=-=-=-=
By the way, I cannot see your attachment? Can some other seen it? It appears as "Mail Attachment.txt”
Alexandre
On Jan 30, 2014, at 12:08 PM, Vincent Blondeau <vincent.blondeau(a)polytech-lille.net> wrote:
> Thanks for the code !
>
> But there still the issue :
>
> <Mail Attachment.txt>
>
> The text is not on the edge and for an UML diagram, is not readable...
>
> I use your code (with some modifications - See below) to do these visualizations on the Roassal latest image.
>
> Cheers,
> Vincent
>
>
> Le 30/01/2014 15:15, Alexandre Bergel a écrit :
>> The problem here is that you are mixing Mondrian code and Roassal code. It is like putting some C or Assembly code in your Java code. You can do it, but you need to know exactly what’s going on.
>>
>> Without Mondrian, you can have:
>> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>> | v e1 e2 l lbl |
>> v := ROView new.
> "Change here"
> e1 := (ROBox new size: 30; width:200 ) element.
> e2 := (ROBox new size: 30; width:200) element.
>> l := ROLine elementFrom: e1 to: e2.
>>
>> lbl := (ROLabel text: 'hello world') element.
>> ROConstraint stick: lbl between: e1 and: e2. "locate the label between 2 nodes"
>>
>> e1 @ RODraggable.
>> e2 @ RODraggable.
>>
>> v add: e1; add: e2; add: l; add: lbl.
>> v open
>> -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
>> <Mail Attachment.png>
>>
>> If you really wish to stick to Mondrian, you can do:
>>
>> -=-=-=-=-=-=-=-=
>> | b |
>> b:= ROMondrianViewBuilder new.
>> b shape circle size: 30.
> "And here"
> b nodes: #('Hello world. I use some Mondrian code' 'Hello world. I use some Mondrian code too').
>
> b edgeFromAssociation: 'Hello world. I use some Mondrian code' -> 'Hello world. I use some Mondrian code too'.
>> b open.
>>
>> b view edges do: [ :edge |
>> | lbl |
>> lbl := (ROLabel text: 'hello world') element.
>> b view add: lbl.
>> ROConstraint stick: lbl between: edge from and: edge to.
>> ].
>> -=-=-=-=-=-=-=-=
>>
>> <Mail Attachment.png>
>>
>> Cheers,
>> Alexandre
>>
>>
>> On Jan 30, 2014, at 6:51 AM, Vincent Blondeau <vincent.blondeau(a)polytech-lille.net> wrote:
>>
>>> Le 29/01/2014 11:49, Alexandre Bergel a écrit :
>>>> Vincent, did it work?
>>> Not really...
>>>
>>> The code I use is :
>>>
>>> //Node and edges creation
>>> ...
>>> view shape label centeredLabel.
>>> labelNode := view node: 'Hello'. "create the label I want between (it's for the example)"
>>> ROConstraint stick: labelNode between: view edges first from and: view edges first to. "locate the label between 2 nodes"
>>> view treeLayout.
>>> view open
>>>
>>> A text "hello" is displayed but at the begining, the text is misplaced :
>>> <Mail Attachment.txt>
>>> If I move one of the nodes linked to the edge, the text moves to the right location (the picture at the bottom, shows what I want to do :) )
>>> <Mail Attachment.txt>
>>> But the text doesn't stay on the edge but it's between the left sides of the nodes...
>>>
>>> <Mail Attachment.txt>
>>> Do I use the right method and the right arguments ?
>>>
>>> Thanks for helping !
>>>
>>> Vincent
>>>>
>>>> Alexandre
>>>> _______________________________________________
>>>> Moose-dev mailing list
>>>>
>>>> Moose-dev(a)iam.unibe.ch
>>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>>>
>>>>
>>>>
>>>
>>> _______________________________________________
>>> Moose-dev mailing list
>>> Moose-dev(a)iam.unibe.ch
>>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>>
>> --
>> _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
>> Alexandre Bergel http://www.bergel.eu
>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>
>>
>>
>>
>>
>> _______________________________________________
>> Moose-dev mailing list
>>
>> Moose-dev(a)iam.unibe.ch
>> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
>
> _______________________________________________
> Moose-dev mailing list
> Moose-dev(a)iam.unibe.ch
> https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Hi,
I updated the white theme a little bit:
- the scrollbars and buttons are as dark as the title bar
- the resizers are visible with the same color
Please let me know if this works for you.
Cheers,
Doru
--
www.tudorgirba.com
"Every thing has its own flow"
Hi!
As you may know, we are working on Roassal2. Maybe we could include it in the moose image?
Gofer new smalltalkhubUser: 'ObjectProfile'
project: 'Roassal2';
package: 'ConfigurationOfRoassal2';
load.
(Smalltalk at: #ConfigurationOfRoassal2) load
Cheers,
Alexandre
--
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.