linse/sics
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

counter_common_1.tcl

Browse Source 
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
Download Patch File Download Diff File Expand all files Collapse all files

2
site_ansto/instrument/config/commands/commands_common.tcl
View File

@@ -72,9 +72,7 @@ namespace eval monitor {
} {
::monitor::count -set feedback status BUSY
bm setmode $mode
bm_mode $mode
bm count $preset
bm_preset $preset
::monitor::count -set feedback counts [SplitReply [bm getcounts]];
::monitor::count -set feedback status IDLE
}

15
site_ansto/instrument/config/counter/counter_common_1.tcl
View File

@@ -42,8 +42,19 @@ proc ::counter::ic_initialize {} {
bm transferscript ::counter::transferscript
bm SetExponent 0
sicslist setatt bm privilege internal
::utility::mkVar bm_mode Text user mode true monitor true true
::utility::mkVar bm_preset Float user preset true monitor true true
::utility::macro::getset text bm_mode {} {
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 {} {