home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / Add-Ons / BBEdit / MacBob 1.0ß2 / Examples / Trace.bob < prev    next >
Encoding:
Text File  |  1995-12-12  |  266 b   |  21 lines  |  [TEXT/R*ch]
  1. class Foo {
  2.     a, b; get_a();
  3. }
  4.  
  5. Foo::Foo () { a = 123; return this; }
  6. Foo::get_a () { return a; }
  7.  
  8. main ( ; s1)
  9. {
  10.     s1 = "Hello";
  11.     s1 += ',';
  12. trace(1);
  13.     s2 = ' ';
  14.     s2 += "World!";
  15.     s2 += ' ';
  16. trace(0);
  17.     stdout << s1 << s2 << "\n";
  18.     f = new Foo();
  19.     print(f.get_a());
  20. }
  21.