--- a/RegressionTests__ElectronGraphicDeviceTest.st	Fri Dec 13 21:56:09 2019 +0100
+++ b/RegressionTests__ElectronGraphicDeviceTest.st	Sun Dec 15 01:41:52 2019 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "{ Package: 'stx:goodies/regression' }"
 
 "{ NameSpace: RegressionTests }"
@@ -92,7 +94,7 @@
 test_03_WindowCreation
     |v|
 
-    v := TopView onDevice:display.
+    v := StandardSystemView onDevice:display.
     
     "
      self new test_03_WindowCreation
@@ -102,13 +104,87 @@
 test_04_WindowCreateAndMap
     |v|
 
-    v := TopView onDevice:display.
+    v := StandardSystemView onDevice:display.
     v realize.
+    Delay waitForSeconds:1.
     v destroy.
 
     "
      self new test_04_WindowCreateAndMap
     "
+!
+
+test_05_WindowResize
+    |v|
+
+    v := StandardSystemView onDevice:display.
+    v extent:300@300.
+    v origin:100@100.
+    v realize.
+    Delay waitForSeconds:1.
+    "/ display bridge callFunction:'test1' withArguments:#().
+    "/ Delay waitForSeconds:1.
+    "/ display bridge callFunction:'test2' withArguments:#().
+    "/ Delay waitForSeconds:1.
+    "/ display bridge callFunction:'test3' withArguments:#().
+
+    v extent:600@100.
+    "/ display testResize:v id.
+    "/ v extent:(500@500).
+    "/ Delay waitForSeconds:1.
+    "/ v extent:(200@200).
+    Delay waitForSeconds:1.
+    v destroy.
+
+    "
+     self new 
+        setUp;
+        test_05_WindowResize;
+        tearDown
+    "
+!
+
+test_06_WindowTitle
+    |v|
+
+    v := StandardSystemView onDevice:display.
+    v extent:300@300.
+    v realize.
+    Delay waitForSeconds:1.
+    v label:'AAAA'.
+    Delay waitForSeconds:1.
+    v label:'BBBB'.
+    Delay waitForSeconds:1.
+    v label:'CCCC'.
+    v destroy.
+
+    "
+     self new 
+        setUp;
+        test_06_WindowTitle;
+        tearDown
+    "
+!
+
+test_07_WindowBackground
+    |v|
+
+    v := StandardSystemView onDevice:display.
+    v extent:300@300.
+    v realize.
+    Delay waitForSeconds:1.
+    v viewBackground:(Color red).
+    Delay waitForSeconds:1.
+    v viewBackground:(Color green).
+    Delay waitForSeconds:1.
+    v destroy.
+
+    "
+     self new 
+        setUp;
+        test_07_WindowBackground;
+        tearDown
+    "
 ! !
 
 !ElectronGraphicDeviceTest class methodsFor:'documentation'!