Fetch descriptive motor name from the motor's long_name field.

r1769 | ffr | 2007-04-01 12:34:29 +1000 (Sun, 01 Apr 2007) | 2 lines
This commit is contained in:
Ferdi Franceschini
2007-04-01 12:34:29 +10:00
committed by Douglas Clowes
parent bb588c7d05
commit e67510e6bd

View File

@@ -7,7 +7,7 @@
set tmpstr [string map {"$" ""} {$Name: not supported by cvs2svn $}]
set nx_content_release_tag [lindex $tmpstr [expr [llength $tmpstr] - 1]]
set tmpstr [string map {"$" ""} {$Revision: 1.15 $}]
set tmpstr [string map {"$" ""} {$Revision: 1.16 $}]
set nx_content_revision_num [lindex $tmpstr [expr [llength $tmpstr] - 1]]
MakeNXScript
@@ -213,7 +213,7 @@ proc fillPath {nxobj sobj} {
proc fillMotPath {nxobj motor} {
$nxobj updatedictvar mot_name $motor;
$nxobj updatedictvar mot_long_name $motor;
$nxobj updatedictvar mot_long_name [SplitReply [$motor long_name]];
$nxobj updatedictvar mot_units [SplitReply [$motor units]];
}