home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / c / xw2.000 / xw2 / xw / samples / gui-elements / switchbuttons.mta < prev   
Encoding:
Text File  |  1994-12-13  |  1.3 KB  |  37 lines
  1.  
  2. % This sample shows how to
  3. % - Make the VAR-PARAMETER of TEST90 editable
  4. % - Give a set of selections for VAR-PARAMER of TEST90
  5. % you can export OBJ:TEXT90.V to your Application via MFX-Groups
  6. % use <ESC> to exit this sample
  7.  
  8. Malloc(90);
  9. @shortstart( ("test") ("bw") );
  10.  
  11. wdw(TEST 1 6 12 14 ("helpfile.inf") 1 StandardWDW);
  12.  
  13. o(TEST00  S .  0  0 36 1 Remark 1); bg(TEST00 . (" Select"));   eg();
  14. o(TEST01  S .  0  1 36 1 Remark 1); bg(TEST01 . (" Buttons:")); eg();
  15.  
  16. o(TEST9A L XB  1  5  6 1 SecureLED 0);
  17.  :TEST9B L XB  1  6  6 1 SecureLED 0);
  18.  :TEST9C L XB  1  7  6 1 SecureLED 0);
  19.  :TEST9D L XB  1  8  6 1 SecureLED 0);
  20.  :TEST9E L XB  1  9  6 1 SecureLED 0);
  21.  :TEST9F L XB  1 10  6 1 SecureLED 0);
  22.  :TEST9G L XB  1 11  6 1 SecureLED 0);
  23.  :TEST9H L XB  1 12  6 1 SecureLED 0);
  24.   bg(TEST9A . 0); lt((" A:") 1 ("X") (" ") ("=")); eg();
  25.   bg(TEST9B . 0); lt((" B:") 1 ("X") (" ") ("=")); eg();
  26.   bg(TEST9C . 0); lt((" C:") 1 ("X") (" ") ("=")); eg();
  27.   bg(TEST9D . 0); lt((" D:") 1 ("X") (" ") ("=")); eg();
  28.   bg(TEST9E . 0); lt((" E:") 1 ("X") (" ") ("=")); eg();
  29.   bg(TEST9F . 0); lt((" F:") 1 ("X") (" ") ("=")); eg();
  30.   bg(TEST9G . 0); lt((" G:") 1 ("X") (" ") ("=")); eg();
  31.   bg(TEST9H . 0); lt((" H:") 1 ("X") (" ") ("=")); eg();
  32.  
  33. ng( KEY ("TEST:27.0")); c( K ("Exit();") ); eg(); /* ESC:Zurueck */
  34.  
  35. End();
  36.  
  37.