[Cuis-dev] Cuis Smalltalk Issues

[Mark]

Hi Hilaire,

Ah. This is my bad … I didn’t include the entire script.

Let’s try again … it still happens with this:

| list morph area extent |

"------------------------------------------------------"
"Delete all windows but the taskbar"
"------------------------------------------------------"
list := UISupervisor ui submorphs reject: [:aMorph |
   aMorph is: #TaskbarMorph].
list do: [:each | each delete].

"------------------------------------------------------"
"Change to Dark theme"
"------------------------------------------------------"
Feature require: #'Theme-Themes'.
DarkTheme beCurrent.
"Adjust font size"
Preferences verySmallFonts.
"Adjust taskbar size"
morph := UISupervisor ui submorphs first.
morph scale: 1 / 2.
Display fullScreenMode: true.
self runningWorld doOneCycle.

"------------------------------------------------------"
"Compute the available free space for windows placement"
"------------------------------------------------------"
area := RealEstateAgent maximumUsableArea
   extendBy: 0 @ morph morphHeight negated.
extent := area extent // 2.

(See bolded line, above)

Do I have to add that every time? Even with Smalltalk up and running from the Workspace?

Thanks!!

	— Mark

> On Nov 16, 2021, at 10:43 AM, Hilaire Fernandes via Cuis-dev <cuis-dev at lists.cuis.st> wrote:
> 
> You need to add this instruction (explained in the book):
> 
> self runningWorld doOneCycle.
> 
> and you should be happy.
> 
> Hilaire
> 
> Le 16/11/2021 à 18:46, Mark via Cuis-dev a écrit :
>> OBSERVATION #1
>> 
>> 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.
>> 
>> | list morph area extent |
>> 
>> "------------------------------------------------------"
>> "Delete all windows but the taskbar"
>> "------------------------------------------------------"
>> list := UISupervisor ui submorphs reject: [:aMorph |
>>    aMorph is: #TaskbarMorph].
>> list do: [:each | each delete].
>> 
>> 
> -- 
> GNU Dr. Geo
> http://drgeo.eu <http://drgeo.eu/>
> http://blog.drgeo.eu <http://blog.drgeo.eu/>-- 
> Cuis-dev mailing list
> Cuis-dev at lists.cuis.st
> https://lists.cuis.st/mailman/listinfo/cuis-dev

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.cuis.st/mailman/archives/cuis-dev/attachments/20211116/d28fa669/attachment.htm>