counter_common_1.tcl
commands_common.tcl Make sure that bm mode and preset are saved by adding bm_mode and bm_preset 'getset macros' to the hdb tree r2647 | ffr | 2008-07-11 14:27:56 +1000 (Fri, 11 Jul 2008) | 4 lines
This commit is contained in:
committed by
Douglas Clowes
parent
cc579068e5
commit
d5d42806bf
@@ -72,9 +72,7 @@ namespace eval monitor {
|
|||||||
} {
|
} {
|
||||||
::monitor::count -set feedback status BUSY
|
::monitor::count -set feedback status BUSY
|
||||||
bm setmode $mode
|
bm setmode $mode
|
||||||
bm_mode $mode
|
|
||||||
bm count $preset
|
bm count $preset
|
||||||
bm_preset $preset
|
|
||||||
::monitor::count -set feedback counts [SplitReply [bm getcounts]];
|
::monitor::count -set feedback counts [SplitReply [bm getcounts]];
|
||||||
::monitor::count -set feedback status IDLE
|
::monitor::count -set feedback status IDLE
|
||||||
}
|
}
|
||||||
|
|||||||
@@ -42,8 +42,19 @@ proc ::counter::ic_initialize {} {
|
|||||||
bm transferscript ::counter::transferscript
|
bm transferscript ::counter::transferscript
|
||||||
bm SetExponent 0
|
bm SetExponent 0
|
||||||
sicslist setatt bm privilege internal
|
sicslist setatt bm privilege internal
|
||||||
::utility::mkVar bm_mode Text user mode true monitor true true
|
::utility::macro::getset text bm_mode {} {
|
||||||
::utility::mkVar bm_preset Float user preset true monitor true true
|
return [bm getmode]
|
||||||
|
}
|
||||||
|
sicslist setatt bm_mode klass monitor
|
||||||
|
sicslist setatt bm_mode long_name mode
|
||||||
|
sicslist setatt bm_mode mutable false
|
||||||
|
|
||||||
|
::utility::macro::getset float bm_preset {} {
|
||||||
|
return [bm getpreset]
|
||||||
|
}
|
||||||
|
sicslist setatt bm_preset klass monitor
|
||||||
|
sicslist setatt bm_preset long_name preset
|
||||||
|
sicslist setatt bm_preset mutable false
|
||||||
|
|
||||||
|
|
||||||
::utility::macro::getset float monitor_counts {} {
|
::utility::macro::getset float monitor_counts {} {
|
||||||
|
|||||||
Reference in New Issue
Block a user