diff --git a/tcl/drivers/secop_4.tcl b/tcl/drivers/secop_4.tcl index 53f97d8..d3638cf 100644 --- a/tcl/drivers/secop_4.tcl +++ b/tcl/drivers/secop_4.tcl @@ -740,6 +740,17 @@ proc secop::update_ {} { clientlog ACTIVE } } + set act [silent 0 sct activate_stick] + if {$act} { + sct activate_stick 0 + dolater 0 activate_stick + } else { + set act [silent 0 sct activate_addon] + if {$act} { + sct activate_addon 0 + dolater 0 activate_addon + } + } sct active 1 sct end_fast 0 } diff --git a/tcl/secop.addon b/tcl/secop.addon new file mode 100644 index 0000000..0eb20aa --- /dev/null +++ b/tcl/secop.addon @@ -0,0 +1,8 @@ +addonDesc = SECoP test (version v1.0) + +set ::secop_version 4 + +makenv secopaddon -driver secop +#debug _secopaddon + +#dolater 0 _secop poll /secop 1 read test diff --git a/tcl/secop.config b/tcl/secop.config new file mode 100644 index 0000000..44f9778 --- /dev/null +++ b/tcl/secop.config @@ -0,0 +1,8 @@ +deviceDesc = SECoP test (version v1.0) + +set ::secop_version 4 + +makenv secop -driver secop +#debug _secop + +#dolater 0 _secop poll /secop 1 read test diff --git a/tcl/secop.stick b/tcl/secop.stick new file mode 100644 index 0000000..39b7602 --- /dev/null +++ b/tcl/secop.stick @@ -0,0 +1,8 @@ +stickDesc = SECoP test (version v1.0) + +set ::secop_version 4 + +makenv secopstick -driver secop +#debug _secopstick + +#dolater 0 _secop poll /secop 1 read test diff --git a/tcl/startup/frappy.tcl b/tcl/startup/frappy.tcl index bd3b570..62e9782 100644 --- a/tcl/startup/frappy.tcl +++ b/tcl/startup/frappy.tcl @@ -481,3 +481,4 @@ publishLazy frappy_remove Spy publishLazy check_config Spy publishLazy describe_obj Spy publishLazy treatvars +publishLazy sea_recorder