<html><head><meta http-equiv="Content-Type" content="text/html; charset=utf-8"></head><body style="word-wrap: break-word; -webkit-nbsp-mode: space; line-break: after-white-space;" class="">Hi Hilaire,<div class=""><br class=""></div><div class="">Ah. This is my bad … I didn’t include the entire script.</div><div class=""><br class=""></div><div class="">Let’s try again … it still happens with this:</div><div class=""><br class=""></div><blockquote class="" style="margin: 0px 0px 0px 40px; border: none; padding: 0px;"><div class="">| list morph area extent |<br class=""><br class="">"------------------------------------------------------"<br class="">"Delete all windows but the taskbar"<br class="">"------------------------------------------------------"<br class="">list := UISupervisor ui submorphs reject: [:aMorph |<br class=""> aMorph is: #TaskbarMorph].<br class="">list do: [:each | each delete].<br class=""><br class="">"------------------------------------------------------"<br class="">"Change to Dark theme"<br class="">"------------------------------------------------------"<br class="">Feature require: #'Theme-Themes'.<br class="">DarkTheme beCurrent.<br class="">"Adjust font size"<br class="">Preferences verySmallFonts.<br class="">"Adjust taskbar size"<br class="">morph := UISupervisor ui submorphs first.<br class="">morph scale: 1 / 2.<br class="">Display fullScreenMode: true.<br class=""><b class="">self runningWorld doOneCycle.</b><br class=""><br class="">"------------------------------------------------------"<br class="">"Compute the available free space for windows placement"<br class="">"------------------------------------------------------"<br class="">area := RealEstateAgent maximumUsableArea<br class=""> extendBy: 0 @ morph morphHeight negated.<br class="">extent := area extent // 2.<br class=""><br class=""></div></blockquote><div class=""><div class="">(See <b class="">bolded</b> line, above)</div><div class=""><br class=""></div><div class="">Do I have to add that every time? Even with Smalltalk up and running from the Workspace?</div><div class=""><br class=""></div><div class="">Thanks!!</div><div class=""><br class=""></div><div class=""><span class="Apple-tab-span" style="white-space: pre;"> </span>— Mark</div></div><div><br class=""><blockquote type="cite" class=""><div class="">On Nov 16, 2021, at 10:43 AM, Hilaire Fernandes via Cuis-dev <<a href="mailto:cuis-dev@lists.cuis.st" class="">cuis-dev@lists.cuis.st</a>> wrote:</div><br class="Apple-interchange-newline"><div class="">
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" class="">
<div text="#000000" bgcolor="#FFFFFF" class="">
<pre class="example">You need to add this instruction (explained in the book):
self runningWorld doOneCycle.
and you should be happy.
Hilaire
</pre>
<div class="moz-cite-prefix">Le 16/11/2021 à 18:46, Mark via
Cuis-dev a écrit :<br class="">
</div>
<blockquote type="cite" cite="mid:7F216D4A-810C-40BC-AA33-0C5672DA0A04@virtualmdj.com" class="">
<div class="">OBSERVATION #1</div>
<div class=""><br class="">
</div>
<div class="">
<div class="">I did create a “startup script” to setup the
environment, which is great — but, it has its own issue. I’ve
included the following (based on the sample), and I would
expect the “Welcome to Cuis” window to be closed when it
receives the “delete” message … but, it’s still there, along
with a “Transcript” window showing that the package
“Theme-Themes” was successfully installed.</div>
</div>
<div class=""><br class="">
</div>
<blockquote style="margin: 0 0 0 40px; border: none; padding:
0px;" class="">
<div class="">| list morph area extent |<br class="">
<br class="">
"------------------------------------------------------"<br class="">
"Delete all windows but the taskbar"<br class="">
"------------------------------------------------------"<br class="">
list := UISupervisor ui submorphs reject: [:aMorph |<br class="">
aMorph is: #TaskbarMorph].<br class="">
list do: [:each | each delete].<br class="">
<br class="">
</div>
</blockquote>
<div class=""><br class="">
</div>
</blockquote>
<pre class="moz-signature" cols="72">--
GNU Dr. Geo
<a class="moz-txt-link-freetext" href="http://drgeo.eu/">http://drgeo.eu</a>
<a class="moz-txt-link-freetext" href="http://blog.drgeo.eu/">http://blog.drgeo.eu</a></pre>
</div>
-- <br class="">Cuis-dev mailing list<br class=""><a href="mailto:Cuis-dev@lists.cuis.st" class="">Cuis-dev@lists.cuis.st</a><br class="">https://lists.cuis.st/mailman/listinfo/cuis-dev<br class=""></div></blockquote></div><br class=""></body></html>