<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
</head>
<body bgcolor="#ffffff" text="#000000">
Squeak3.10.gamma.7159<br>
<br>
The following code gives surprising results:<br>
--<br>
<i> | window pasteUpMorph |<br>
(pasteUpMorph := PasteUpMorph new) color: Color green.<br>
window := SystemWindow new.<br>
window addMorph: pasteUpMorph frame: (<a class="moz-txt-link-abbreviated" href="mailto:0@0.1">0@0.1</a> corner: 1@1). <br>
window openInWorld.</i><br>
--<br>
The result is a SystemsWindow with all submorphs green except the
pasteUpMorph, which is white!<br>
<br>
The offending statements are in SystemWindowaddMorph: aMorph fullFrame:
aLayoutFrame<br>
<i>aMorph adoptPaneColor: self paneColor.<br>
aMorph borderWidth: 1; borderColor: Color lightGray; color: Color
white.<br>
<br>
self paneColor</i> has surprising side effects. <br>
- It sets set the SystemsWindow property:
paneColor->pasteupMorph color. (i.e., green)<br>
- It sets the color of all SystemsWindow submorphs to the new
color (i.e. green)<br>
<i>aMorph borderWidth: 1; borderColor: Color lightGray; color: Color
white.<br>
</i>simply sets the color of the pasteUpMorph to white.<br>
<br>
The result is that <i>ScrollPane>>example1</i> and any other
simple use of <i>ScrollPane </i>don't work properly.<br>
I fixed the problem by setting the SystemWindow>>paneColor early:<br>
<i> </i><i> | window pasteUpMorph |<br>
(pasteUpMorph := PasteUpMorph new) color: Color green.<br>
window := SystemWindow new.</i><br>
<font color="#ff0000"><u><i>window paneColor: Color white.</i></u></font><br>
<i> window addMorph: pasteUpMorph frame: (<a class="moz-txt-link-abbreviated" href="mailto:0@0.1">0@0.1</a> corner: 1@1). <br>
window openInWorld.</i><u><i></i></u><br>
<br>
<br>
Enjoy<br>
--Trygve<br>
<br>
<br>
<br>
<br>
<br>
<br>
<div class="moz-signature">-- <br>
<br>
<br>
<meta http-equiv="Content-Type" content="text/html; ">
<meta name="ProgId" content="Word.Document">
<meta name="Generator" content="Microsoft Word 10">
<meta name="Originator" content="Microsoft Word 10">
<link rel="File-List" href="TrygveSignature-filer/filelist.xml">
<title>-- </title>
<!--[if gte mso 9]><xml>
<w:WordDocument>
<w:SpellingState>Clean</w:SpellingState>
<w:GrammarState>Clean</w:GrammarState>
<w:HyphenationZone>21</w:HyphenationZone>
<w:PunctuationKerning/>
<w:DrawingGridHorizontalSpacing>6 pt</w:DrawingGridHorizontalSpacing>
<w:DrawingGridVerticalSpacing>6 pt</w:DrawingGridVerticalSpacing>
<w:DisplayHorizontalDrawingGridEvery>0</w:DisplayHorizontalDrawingGridEvery>
<w:DisplayVerticalDrawingGridEvery>3</w:DisplayVerticalDrawingGridEvery>
<w:UseMarginsForDrawingGridOrigin/>
<w:DoNotShadeFormData/>
<w:Compatibility>
<w:FootnoteLayoutLikeWW8/>
<w:ShapeLayoutLikeWW8/>
<w:AlignTablesRowByRow/>
<w:ForgetLastTabAlignment/>
<w:LayoutRawTableWidth/>
<w:LayoutTableRowsApart/>
<w:UseWord97LineBreakingRules/>
</w:Compatibility>
<w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel>
</w:WordDocument>
</xml><![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{mso-style-parent:"";
margin:0cm;
margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:12.0pt;
font-family:"Times New Roman";
mso-fareast-font-family:"Times New Roman";}
span.SpellE
{mso-style-name:"";
mso-spl-e:yes;}
span.GramE
{mso-style-name:"";
mso-gram-e:yes;}
/* Page Definitions */
@page
{mso-page-border-surround-header:no;
mso-page-border-surround-footer:no;}
@page Section1
{size:612.0pt 792.0pt;
margin:70.85pt 70.85pt 70.85pt 70.85pt;
mso-header-margin:35.4pt;
mso-footer-margin:35.4pt;
mso-paper-source:0;}
div.Section1
{page:Section1;}
-->
</style><!--[if gte mso 10]>
<style>
/* Style Definitions */
table.MsoNormalTable
{mso-style-name:"Vanlig tabell";
mso-tstyle-rowband-size:0;
mso-tstyle-colband-size:0;
mso-style-noshow:yes;
mso-style-parent:"";
mso-padding-alt:0cm 5.4pt 0cm 5.4pt;
mso-para-margin:0cm;
mso-para-margin-bottom:.0001pt;
mso-pagination:widow-orphan;
font-size:10.0pt;
font-family:"Times New Roman";}
</style>
<![endif]--><!--[if gte mso 9]><xml>
<o:shapedefaults v:ext="edit" spidmax="2050"/>
</xml><![endif]--><!--[if gte mso 9]><xml>
<o:shapelayout v:ext="edit">
<o:idmap v:ext="edit" data="1"/>
</o:shapelayout></xml><![endif]-->
<div class="Section1">
<p class="MsoNormal" style=""><span class="SpellE"><span
style="font-size: 10pt; font-family: Arial;" lang="EN-GB">Trygve</span></span><span
style="font-size: 10pt; font-family: Arial;" lang="EN-GB">
Reenskaug<span style=""> </span>mailto: <span class="SpellE"><a class="moz-txt-link-abbreviated" href="mailto:trygver@ifi.uio.no">trygver@ifi.uio.no</a></span></span><span
style="font-size: 10pt; font-family: Arial;"><o:p></o:p></span></p>
<p class="MsoNormal" style=""><span class="SpellE"><span class="GramE"><span
style="font-size: 10pt; font-family: Arial;" lang="EN-GB">Morgedalsvn</span></span></span><span
class="GramE"><span style="font-size: 10pt; font-family: Arial;"
lang="EN-GB">.</span></span><span
style="font-size: 10pt; font-family: Arial;" lang="EN-GB"> 5A <span
style=""> </span><a class="moz-txt-link-freetext" href="http://heim.ifi.uio.no/~trygver">http://heim.ifi.uio.no/~trygver</a><o:p></o:p></span></p>
<p class="MsoNormal" style=""><span
style="font-size: 10pt; font-family: Arial;">N-0378
Oslo<span style=""> </span>Tel: (+47) 22 49 57 27<o:p></o:p></span></p>
<p class="MsoNormal" style=""><span class="SpellE"><span
style="font-size: 10pt; font-family: Arial;">Norway</span></span><span
style="font-size: 10pt; font-family: Arial;"><o:p></o:p></span></p>
</div>
</div>
</body>
</html>