RegressionTests__ElectronGraphicDeviceTest.st
changeset 2489 f28cde89e199
parent 2488 35a90639b830
child 2503 cb689968d5e2
--- a/RegressionTests__ElectronGraphicDeviceTest.st	Sun Dec 15 02:07:46 2019 +0100
+++ b/RegressionTests__ElectronGraphicDeviceTest.st	Sun Dec 15 03:50:25 2019 +0100
@@ -207,6 +207,29 @@
         test_08_WindowPosition;
         tearDown
     "
+!
+
+test_10_Subview
+    |top v|
+
+    top := StandardSystemView onDevice:display.
+    top origin:100@100 extent:300@300.
+    top viewBackground:(Color green).
+
+    top addSubView:(v := View new).
+    v origin:50@50 extent:100@100.
+    v viewBackground:(Color red).
+
+    top realize.
+    Delay waitForSeconds:2.
+    top destroy.
+
+    "
+     self new 
+        setUp;
+        test_10_Subview;
+        tearDown
+    "
 ! !
 
 !ElectronGraphicDeviceTest class methodsFor:'documentation'!