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:
Ferdi Franceschini
2008-07-11 14:27:56 +10:00
committed by Douglas Clowes
parent cc579068e5
commit d5d42806bf
2 changed files with 13 additions and 4 deletions

View File

@@ -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
} }

View File

@@ -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 {} {