testsuite/tests/stretch2.ui

   1
   2 # ---------------------------------------------------------
   3 #
   4 #  Filename:    Stretch2.ui
   5 #
   6 #  Purpose:     test cases for UI test
   7 #
   8 #  Creator:     jd@suse.de
   9 #
  10 #  Maintainer:  jd@suse.de
  11 #
  12 # ---------------------------------------------------------
  13
  14
  15 // Example 2 for Stretch
  16 //
  17 // Syntax: Stretch()
  18 //
  19
  20
  21 {
  22     any ok = `HBox(`Stretch(), `Pushbutton(`Id("ok"), "OK"), `Stretch());
  23
  24     integer loop = 0;
  25     while( loop < 100 )
  26     {
  27         ShowDialog(
  28             Dialog(`VBox(
  29               `Stretch(),
  30               `Label("Some text goes here"),
  31               `Stretch(),
  32               `Label("This is some more text"),
  33               ok
  34              )));
  35         any CurrentMap = QueryDialog( );
  36         CloseDialog();
  37
  38         if( ( is( CurrentMap, map ) == false ) || ( size( CurrentMap ) != 0 )) return( false );
  39
  40         loop = loop + 1;
  41     }
  42
  43     return true;
  44 }