log_note log_error log_warning

testop.tcl

=========

proc testop_initialize { } {

}

proc testop_start { state} {  

  variable testopsp  

  set testopsp $state  

  log_note "set test_shutter to $testopsp"        

  log_error "error information"        

  log_warning "warning information"

}

=========

in device db

testop

11

self testop

0 1 1 1 1

0 1 1 1 1