summaryrefslogtreecommitdiffstats
path: root/generic/tkbltGrBind.C
diff options
context:
space:
mode:
authorAdrián Medraño Calvo <adrian@medranocalvo.com>2017-07-18 09:10:30 (GMT)
committerAdrián Medraño Calvo <adrian@medranocalvo.com>2017-07-18 09:10:30 (GMT)
commit71312d1e172edf9c37e7a16ab881980523d5babd (patch)
treec53477f175de027634a7cc2364d0dd2f26d24001 /generic/tkbltGrBind.C
parentce90eafc809554ad9243f6f2dbacdb41474c9fe5 (diff)
downloadblt-71312d1e172edf9c37e7a16ab881980523d5babd.zip
blt-71312d1e172edf9c37e7a16ab881980523d5babd.tar.gz
blt-71312d1e172edf9c37e7a16ab881980523d5babd.tar.bz2
Better align with TEA's expected file layout
TEA is quite picky about packages placing their sources in the generic/, unix/, etc. directories. An immediate benefit of this change is support for building in a separate directory.
Diffstat (limited to 'generic/tkbltGrBind.C')
-rw-r--r--generic/tkbltGrBind.C228
1 files changed, 228 insertions, 0 deletions
diff --git a/generic/tkbltGrBind.C b/generic/tkbltGrBind.C
new file mode 100644
index 0000000..2873c8f
--- /dev/null
+++ b/generic/tkbltGrBind.C
@@ -0,0 +1,228 @@
+/*
+ * 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 1998 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 <stdlib.h>
+
+#include <iostream>
+#include <sstream>
+#include <iomanip>
+using namespace std;
+
+#include "tkbltGrBind.h"
+#include "tkbltGraph.h"
+#include "tkbltGrLegd.h"
+
+using namespace Blt;
+
+static Tk_EventProc BindProc;
+
+BindTable::BindTable(Graph* graphPtr, Pick* pickPtr)
+{
+ graphPtr_ = graphPtr;
+ pickPtr_ = pickPtr;
+ grab_ =0;
+ table_ = Tk_CreateBindingTable(graphPtr->interp_);
+ currentItem_ =NULL;
+ currentContext_ =CID_NONE;
+ newItem_ =NULL;
+ newContext_ =CID_NONE;
+ focusItem_ =NULL;
+ focusContext_ =CID_NONE;
+ // pickEvent =NULL;
+ state_ =0;
+
+ unsigned int mask = (KeyPressMask | KeyReleaseMask | ButtonPressMask |
+ ButtonReleaseMask | EnterWindowMask | LeaveWindowMask |
+ PointerMotionMask);
+ Tk_CreateEventHandler(graphPtr->tkwin_, mask, BindProc, this);
+}
+
+BindTable::~BindTable()
+{
+ Tk_DeleteBindingTable(table_);
+ unsigned int mask = (KeyPressMask | KeyReleaseMask | ButtonPressMask |
+ ButtonReleaseMask | EnterWindowMask | LeaveWindowMask |
+ PointerMotionMask);
+ Tk_DeleteEventHandler(graphPtr_->tkwin_, mask, BindProc, this);
+}
+
+int BindTable::configure(ClientData item, int objc, Tcl_Obj* const objv[])
+{
+ if (objc == 0) {
+ Tk_GetAllBindings(graphPtr_->interp_, table_, item);
+ return TCL_OK;
+ }
+
+ const char *string = Tcl_GetString(objv[0]);
+ if (objc == 1) {
+ const char* command =
+ Tk_GetBinding(graphPtr_->interp_, table_, item, string);
+ if (!command) {
+ Tcl_ResetResult(graphPtr_->interp_);
+ Tcl_AppendResult(graphPtr_->interp_, "invalid binding event \"",
+ string, "\"", NULL);
+ return TCL_ERROR;
+ }
+ Tcl_SetStringObj(Tcl_GetObjResult(graphPtr_->interp_), command, -1);
+ return TCL_OK;
+ }
+
+ const char* seq = string;
+ const char* command = Tcl_GetString(objv[1]);
+ if (command[0] == '\0')
+ return Tk_DeleteBinding(graphPtr_->interp_, table_, item, seq);
+
+ unsigned long mask;
+ if (command[0] == '+')
+ mask = Tk_CreateBinding(graphPtr_->interp_, table_,
+ item, seq, command+1, 1);
+ else
+ mask = Tk_CreateBinding(graphPtr_->interp_, table_,
+ item, seq, command, 0);
+ if (!mask)
+ return TCL_ERROR;
+
+ if (mask & (unsigned) ~(ButtonMotionMask|Button1MotionMask
+ |Button2MotionMask|Button3MotionMask|Button4MotionMask
+ |Button5MotionMask|ButtonPressMask|ButtonReleaseMask
+ |EnterWindowMask|LeaveWindowMask|KeyPressMask
+ |KeyReleaseMask|PointerMotionMask|VirtualEventMask)) {
+ Tk_DeleteBinding(graphPtr_->interp_, table_, item, seq);
+ Tcl_ResetResult(graphPtr_->interp_);
+ Tcl_AppendResult(graphPtr_->interp_, "requested illegal events; ",
+ "only key, button, motion, enter, leave, and virtual ",
+ "events may be used", (char *)NULL);
+ return TCL_ERROR;
+ }
+
+ return TCL_OK;
+}
+
+void BindTable::deleteBindings(ClientData object)
+{
+ Tk_DeleteAllBindings(table_, object);
+
+ if (currentItem_ == object) {
+ currentItem_ =NULL;
+ currentContext_ =CID_NONE;
+ }
+
+ if (newItem_ == object) {
+ newItem_ =NULL;
+ newContext_ =CID_NONE;
+ }
+
+ if (focusItem_ == object) {
+ focusItem_ =NULL;
+ focusContext_ =CID_NONE;
+ }
+}
+
+void BindTable::doEvent(XEvent* eventPtr)
+{
+ ClientData item = currentItem_;
+ ClassId classId = currentContext_;
+
+ if ((eventPtr->type == KeyPress) || (eventPtr->type == KeyRelease)) {
+ item = focusItem_;
+ classId = focusContext_;
+ }
+ if (!item)
+ return;
+
+ int nTags;
+ const char** tagArray = graphPtr_->getTags(item, classId, &nTags);
+ Tk_BindEvent(table_, eventPtr, graphPtr_->tkwin_, nTags, (void**)tagArray);
+
+ if (tagArray)
+ delete [] tagArray;
+}
+
+void BindTable::pickItem(XEvent* eventPtr)
+{
+ int buttonDown = state_
+ & (Button1Mask|Button2Mask|Button3Mask|Button4Mask|Button5Mask);
+
+ // A LeaveNotify event automatically means that there's no current item,
+ if (eventPtr->type != LeaveNotify) {
+ int x = eventPtr->xcrossing.x;
+ int y = eventPtr->xcrossing.y;
+ newItem_ = pickPtr_->pickEntry(x, y, &newContext_);
+ }
+ else {
+ newItem_ =NULL;
+ newContext_ = CID_NONE;
+ }
+
+ // Nothing to do: the current item hasn't changed.
+ if ((newItem_ == currentItem_) && !grab_)
+ return;
+
+ if (!buttonDown)
+ grab_ =0;
+
+ if ((newItem_ != currentItem_) && buttonDown) {
+ grab_ =1;
+ return;
+ }
+
+ grab_ =0;
+ currentItem_ = newItem_;
+ currentContext_ = newContext_;
+}
+
+static void BindProc(ClientData clientData, XEvent* eventPtr)
+{
+ BindTable* bindPtr = (BindTable*)clientData;
+ Tcl_Preserve(bindPtr->graphPtr_);
+
+ switch (eventPtr->type) {
+ case ButtonPress:
+ case ButtonRelease:
+ bindPtr->state_ = eventPtr->xbutton.state;
+ break;
+ case EnterNotify:
+ case LeaveNotify:
+ bindPtr->state_ = eventPtr->xcrossing.state;
+ break;
+ case MotionNotify:
+ bindPtr->state_ = eventPtr->xmotion.state;
+ break;
+ case KeyPress:
+ case KeyRelease:
+ bindPtr->state_ = eventPtr->xkey.state;
+ break;
+ }
+
+ bindPtr->pickItem(eventPtr);
+ bindPtr->doEvent(eventPtr);
+
+ Tcl_Release(bindPtr->graphPtr_);
+}
+