Smalltalk › Frameworks & Tools › Moose
Login  Register

Roassal2 - Label width

‹ Previous Topic Next Topic ›
 
classic Classic list List threaded Threaded
♦
♦
 6 messages Options Options
 
Embed post
Permalink
Leonel Merino
Reply | Threaded
Open this post in threaded view
♦
♦
| More
Print post
Permalink
Sep 03, 2015; 12:53pm

Roassal2 - Label width

Leonel Merino
14 posts
Hi all,

In the example below. How can I print the size of the label instead of the circle’s size?

v := RTView new.
el := RTEllipse new size: 5; elementOn:'number'.
v add: el.
el @ (RTLabelled new fontSize:30).
el @ (RTPopup new textElement:[:e| e width asString]).
v



Best regards

Leonel Merino




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Peter Uhnak
Reply | Threaded
Open this post in threaded view
♦
♦
| More
Print post
Permalink
Sep 03, 2015; 1:39pm

Re: Roassal2 - Label width

Peter Uhnak
2019 posts
What do you mean by "the size of the label"? It's width?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|v el lbl|
v := RTView new.
el := RTEllipse new size: 5; elementOn: 'number'.
v add: el.
(lbl := RTLabelled new) fontSize: 30.
el @ lbl.
el @ (RTPopup new text: [:e | lbl lbl width asString]).
v
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Or you can be exlicit and add RTLabel as a new shape, but then you would have to manually setup the interaction.

Peter

On Thu, Sep 3, 2015 at 2:57 PM, Leonel Merino <[hidden email]> wrote:
Hi all,

In the example below. How can I print the size of the label instead of the circle’s size?

v := RTView new.
el := RTEllipse new size: 5; elementOn:'number'.
v add: el.
el @ (RTLabelled new fontSize:30).
el @ (RTPopup new textElement:[:e| e width asString]).
v



Best regards

Leonel Merino




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

... [show rest of quote]


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Leonel Merino
Reply | Threaded
Open this post in threaded view
♦
♦
| More
Print post
Permalink
Sep 03, 2015; 2:05pm

Re: Roassal2 - Label width

Leonel Merino
14 posts
Hi Peter,

Thanks for your prompt answer.
Yes, I meant width :)

How can I retrieve the label (RTLabelled) from an element object (RTElement)?
I don’t have a reference to the label (as in the example) but only to the element.

Leonel Merino


On 03 Sep 2015, at 15:43, Peter Uhnák <[hidden email]> wrote:

What do you mean by "the size of the label"? It's width?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|v el lbl|
v := RTView new.
el := RTEllipse new size: 5; elementOn: 'number'.
v add: el.
(lbl := RTLabelled new) fontSize: 30.
el @ lbl.
el @ (RTPopup new text: [:e | lbl lbl width asString]).
v
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Or you can be exlicit and add RTLabel as a new shape, but then you would have to manually setup the interaction.

Peter

On Thu, Sep 3, 2015 at 2:57 PM, Leonel Merino <[hidden email]> wrote:
Hi all,

In the example below. How can I print the size of the label instead of the circle’s size?

v := RTView new.
el := RTEllipse new size: 5; elementOn:'number'.
v add: el.
el @ (RTLabelled new fontSize:30).
el @ (RTPopup new textElement:[:e| e width asString]).
v


<PastedGraphic-5.png>

Best regards

Leonel Merino




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

... [show rest of quote]

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
... [show rest of quote]


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Peter Uhnak
Reply | Threaded
Open this post in threaded view
♦
♦
| More
Print post
Permalink
Sep 03, 2015; 2:11pm

Re: Roassal2 - Label width

Peter Uhnak
2019 posts
Well...

