ok, but how can I render a multiline label?
I found that by changing #textHeightFor: and #textWidthFor: in
MORectangleShape like this:
textHeightFor: aFigure
|lineCount|
lineCount := (self textFor: aFigure) lineCount.
^ (self fontFor: aFigure) height * lineCount
textWidthFor: aFigure
|longestLine|
longestLine := ''.
(self textFor: aFigure) linesDo: [:line |
longestLine := line size > longestLine size ifTrue: [line]
ifFalse: [longestLine]].
^ (self fontFor: aFigure) widthOfString: longestLine
I can render the text box with the correct size. What I am not able
to do is to render the text (which is multiline) on different lines.
cheers
Marco
On Dec 28, 2009, at 3:20 PM, Alexandre Bergel wrote:
Arg... I have to say "we cannot for
now". Node resizing is
currently
not supported.
Alexandre
On 28 Dec 2009, at 14:13, Marco D'Ambros wrote:
> Thanks! That's exactly what I wanted :-)
> How can I make the figure resizable with the text arranging
> accordingly (i.e. going on multiple lines?)
>
> cheers,
> Marco
>
>
> On Dec 28, 2009, at 1:15 PM, Alexandre Bergel wrote:
>
>> Hi Marco,
>>
>> Try the following:
>> -=-=-=-=-=-=-=-=-=-=-=-=
>> view nodes: (1 to: 100).
>> view gridLayout gapSize: 10.
>>
>> view root interaction
>> on: MOMouseDouble do: [:ann |
>> | node txt |
>>
>> txt := UIManager default request: 'Enter a text'.
>> view shape rectangle withText.
>> node := view node: txt.
>> node translateBy: ann position.
>> view updateWindow
>> ]
>> -=-=-=-=-=-=-=-=-=-=-=-=
>> Is it what you wanted?
>>
>> Cheers,
>> Alexandre
>>
>> On 28 Dec 2009, at 04:03, Marco D'Ambros wrote:
>>
>>> Pharo
>>>
>>> Cheers,
>>> Marco
>>>
>>>
>>> On Dec 28, 2009, at 12:15 AM, Alexandre Bergel wrote:
>>>
>>>> Hi Marco,
>>>>
>>>> Which version of Mondrian are you referring to? VW or Pharo?
>>>>
>>>> Cheers,
>>>> Alexandre
>>>>
>>>> On 28 Dec 2009, at 00:05, Marco D'Ambros wrote:
>>>>
>>>>> Hi,
>>>>>
>>>>> I would like to have the following feature in Mondrian: when
>>>>> the
>>>>> user clicks on the main canvas, a text box (a rectangle
>>>>> figure)
>>>>> appears and the user can write in it and move it around.
>>>>> Is this doable with a script or should I work with the canvas
>>>>> class?
>>>>> Any hint on where should I look at to implement it is
>>>>> appreciated.
>>>>>
>>>>> Thanks!
>>>>> Marco
>>>>> _______________________________________________
>>>>> 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
>> ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
>>
>>
>>
>>
>>
>> _______________________________________________
>> 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