--- 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'!