| 941 | |
| 942 | |
| 943 | int |
| 944 | TclFeViewer_clearImage(ClientData clientData, Tcl_Interp *interp, int argc, |
| 945 | TCL_Char **argv) |
| 946 | { |
| 947 | #ifdef _NOGRAPHICS |
| 948 | // if no graphics .. just return 0 |
| 949 | return TCL_OK; |
| 950 | #else |
| 951 | |
| 952 | // check destructor has not been called |
| 953 | if (theTclFeViewer == 0) |
| 954 | return TCL_OK; |
| 955 | |
| 956 | theTclFeViewer->clearImage(); |
| 957 | return TCL_OK; |
| 958 | #endif |
| 959 | } |
| 960 | |
| 961 | int |
| 962 | TclFeViewer_saveImage(ClientData clientData, Tcl_Interp *interp, int argc, |
nothing calls this directly
no test coverage detected