Posted to tcl by colin at Fri Nov 12 13:22:38 GMT 2010view raw

  1. oo::class create ::Httpd {}
  2.  
  3. oo::objdefine ::Httpd {
  4. method Suspend {} {}
  5. method Resume {} {}
  6. }
  7.  
  8. ::Httpd Suspend
  9. ::Httpd Resume