[squeak-dev] The Inbox: Morphic-sjce.1465.mcz
hannes.hirzel at gmail.com
Fri Mar 22 11:18:08 UTC 2019
Three cases which work fine:
((Morph new extent: 480 at 320; color: Color white) addMorph: 'my
string' asMorph) openInWindowLabeled: '480x320 (HVGA) resolution'
If I do not indicate a color for the container morph then I get the
default color for a new morph which is blue.
((Morph new extent: 480 at 320) addMorph: 'my string' asMorph)
openInWindowLabeled: '480x320 (HVGA) resolution'
And if I do not give a morph extent then I get the default size, but
the window works fine.
(Morph new addMorph: 'my string' asMorph) openInWindowLabeled:
'default morph object'
On 3/22/19, H. Hirzel <hannes.hirzel at gmail.com> wrote:
> P.S. The screen shot mentioned in the previous mail.
> On 3/22/19, H. Hirzel <hannes.hirzel at gmail.com> wrote:
>> On 3/22/19, Stephan Eggermont <stephan at stack.nl> wrote:
>>> Levente Uzonyi <leves at caesar.elte.hu> wrote:
>>>> Do you have a reproducible case fixed by this commit?
>>> To me it seems to be a workaround for a mistake: a morph's name is a
>>> Text instead of a String.
>>> ‘Text’ asMorph openInWindowLabeled: ‘Text’ asText
>>> You prefer additions to Text?
>> Hello Stephan
>> If I execute
>> 'My text' asMorph openInWindowLabeled: 'My window' asText
>> in Squeak 5.3alpha 68021 I get a tiny window (see screen shot). If I
>> want to grab it I get an error message. So window labels can not be
>> 'My text' asMorph openInWindowLabeled: 'My window' asString
>> does not exhibit this behaviour. However the window is black. So the
>> coding idiom to open a Morph in a window with a particular label must
>> be different.
>> have notes with some relevance for this issue.
>> For example #openInWindow: works fine. In class Morph #openInWindow:
>> is implemented.
>> p := PasteUpMorph new.
>> p extent: 600 at 1000.
>> p layoutPolicy: TableLayout new.
>> p listDirection: #leftToRight.
>> p wrapCentering: #topLeft.
>> p wrapDirection: #topToBottom.
>> p layoutPolicy: TableLayout new;
>> listDirection: #topToBottom;
>> color: Color white.
>> sp := ScrollPane new extent: 600 at 500.
>> sp scroller addMorph: p.
>> Project allNames asSortedCollection do:
>> [ :aName | p addMorph:
>> (ProjectViewMorph on: (Project named: aName)) ].
>> p color: Color green.
>> sp openInWindow: 'Projects'.
>> sp setScrollDeltas.
>> As Levente writes, the test case needs to be specified in more
>> details. Different patches might be needed.
More information about the Squeak-dev