Remove type prefixes from the "commands" which were refactored as tcl procedures.
r2214 | ffr | 2007-11-01 09:03:54 +1100 (Thu, 01 Nov 2007) | 2 lines
This commit is contained in:
committed by
Douglas Clowes
parent
83b82e43d0
commit
beb622526f
@@ -1,5 +1,5 @@
|
||||
# $Revision: 1.20 $
|
||||
# $Date: 2007-10-31 05:39:00 $
|
||||
# $Revision: 1.21 $
|
||||
# $Date: 2007-10-31 22:03:54 $
|
||||
# Author: Ferdi Franceschini
|
||||
# Based on the examples in the hs_test.tcl sample configuration by Mark Lesha.
|
||||
# http://gumtree.ansto.gov.au:9080/nbicms/bragg-systems/histogram-server/hs_test.tcl/view
|
||||
@@ -976,7 +976,7 @@ proc ::histogram_memory::post_count {} {}
|
||||
|
||||
##
|
||||
# @brief Choose method for controlling acquisition duration.
|
||||
proc ::histogram_memory::count_method {text:time,monitor,unlimited,period,count,frame method} {
|
||||
proc ::histogram_memory::count_method {method} {
|
||||
set modes [list time monitor unlimited period count frame]
|
||||
if {[lsearch $modes $method] == -1} {
|
||||
return -code error "Count mode, $method, must be one of $modes"
|
||||
@@ -990,7 +990,7 @@ proc ::histogram_memory::post_count {} {}
|
||||
#
|
||||
# @param preset: The interpretation of the preset depends on the count method.
|
||||
# @see count_method
|
||||
proc ::histogram_memory::count_size {float: preset} {
|
||||
proc ::histogram_memory::count_size {preset} {
|
||||
hmm configure FAT_COUNT_SIZE [expr 100.0 * $preset]
|
||||
hmm init 0
|
||||
hmm init
|
||||
@@ -999,7 +999,7 @@ proc ::histogram_memory::post_count {} {}
|
||||
# @brief Set stop condition for histogram memory
|
||||
#
|
||||
# @param condition
|
||||
proc ::histogram_memory::stop_condition {text:immediate,period condition} {
|
||||
proc ::histogram_memory::stop_condition {condition} {
|
||||
array set count_stop {immediate IMMEDIATE period AT_END_OF_PERIOD}
|
||||
hmm configure FAT_COUNT_STOP $count_stop($condition)
|
||||
hmm init 0
|
||||
|
||||
Reference in New Issue
Block a user