home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 May / Chip_2000-05_cd2.bin / suse / inst-sys / lib / YaST2 / clients / argtest.ycp next >
Encoding:
Text File  |  2000-03-30  |  331 b   |  15 lines
  1. // This simple module can be used to test the mechanism
  2. // thas passes arguments to a client component. It simply
  3. // displays a dialog with a label displaying the argument list.
  4. {
  5. UI(``{
  6.     define listargs(list a) ``{
  7.     OpenDialog(`Label(sformat("Args: %1", a)));
  8.     UserInput();
  9.     CloseDialog();
  10.     };
  11. });
  12.  
  13. UI(`listargs(Args()));
  14. }
  15.