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 / BASIC-PRINCIPLES / pack-objects.xwx < prev    next >
Encoding:
Text File  |  1994-12-04  |  538 b   |  19 lines
  1.  
  2. % This sample shows how to
  3. % - write objects in pure object-oriented form
  4.  
  5. Malloc(90);
  6. @xbwstart(("test") ("bw") );
  7. wdw(TEST 4 3 7 9 StandardWDW);
  8. o(TEST01 S S 1 1 2 2 Standard); bg(TEST01 . BE); eg();
  9. o(TEST02 S S 3 1 2 2 Standard); bg(TEST02 . ER); eg();
  10. o(TEST03 S S 1 3 2 2 Standard); bg(TEST03 . BE); eg();
  11. o(TEST04 S S 3 3 2 2 Standard); bg(TEST04 . ER); eg();
  12. o(TEST05 S S 1 5 2 2 Standard); bg(TEST05 . BE); eg();
  13. o(TEST06 S S 3 5 2 2 Standard); bg(TEST06 . ER); eg();
  14.  
  15. SelectWdw(TEST);
  16. Message(("Project Complete."));
  17. End();
  18.  
  19.