Changeset 3302 for branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl
- Timestamp:
- Feb 17, 2013, 8:27:24 AM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl
r3301 r3302 984 984 global env 985 985 986 puts stderr "sending clientinfo" 987 lappend data "hub" [exec hostname] 988 lappend data "viewer" "vtkheightmapviewer" 986 lappend out "hub" [exec hostname] 987 lappend out "viewer" "vtkheightmapviewer" 989 988 if { [info exists env(USER)] } { 990 lappend data"user" $env(USER)989 lappend out "user" $env(USER) 991 990 } 992 991 if { [info exists env(SESSION)] } { 993 lappend data"session" $env(SESSION)992 lappend out "session" $env(SESSION) 994 993 } 995 lappend data "tool_id" [$_first hints toolId] 996 lappend data "tool_version" [$_first hints toolRevision] 997 lappend data "tool_title" [$_first hints toolTitle] 998 lappend data "tool_dataset" [$_first hints label] 999 SendCmd "clientinfo [list $data]" 994 lappend out "tool_id" [$_first hints toolId] 995 lappend out "tool_name" [$_first hints toolName] 996 lappend out "tool_version" [$_first hints toolRevision] 997 lappend out "tool_title" [$_first hints toolTitle] 998 lappend out "tool_dataset" [$_first hints label] 999 SendCmd "clientinfo [list $out]" 1000 1000 } 1001 1001 set _fieldNames [$_first hints fieldnames]
Note: See TracChangeset
for help on using the changeset viewer.