summaryrefslogtreecommitdiffstats
path: root/tkblt/generic/tkbltGrHairsOp.C
diff options
context:
space:
mode:
authorWilliam Joye <wjoye@cfa.harvard.edu>2017-08-08 20:06:26 (GMT)
committerWilliam Joye <wjoye@cfa.harvard.edu>2017-08-08 20:06:26 (GMT)
commit2720d8e54382835b3a82f99dcd9425385fb7ba1c (patch)
treeff07e44bfdc94d1e8a96ae47cbd03211bf211e3a /tkblt/generic/tkbltGrHairsOp.C
parent365988b70f6f878f73be1a8c3fe37345443d3354 (diff)
parent4773cc1128f60e83ba5721fe1ad3497b15078361 (diff)
downloadblt-2720d8e54382835b3a82f99dcd9425385fb7ba1c.zip
blt-2720d8e54382835b3a82f99dcd9425385fb7ba1c.tar.gz
blt-2720d8e54382835b3a82f99dcd9425385fb7ba1c.tar.bz2
Merge commit '4773cc1128f60e83ba5721fe1ad3497b15078361'
Diffstat (limited to 'tkblt/generic/tkbltGrHairsOp.C')
-rw-r--r--tkblt/generic/tkbltGrHairsOp.C164
1 files changed, 164 insertions, 0 deletions
diff --git a/tkblt/generic/tkbltGrHairsOp.C b/tkblt/generic/tkbltGrHairsOp.C
new file mode 100644
index 0000000..57650ce
--- /dev/null
+++ b/tkblt/generic/tkbltGrHairsOp.C
@@ -0,0 +1,164 @@
+/*
+ * Smithsonian Astrophysical Observatory, Cambridge, MA, USA
+ * This code has been modified under the terms listed below and is made
+ * available under the same terms.
+ */
+
+/*
+ * Copyright 1993-2004 George A Howlett.
+ *
+ * Permission is hereby granted, free of charge, to any person
+ * obtaining a copy of this software and associated documentation
+ * files (the "Software"), to deal in the Software without
+ * restriction, including without limitation the rights to use,
+ * copy, modify, merge, publish, distribute, sublicense, and/or
+ * sell copies of the Software, and to permit persons to whom the
+ * Software is furnished to do so, subject to the following
+ * conditions:
+ *
+ * The above copyright notice and this permission notice shall be
+ * included in all copies or substantial portions of the
+ * Software.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY
+ * KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE
+ * WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR
+ * PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS
+ * OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR
+ * OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
+ * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
+ * SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
+ */
+
+#include "tkbltGraph.h"
+#include "tkbltGrHairs.h"
+#include "tkbltGrHairsOp.h"
+
+using namespace Blt;
+
+static int CrosshairsObjConfigure(Graph* graphPtr, Tcl_Interp* interp,
+ int objc, Tcl_Obj* const objv[])
+{
+ Crosshairs* chPtr = graphPtr->crosshairs_;
+ Tk_SavedOptions savedOptions;
+ int mask =0;
+ int error;
+ Tcl_Obj* errorResult;
+
+ for (error=0; error<=1; error++) {
+ if (!error) {
+ if (Tk_SetOptions(interp, (char*)chPtr->ops(), chPtr->optionTable(),
+ objc, objv, graphPtr->tkwin_, &savedOptions, &mask)
+ != TCL_OK)
+ continue;
+ }
+ else {
+ errorResult = Tcl_GetObjResult(interp);
+ Tcl_IncrRefCount(errorResult);
+ Tk_RestoreSavedOptions(&savedOptions);
+ }
+
+ if (chPtr->configure() != TCL_OK)
+ return TCL_ERROR;
+ graphPtr->flags |= mask;
+ graphPtr->eventuallyRedraw();
+
+ break;
+ }
+
+ if (!error) {
+ Tk_FreeSavedOptions(&savedOptions);
+ return TCL_OK;
+ }
+ else {
+ Tcl_SetObjResult(interp, errorResult);
+ Tcl_DecrRefCount(errorResult);
+ return TCL_ERROR;
+ }
+}
+
+static int CgetOp(ClientData clientData, Tcl_Interp* interp,
+ int objc, Tcl_Obj* const objv[])
+{
+ Graph* graphPtr = (Graph*)clientData;
+ if (objc != 4) {
+ Tcl_WrongNumArgs(interp, 2, objv, "cget option");
+ return TCL_ERROR;
+ }
+
+ Crosshairs* chPtr = graphPtr->crosshairs_;
+ Tcl_Obj* objPtr = Tk_GetOptionValue(interp,
+ (char*)chPtr->ops(),
+ chPtr->optionTable(),
+ objv[3], graphPtr->tkwin_);
+ if (objPtr == NULL)
+ return TCL_ERROR;
+ else
+ Tcl_SetObjResult(interp, objPtr);
+ return TCL_OK;
+}
+
+static int ConfigureOp(ClientData clientData, Tcl_Interp* interp,
+ int objc, Tcl_Obj* const objv[])
+{
+ Graph* graphPtr = (Graph*)clientData;
+ Crosshairs* chPtr = graphPtr->crosshairs_;
+ if (objc <= 4) {
+ Tcl_Obj* objPtr = Tk_GetOptionInfo(interp, (char*)chPtr->ops(),
+ chPtr->optionTable(),
+ (objc == 4) ? objv[3] : NULL,
+ graphPtr->tkwin_);
+ if (objPtr == NULL)
+ return TCL_ERROR;
+ else
+ Tcl_SetObjResult(interp, objPtr);
+ return TCL_OK;
+ }
+ else
+ return CrosshairsObjConfigure(graphPtr, interp, objc-3, objv+3);
+}
+
+static int OnOp(ClientData clientData, Tcl_Interp* interp,
+ int objc, Tcl_Obj* const objv[])
+{
+ Graph* graphPtr = (Graph*)clientData;
+ Crosshairs *chPtr = graphPtr->crosshairs_;
+
+ chPtr->on();
+
+ return TCL_OK;
+}
+
+static int OffOp(ClientData clientData, Tcl_Interp* interp,
+ int objc, Tcl_Obj* const objv[])
+{
+ Graph* graphPtr = (Graph*)clientData;
+ Crosshairs *chPtr = graphPtr->crosshairs_;
+
+ chPtr->off();
+
+ return TCL_OK;
+}
+
+static int ToggleOp(ClientData clientData, Tcl_Interp* interp,
+ int objc, Tcl_Obj* const objv[])
+{
+ Graph* graphPtr = (Graph*)clientData;
+ Crosshairs *chPtr = graphPtr->crosshairs_;
+
+ if (chPtr->isOn())
+ chPtr->off();
+ else
+ chPtr->on();
+
+ return TCL_OK;
+}
+
+const Ensemble Blt::crosshairsEnsemble[] = {
+ {"cget", CgetOp, 0},
+ {"configure", ConfigureOp, 0},
+ {"off", OffOp, 0},
+ {"on", OnOp, 0},
+ {"toggle", ToggleOp, 0},
+ { 0,0,0 }
+};