Changeset 3263
- Timestamp:
- Jan 25, 2013, 1:57:09 PM (12 years ago)
- Location:
- branches/Rappture 1.2
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/Rappture 1.2/gui/scripts/vtkcontourviewer.tcl
r3177 r3263 924 924 } 925 925 926 if 1 { 927 # Tell the server the name of the tool, the version, and dataset 928 # that we are rendering. Have to do it here because we don't know 929 # what data objects are using the renderer until be get here. 930 set args "" 931 lappend args tool [$_first hints toolId] 932 lappend args version [$_first hints toolRevision] 933 lappend args dataset [$_first hints label] 934 SendCmd "clientinfo [list $args]" 935 } 936 926 937 foreach axis { x y z } { 927 938 set label [$_first hints ${axis}label] -
branches/Rappture 1.2/gui/scripts/vtkheightmapviewer.tcl
r3261 r3263 989 989 } 990 990 991 if 0{991 if 1 { 992 992 # Tell the server the name of the tool, the version, and dataset 993 993 # that we are rendering. Have to do it here because we don't know … … 997 997 lappend args version [$_first hints toolRevision] 998 998 lappend args dataset [$_first hints label] 999 SendCmd "clientinfo $args"999 SendCmd "clientinfo [list $args]" 1000 1000 } 1001 1001 -
branches/Rappture 1.2/gui/scripts/vtkstreamlinesviewer.tcl
r3177 r3263 1062 1062 } 1063 1063 1064 if 0{1064 if 1 { 1065 1065 # Tell the server the name of the tool, the version, and dataset 1066 1066 # that we are rendering. Have to do it here because we don't know … … 1070 1070 lappend args version [$_first hints toolRevision] 1071 1071 lappend args dataset [$_first hints label] 1072 SendCmd "clientinfo $args"1072 SendCmd "clientinfo [list $args]" 1073 1073 } 1074 1074 -
branches/Rappture 1.2/gui/scripts/vtkviewer.tcl
r3177 r3263 940 940 if { $location != "" } { 941 941 array set view $location 942 } 943 944 if 1 { 945 # Tell the server the name of the tool, the version, and dataset 946 # that we are rendering. Have to do it here because we don't know 947 # what data objects are using the renderer until be get here. 948 set args "" 949 lappend args tool [$_first hints toolId] 950 lappend args version [$_first hints toolRevision] 951 lappend args dataset [$_first hints label] 952 SendCmd "clientinfo [list $args]" 942 953 } 943 954 -
branches/Rappture 1.2/gui/scripts/vtkvolumeviewer.tcl
r3177 r3263 1034 1034 } 1035 1035 1036 if 0{1036 if 1 { 1037 1037 # Tell the server the name of the tool, the version, and dataset 1038 1038 # that we are rendering. Have to do it here because we don't know … … 1042 1042 lappend args version [$_first hints toolRevision] 1043 1043 lappend args dataset [$_first hints label] 1044 SendCmd "clientinfo $args"1044 SendCmd "clientinfo [list $args]" 1045 1045 } 1046 1046 -
branches/Rappture 1.2/packages/vizservers/vtkvis/RpVtkRendererCmd.cpp
r3262 r3263 2086 2086 2087 2087 static int 2088 ClientInfoCmd(ClientData clientData, Tcl_Interp *interp, int objc, 2089 Tcl_Obj *const *objv) 2090 { 2091 int cinfoc; 2092 Tcl_Obj **cinfov = NULL; 2093 if (Tcl_ListObjGetElements(interp, objv[1], &cinfoc, &cinfov) != TCL_OK) { 2094 return TCL_ERROR; 2095 } 2096 if ((cinfoc % 2) != 0) { 2097 TRACE("cinfoc: %d", cinfoc); 2098 Tcl_AppendResult(interp, "wrong # elements in clientinfo: should be ", 2099 "{name value name value...}", (char*)NULL); 2100 return TCL_ERROR; 2101 } 2102 TRACE("Client Info: %d items", cinfoc/2); 2103 for (int i = 0; i < cinfoc; i += 2) { 2104 TRACE("%s = %s", Tcl_GetString(cinfov[i]), Tcl_GetString(cinfov[i+1])); 2105 } 2106 return TCL_OK; 2107 } 2108 2109 static int 2088 2110 ColorMapAddOp(ClientData clientData, Tcl_Interp *interp, int objc, 2089 2111 Tcl_Obj *const *objv) … … 9675 9697 Tcl_CreateObjCommand(interp, "box", BoxCmd, clientData, NULL); 9676 9698 Tcl_CreateObjCommand(interp, "camera", CameraCmd, clientData, NULL); 9699 Tcl_CreateObjCommand(interp, "clientinfo", ClientInfoCmd, clientData, NULL); 9677 9700 Tcl_CreateObjCommand(interp, "colormap", ColorMapCmd, clientData, NULL); 9678 9701 Tcl_CreateObjCommand(interp, "cone", ConeCmd, clientData, NULL); … … 9711 9734 Tcl_DeleteCommand(interp, "box"); 9712 9735 Tcl_DeleteCommand(interp, "camera"); 9736 Tcl_DeleteCommand(interp, "clientinfo"); 9713 9737 Tcl_DeleteCommand(interp, "colormap"); 9714 9738 Tcl_DeleteCommand(interp, "cone");
Note: See TracChangeset
for help on using the changeset viewer.