if you are doing this for a one-off visualization (i.e. you will throw the code away within next few months),
you could do this
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|v el|
v := RTView new.
el := RTEllipse new size: 5; elementOn:'number'.
v add: el.
el @ (RTLabelled new fontSize:30).
el @ (RTPopup new textElement:[:e| (e attributeAt: #RTLabelledLabel) width asString]).
v
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

the problem is that it is fragile because it relies on internal implementation. On the bright side this is unlikely to change anytime soon.

More robust solution would be to create the label manually, but that is a bit more work.

Is this enough? Do you need more robust solution?

Peter

On Thu, Sep 3, 2015 at 4:05 PM, Leonel Merino <[hidden email]> wrote:
Hi Peter,

Thanks for your prompt answer.
Yes, I meant width :)

How can I retrieve the label (RTLabelled) from an element object (RTElement)?
I don’t have a reference to the label (as in the example) but only to the element.

Leonel Merino


On 03 Sep 2015, at 15:43, Peter Uhnák <[hidden email]> wrote:

What do you mean by "the size of the label"? It's width?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|v el lbl|
v := RTView new.
el := RTEllipse new size: 5; elementOn: 'number'.
v add: el.
(lbl := RTLabelled new) fontSize: 30.
el @ lbl.
el @ (RTPopup new text: [:e | lbl lbl width asString]).
v
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Or you can be exlicit and add RTLabel as a new shape, but then you would have to manually setup the interaction.

Peter

On Thu, Sep 3, 2015 at 2:57 PM, Leonel Merino <[hidden email]> wrote:
Hi all,

In the example below. How can I print the size of the label instead of the circle’s size?

v := RTView new.
el := RTEllipse new size: 5; elementOn:'number'.
v add: el.
el @ (RTLabelled new fontSize:30).
el @ (RTPopup new textElement:[:e| e width asString]).
v


<PastedGraphic-5.png>

Best regards

Leonel Merino




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

... [show rest of quote]

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
... [show rest of quote]


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

... [show rest of quote]


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Leonel Merino
Reply | Threaded
Open this post in threaded view
♦
♦
| More
Print post
Permalink
Sep 03, 2015; 2:22pm

Re: Roassal2 - Label width

Leonel Merino
14 posts
That’s perfect. 

I don’t need a robust solution. 
I am playing with a new layout and wanted to properly handle elements that have labels.

Thanks again!.

Leonel Merino



On 03 Sep 2015, at 16:15, Peter Uhnák <[hidden email]> wrote:

Well...

if you are doing this for a one-off visualization (i.e. you will throw the code away within next few months),
you could do this
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|v el|
v := RTView new.
el := RTEllipse new size: 5; elementOn:'number'.
v add: el.
el @ (RTLabelled new fontSize:30).
el @ (RTPopup new textElement:[:e| (e attributeAt: #RTLabelledLabel) width asString]).
v
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

the problem is that it is fragile because it relies on internal implementation. On the bright side this is unlikely to change anytime soon.

More robust solution would be to create the label manually, but that is a bit more work.

Is this enough? Do you need more robust solution?

Peter

On Thu, Sep 3, 2015 at 4:05 PM, Leonel Merino <[hidden email]> wrote:
Hi Peter,

Thanks for your prompt answer.
Yes, I meant width :)

How can I retrieve the label (RTLabelled) from an element object (RTElement)?
I don’t have a reference to the label (as in the example) but only to the element.

Leonel Merino


On 03 Sep 2015, at 15:43, Peter Uhnák <[hidden email]> wrote:

What do you mean by "the size of the label"? It's width?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|v el lbl|
v := RTView new.
el := RTEllipse new size: 5; elementOn: 'number'.
v add: el.
(lbl := RTLabelled new) fontSize: 30.
el @ lbl.
el @ (RTPopup new text: [:e | lbl lbl width asString]).
v
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Or you can be exlicit and add RTLabel as a new shape, but then you would have to manually setup the interaction.

Peter

On Thu, Sep 3, 2015 at 2:57 PM, Leonel Merino <[hidden email]> wrote:
Hi all,

In the example below. How can I print the size of the label instead of the circle’s size?

v := RTView new.
el := RTEllipse new size: 5; elementOn:'number'.
v add: el.
el @ (RTLabelled new fontSize:30).
el @ (RTPopup new textElement:[:e| e width asString]).
v


<PastedGraphic-5.png>

Best regards

Leonel Merino




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

... [show rest of quote]

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
... [show rest of quote]


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

... [show rest of quote]

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
... [show rest of quote]


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
abergel
Reply | Threaded
Open this post in threaded view
♦
♦
| More
Print post
Permalink
Sep 04, 2015; 1:41pm

Re: Roassal2 - Label width

abergel
5677 posts
In reply to this post by Peter Uhnak
Thanks Peter!
I would not have said better :-)

Alexandre
-- 
_,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:
Alexandre Bergel  http://www.bergel.eu
^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.

On Sep 3, 2015, at 11:15 AM, Peter Uhnák <[hidden email]> wrote:

Well...

if you are doing this for a one-off visualization (i.e. you will throw the code away within next few months),
you could do this
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|v el|
v := RTView new.
el := RTEllipse new size: 5; elementOn:'number'.
v add: el.
el @ (RTLabelled new fontSize:30).
el @ (RTPopup new textElement:[:e| (e attributeAt: #RTLabelledLabel) width asString]).
v
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

the problem is that it is fragile because it relies on internal implementation. On the bright side this is unlikely to change anytime soon.

More robust solution would be to create the label manually, but that is a bit more work.

Is this enough? Do you need more robust solution?

Peter

On Thu, Sep 3, 2015 at 4:05 PM, Leonel Merino <[hidden email]> wrote:
Hi Peter,

Thanks for your prompt answer.
Yes, I meant width :)

How can I retrieve the label (RTLabelled) from an element object (RTElement)?
I don’t have a reference to the label (as in the example) but only to the element.

Leonel Merino


On 03 Sep 2015, at 15:43, Peter Uhnák <[hidden email]> wrote:

What do you mean by "the size of the label"? It's width?

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
|v el lbl|
v := RTView new.
el := RTEllipse new size: 5; elementOn: 'number'.
v add: el.
(lbl := RTLabelled new) fontSize: 30.
el @ lbl.
el @ (RTPopup new text: [:e | lbl lbl width asString]).
v
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

Or you can be exlicit and add RTLabel as a new shape, but then you would have to manually setup the interaction.

Peter

On Thu, Sep 3, 2015 at 2:57 PM, Leonel Merino <[hidden email]> wrote:
Hi all,

In the example below. How can I print the size of the label instead of the circle’s size?

v := RTView new.
el := RTEllipse new size: 5; elementOn:'number'.
v add: el.
el @ (RTLabelled new fontSize:30).
el @ (RTPopup new textElement:[:e| e width asString]).
v


<PastedGraphic-5.png>

Best regards

Leonel Merino




_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

... [show rest of quote]

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
... [show rest of quote]


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev

... [show rest of quote]

_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
... [show rest of quote]


_______________________________________________
Moose-dev mailing list
[hidden email]
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Free forum by Nabble Edit this page