RegressionTests__ElectronGraphicDeviceTest.st
changeset 2489 f28cde89e199
parent 2488 35a90639b830
child 2503 cb689968d5e2
equal deleted inserted replaced
2488:35a90639b830 2489:f28cde89e199
   205      self new 
   205      self new 
   206         setUp;
   206         setUp;
   207         test_08_WindowPosition;
   207         test_08_WindowPosition;
   208         tearDown
   208         tearDown
   209     "
   209     "
       
   210 !
       
   211 
       
   212 test_10_Subview
       
   213     |top v|
       
   214 
       
   215     top := StandardSystemView onDevice:display.
       
   216     top origin:100@100 extent:300@300.
       
   217     top viewBackground:(Color green).
       
   218 
       
   219     top addSubView:(v := View new).
       
   220     v origin:50@50 extent:100@100.
       
   221     v viewBackground:(Color red).
       
   222 
       
   223     top realize.
       
   224     Delay waitForSeconds:2.
       
   225     top destroy.
       
   226 
       
   227     "
       
   228      self new 
       
   229         setUp;
       
   230         test_10_Subview;
       
   231         tearDown
       
   232     "
   210 ! !
   233 ! !
   211 
   234 
   212 !ElectronGraphicDeviceTest class methodsFor:'documentation'!
   235 !ElectronGraphicDeviceTest class methodsFor:'documentation'!
   213 
   236 
   214 version_CVS
   237 version_CVS