If you look at what #openInWindow does, you will be taken to
Morph>>openInWindowLabeled: aString inWorld: aWorld
where you can see how the SystemWindow
morph is created and added to it. You can replace it with StandardWindow
if you need a theme.
source
to share