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

oo::class create ::Httpd {}

oo::objdefine ::Httpd {
    method Suspend {} {}
    method Resume {} {}
}

::Httpd Suspend
::Httpd Resume