scriptCuisSmalltalkBoot

" . The block+value is for making a local variables context "

[ |list tbar area morph vmDir pathStr1 file1|

 "-] suggested by Hilaire on the mailing list.
     without this the existing morph on boot do not get cancelled.
 "
 self runningWorld doOneCycle.

 "-] get rid of all the morph except taskbar "
 list _ UISupervisor ui submorphs reject: [ :aMo | aMo is: #TaskbarMorph ].
 list do: [ :x | x delete ] .

 "-] font size i like"
 Preferences veryBigFonts .

 "-] open a Workspace "
 Workspace openWorkspace.

 "-] Install fature "
 Feature require: 'WebClient'.
 Feature require: 'JSON'.
 Feature require: 'OSProcess'.
 Feature require: 'TerseGuide'.
 Feature require: 'StyledText'.
 Feature require: 'SqueakCompatibility'.
 Feature require: 'CommandShell'.

 "-] For now RegEx is not a Feature, install as Package "
 vmDir _ DirectoryEntry smalltalkImageDirectory .
 pathStr1 _ vmDir parent pathName, 'Cuis-Smalltalk-RegEx/Regex-Core.pck.st'.
 file1 _  FileSystemEntry withPathName: pathStr1.
 CodePackageFile installPackage: file1.
 pathStr1 _ vmDir parent pathName, 'Cuis-Smalltalk-RegEx/Regex-Tests.pck.st'.
 file1 _  FileSystemEntry withPathName: pathStr1.
 CodePackageFile installPackage: file1.

 " TODO -- font, monospace. "

 "-] At the end do a Restore Display to redraw the World. "
 UISupervisor ui restoreDisplay .

] value.