1 Jan
2012
1 Jan
'12
10:01 p.m.
Lukas suggested I repost this here from the Magritte list
(http://forum.world.st/Customizing-Magritte-Morphic-Forms-td4251518.html):
I'm playing with and already enjoying Magritte after the awesome talk Nick
and Esteban gave at ESUG this year.
How do I customize Magritte editors in Morphic? Specifically, for the
Address example from the Seaside book, I tried:
anAddress asMorph
addButtons;
addWindow;
openInWorld.
but the fields were really tiny and hid most of the text as you can see
below:
http://forum.world.st/file/n4251570/PharoScreenshot.2.png
Then I tried a standard Morphic approach:
| form window |
form := anAddress asMorph addButtons.
window := SystemWindow new addMorph: form fullFrame: (LayoutFrame
fractions: (0@0 corner: 1.0(a)1.0) offsets: (10@10 corner: 10@10)).
window openInWorld.
but I got "MessageNotUnderstood: MAContainerMorph>>layoutFrame:"
--
View this message in context:
http://forum.world.st/Customizing-Magritte-Morphic-Forms-tp4251570p4251570.…
Sent from the Moose mailing list archive at Nabble.com.
1 Jan
1 Jan
10:08 p.m.
As replied on the smallwiki mailing list:
Here is the code from the rendering in Glamour:
magritteMorph := FAMIXClass asMooseDescription asMagritteDescription
asMorph
addButtons;
morph.
scrollPane := GeneralScrollPane new.
scrollPane changeScrollerTableLayout.
scrollPane scrollTarget: magritteMorph.
scrollPane layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 1)).
scrollPane openInWindow
I use the GeneralScrollPane because it lets you fill on one dimension and have a scroll on
the other dimension.
Cheers,
Doru
On 1 Jan 2012, at 22:01, Sean P. DeNigris wrote:
Lukas suggested I repost this here from the Magritte
list
(http://forum.world.st/Customizing-Magritte-Morphic-Forms-td4251518.html):
I'm playing with and already enjoying Magritte after the awesome talk Nick
and Esteban gave at ESUG this year.
How do I customize Magritte editors in Morphic? Specifically, for the
Address example from the Seaside book, I tried:
anAddress asMorph
addButtons;
addWindow;
openInWorld.
but the fields were really tiny and hid most of the text as you can see
below:
http://forum.world.st/file/n4251570/PharoScreenshot.2.png
Then I tried a standard Morphic approach:
| form window |
form := anAddress asMorph addButtons.
window := SystemWindow new addMorph: form fullFrame: (LayoutFrame
fractions: (0@0 corner: 1.0(a)1.0) offsets: (10@10 corner: 10@10)).
window openInWorld.
but I got "MessageNotUnderstood: MAContainerMorph>>layoutFrame:"
--
View this message in context:
http://forum.world.st/Customizing-Magritte-Morphic-Forms-tp4251570p4251570.…
Sent from the Moose mailing list archive at Nabble.com.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
--
www.tudorgirba.com
"Yesterday is a fact.
Tomorrow is a possibility.
Today is a challenge."
10:29 p.m.
Thanks for the immediate feedback!
I realized from your snippet what was missing in my attempt:
| form window |
form := anAddress asMorph addButtons.
window := SystemWindow new addMorph: form ***morph*** fullFrame:
(LayoutFrame fractions: (0@0 corner: 1.0(a)1.0) offsets: (10@10 corner:
10@10)).
window openInWorld.
OMG! It seems terribly misleading to me to call something a morph that is
not a morph. This violates the principle of least surprise, and while
surprises are nice today because it's a holiday, not so much the rest of the
year ;-)
Humble suggestions:
1) change #asMorph to something like forMorphic
2) make #addWindow behave more reasonably
3) MAContainerMorph and friends -> MAMorphicContainer
--
View this message in context:
http://forum.world.st/Customizing-Magritte-Morphic-Forms-tp4251570p4251621.…
Sent from the Moose mailing list archive at Nabble.com.
11:27 p.m.
Tudor Girba-2 wrote
Here is the code from the rendering in Glamour:
With this approach:
morph := anAddress asMorph
addButtons;
morph.
scrollPane := GeneralScrollPane new.
scrollPane changeScrollerTableLayout.
scrollPane scrollTarget: morph.
scrollPane layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 1)).
scrollPane openInWindow
I got an emergency evaluator when I clicked "Save":
THERE_BE_DRAGONS_HERE
SubscriptOutOfBounds: 1
1 January 2012 5:24:26 pm
VM: Mac OS - intel - 1072 - Croquet Closure Cog VM [CoInterpreter
VMMaker-oscog-EstebanLorenzano.139] 21.0
Image: Pharo1.3 [Latest update: #13320]
Array(Object)>>errorSubscriptBounds:
Receiver: #()
Arguments and temporary variables:
index: 1
Receiver's instance variables:
#()
Array(Object)>>at:
Receiver: #()
Arguments and temporary variables:
index: 1
Receiver's instance variables:
#()
Array(SequenceableCollection)>>first
Receiver: #()
Arguments and temporary variables:
Receiver's instance variables:
#()
GeneralScrollPane>>scrollTarget
Receiver: a GeneralScrollPane(440139776)
Arguments and temporary variables:
Receiver's instance variables:
bounds: 50@139 corner: 686@431
owner: a SystemWindow(908591104)
submorphs: an Array(a TransformWithLayoutMorph(445382656))
fullBounds: 50@139 corner: 686@431
color: Color transparent
extension: a MorphExtension (222822400) [other: (myDependents -> a
DependentsA...etc...
scroller: a TransformWithLayoutMorph(445382656)
hScrollbar: a GeneralScrollBar(471334912)
vScrollbar: a GeneralScrollBar(237240320)
--
View this message in context:
http://forum.world.st/Customizing-Magritte-Morphic-Forms-tp4251570p4251729.…
Sent from the Moose mailing list archive at Nabble.com.
11:51 p.m.
Oh, right.
I only provided the code for rendering, but it does not work when you execute it :).
The problem is that The MAContainerMorph does some morph removing magic that does not work
with the GeneralScrollPane. So, I am replacing it with a MASilentContainerMorph. It's
hack-ish, but it works. I would actually be interested in a cleaner solution.
Also, I did not provide a good model for the description.
model := MooseModel root allModels first allClasses first "or your code".
description := FAMIXClass asMooseDescription asMagritteDescriptionWithAnnotations
"or your code".
(description morphClass = MAContainerMorph)
ifTrue: [description morphClass: MASilentContainerMorph].
magritteMorph := (description asMorphOn: model) addButtons; morph.
scrollPane := GeneralScrollPane new.
scrollPane changeScrollerTableLayout.
scrollPane scrollTarget: magritteMorph.
scrollPane layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 1)).
scrollPane openInWindow
Cheers,
Doru
On 1 Jan 2012, at 23:27, Sean P. DeNigris wrote:
Tudor Girba-2 wrote
--
www.tudorgirba.com
"Be rather willing to give than demanding to get."
Here is the code from the rendering in Glamour:
With this approach:
morph := anAddress asMorph
addButtons;
morph.
scrollPane := GeneralScrollPane new.
scrollPane changeScrollerTableLayout.
scrollPane scrollTarget: morph.
scrollPane layoutFrame: (LayoutFrame fractions: (0 @ 0 corner: 1 @ 1)).
scrollPane openInWindow
I got an emergency evaluator when I clicked "Save":
THERE_BE_DRAGONS_HERE
SubscriptOutOfBounds: 1
1 January 2012 5:24:26 pm
VM: Mac OS - intel - 1072 - Croquet Closure Cog VM [CoInterpreter
VMMaker-oscog-EstebanLorenzano.139] 21.0
Image: Pharo1.3 [Latest update: #13320]
Array(Object)>>errorSubscriptBounds:
Receiver: #()
Arguments and temporary variables:
index: 1
Receiver's instance variables:
#()
Array(Object)>>at:
Receiver: #()
Arguments and temporary variables:
index: 1
Receiver's instance variables:
#()
Array(SequenceableCollection)>>first
Receiver: #()
Arguments and temporary variables:
Receiver's instance variables:
#()
GeneralScrollPane>>scrollTarget
Receiver: a GeneralScrollPane(440139776)
Arguments and temporary variables:
Receiver's instance variables:
bounds: 50@139 corner: 686@431
owner: a SystemWindow(908591104)
submorphs: an Array(a TransformWithLayoutMorph(445382656))
fullBounds: 50@139 corner: 686@431
color: Color transparent
extension: a MorphExtension (222822400) [other: (myDependents -> a
DependentsA...etc...
scroller: a TransformWithLayoutMorph(445382656)
hScrollbar: a GeneralScrollBar(471334912)
vScrollbar: a GeneralScrollBar(237240320)
--
View this message in context:
http://forum.world.st/Customizing-Magritte-Morphic-Forms-tp4251570p4251729.…
Sent from the Moose mailing list archive at Nabble.com.
_______________________________________________
Moose-dev mailing list
Moose-dev(a)iam.unibe.ch
https://www.iam.unibe.ch/mailman/listinfo/moose-dev
11:58 p.m.
Tudor Girba-2 wrote
...I would actually be interested in a cleaner solution...
I'll let you know if I come up with anything. For my current experiment, the
fixed #addWindow is enough
--
View this message in context:
http://forum.world.st/Customizing-Magritte-Morphic-Forms-tp4251570p4251811.…
Sent from the Moose mailing list archive at Nabble.com.
4738
days inactive
4738
days old
5 comments
2 participants
participants (2)
-
Sean P. DeNigris -
Tudor Girba