testsuite/tests/textentry3.ui

   1
   2 # ---------------------------------------------------------
   3 #
   4 #  Filename:    Textentry3.ui
   5 #
   6 #  Purpose:     test cases for ui test
   7 #
   8 #  Creator:     jd@suse.de
   9 #
  10 #  Maintainer:  jd@suse.de
  11 #
  12 #  Remarks:     Always the user interaction is removed:
  13 #                   any answer = UserInput();
  14 #               Furthermore the tested action is set into a loop
  15 #
  16 # ---------------------------------------------------------
  17
  18 // Example 3 for Textentry
  19 //
  20 // Syntax: Textentry( Id id,  UTF8 label ,UTF8 defaultText [, int maxLength, [int fieldSize]] )
  21 //
  22
  23 {
  24     any ok = `HBox(`Stretch(), `Pushbutton(`Id("ok"), "OK"), `Stretch());
  25     any dialog = Dialog( `VBox(
  26       `Textentry(`Id("text"), "&Please enter your name:", "Helmut"),
  27       ok
  28      ));
  29
  30     any CurrentMap = $[];
  31     integer loop = 0;
  32     while( loop < 100 )
  33     {
  34         any dialog = Dialog( `VBox(
  35           `Textentry(`Id("text"), "&Please enter your name:", "Helmut"),
  36           ok
  37          ));
  38
  39         ChangeWidget( dialog, `Id("text"), "Hans-Diether" );
  40         ShowDialog();
  41         CurrentMap = QueryDialog( dialog );
  42         CloseDialog();
  43
  44         if( ( is( CurrentMap, map ) == false ) ||
  45             ( size( CurrentMap ) != 1 ) ||
  46             ( select( CurrentMap, 0 ) != [ `Id("text"), "Hans-Diether" ] ) ) return false;
  47
  48         dialog = Dialog( `VBox(
  49           `Textentry(`Id("text"), "&Please enter your name:", "Helmut"),
  50           ok
  51          ));
  52
  53         ChangeWidget( dialog, `Id("text"), "Helmut" );
  54         ShowDialog();
  55         CurrentMap = QueryDialog( dialog );
  56         CloseDialog();
  57
  58         if( ( is( CurrentMap, map ) == false ) ||
  59             ( size( CurrentMap ) != 1 ) ||
  60             ( select( CurrentMap, 0 ) != [ `Id("text"), "Helmut" ] ) ) return false;
  61
  62         loop = loop + 1;
  63     }
  64
  65     return true;
  66 }