home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_400 / 402_01 / cforms-2.2 / example / system.frm < prev    next >
Encoding:
Text File  |  1993-07-20  |  563 b   |  37 lines
  1. /*
  2.  * Test application for CForms.
  3.  * @(#) system.frm,v 1.2 1993/05/31 20:09:02 lasse Exp
  4.  */
  5.  
  6. Viewport popup
  7. {
  8.     Pos 35,12;
  9.     Size 30, 4;
  10. }
  11.  
  12. Picture System Viewport popup
  13. {
  14.     Frame;
  15.     Event Key F8 { pic_leave(); }
  16.     Event Key Esc { pic_leave(); }
  17.  
  18.     Field System {
  19.     Pos Center, Center;
  20.     Type Char(25);
  21.     LValue "[";
  22.     Value "ls";
  23.     RValue "]";
  24.  
  25.     Event Key CR {
  26.         if (!fld_isempty(NULL))
  27.         {
  28.         /*cforms_system(fld_get(NULL), NULL);*/
  29.         cforms_system(fld_get(NULL), "(Press Enter)");
  30.         }
  31.     }
  32.     }
  33.     Literal +0, -1, "Enter system command:";
  34. }
  35.  
  36.  
  37.