give me a few minutes...
Alexandre
On 28 Dec 2009, at 15:54, Marco D'Ambros wrote:
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@iam.unibe.ch > https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
-- _,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;: Alexandre Bergel http://www.bergel.eu ^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;._,.;:~^~:;.
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev
Moose-dev mailing list Moose-dev@iam.unibe.ch https://www.iam.unibe.ch/mailman/listinfo/moose-dev