Merge commit 'ae91bd578b070f043b6b1b2576836c52935a5e1e' as 'tkblt'

1 files changed, 218 insertions, 0 deletions

diff --git a/tkblt/generic/tkbltConfig.C b/tkblt/generic/tkbltConfig.C
new file mode 100644
index 0000000..82fea4e
--- /dev/null
+++ b/tkblt/generic/tkbltConfig.C
@@ -0,0 +1,218 @@
+/*
+ * 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 (c) 1990-1994 The Regents of the University of California.
+ *	Copyright (c) 1994-1997 Sun Microsystems, Inc.
+ *
+ *	See the file "license.terms" for information on usage and redistribution
+ *	of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+ *
+ *	Copyright 2003-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 <stdlib.h>
+#include <string.h>
+
+#include "tkbltConfig.h"
+#include "tkbltGrMisc.h"
+
+using namespace Blt;
+
+void RestoreProc(ClientData clientData, Tk_Window tkwin,
+		 char *ptr, char *savePtr)
+{
+  *(double*)ptr = *(double*)savePtr;
+}
+
+// Fill
+const char* fillObjOption[] = {"none", "x", "y", "both", NULL};
+
+// Dashes
+static Tk_CustomOptionSetProc DashesSetProc;
+static Tk_CustomOptionGetProc DashesGetProc;
+Tk_ObjCustomOption dashesObjOption =
+  {
+    "dashes", DashesSetProc, DashesGetProc, NULL, NULL, NULL
+  };
+
+static int DashesSetProc(ClientData clientData, Tcl_Interp *interp,
+			 Tk_Window tkwin, Tcl_Obj** objPtr, char* widgRec,
+			 int offset, char* save, int flags)
+{
+  Dashes* dashesPtr = (Dashes*)(widgRec + offset);
+
+  int length;
+  const char* string = Tcl_GetStringFromObj(*objPtr, &length);
+  if (!string || !string[0]) {
+    dashesPtr->values[0] = 0;
+    return TCL_OK;
+  }
+
+  if (!strncmp(string, "dot", length)) {	
+    dashesPtr->values[0] = 1;
+    dashesPtr->values[1] = 0;
+  }
+  else if (!strncmp(string, "dash", length)) {	
+    dashesPtr->values[0] = 5;
+    dashesPtr->values[1] = 2;
+    dashesPtr->values[2] = 0;
+  }
+  else if (!strncmp(string, "dashdot", length)) { 
+    dashesPtr->values[0] = 2;
+    dashesPtr->values[1] = 4;
+    dashesPtr->values[2] = 2;
+    dashesPtr->values[3] = 0;
+  }
+  else if (!strncmp(string, "dashdotdot", length)) { 
+    dashesPtr->values[0] = 2;
+    dashesPtr->values[1] = 4;
+    dashesPtr->values[2] = 2;
+    dashesPtr->values[3] = 2;
+    dashesPtr->values[4] = 0;
+  }
+  else {
+    int objc;
+    Tcl_Obj** objv;
+    if (Tcl_ListObjGetElements(interp, *objPtr, &objc, &objv) != TCL_OK)
+      return TCL_ERROR;
+
+    // This is the postscript limit
+    if (objc > 11) {
+      Tcl_AppendResult(interp, "too many values in dash list \"", 
+		       string, "\"", (char *)NULL);
+      return TCL_ERROR;
+    }
+
+    int ii;
+    for (ii=0; ii<objc; ii++) {
+      int value;
+      if (Tcl_GetIntFromObj(interp, objv[ii], &value) != TCL_OK)
+	return TCL_ERROR;
+
+      // Backward compatibility: Allow list of 0 to turn off dashes
+      if ((value == 0) && (objc == 1))
+	break;
+
+      if ((value < 1) || (value > 255)) {
+	Tcl_AppendResult(interp, "dash value \"", 
+			 Tcl_GetString(objv[ii]), "\" is out of range", 
+			 (char *)NULL);
+	return TCL_ERROR;
+      }
+      dashesPtr->values[ii] = (unsigned char)value;
+    }
+
+    // Make sure the array ends with a NULL byte
+    dashesPtr->values[ii] = 0;
+  }
+
+  return TCL_OK;
+};
+
+static Tcl_Obj* DashesGetProc(ClientData clientData, Tk_Window tkwin, 
+			     char *widgRec, int offset)
+{
+  Dashes* dashesPtr = (Dashes*)(widgRec + offset);
+
+  // count how many
+  int cnt =0;
+  while (dashesPtr->values[cnt])
+    cnt++;
+
+  if (!cnt)
+    return Tcl_NewListObj(0, (Tcl_Obj**)NULL);
+
+  Tcl_Obj** ll = new Tcl_Obj*[cnt];
+  for (int ii=0; ii<cnt; ii++)
+    ll[ii] = Tcl_NewIntObj(dashesPtr->values[ii]);
+  Tcl_Obj* listObjPtr = Tcl_NewListObj(cnt, ll);
+  delete [] ll;
+
+  return listObjPtr;
+};
+
+// List
+static Tk_CustomOptionSetProc ListSetProc;
+static Tk_CustomOptionGetProc ListGetProc;
+static Tk_CustomOptionFreeProc ListFreeProc;
+Tk_ObjCustomOption listObjOption =
+  {
+    "list", ListSetProc, ListGetProc, RestoreProc, ListFreeProc, NULL
+  };
+
+static int ListSetProc(ClientData clientData, Tcl_Interp *interp,
+		       Tk_Window tkwin, Tcl_Obj** objPtr, char* widgRec,
+		       int offset, char* savePtr, int flags)
+{
+  const char*** listPtr = (const char***)(widgRec + offset);
+  *(double*)savePtr = *(double*)listPtr;
+
+  if (!listPtr)
+    return TCL_OK;
+
+  const char** argv;
+  int argc;
+  if (Tcl_SplitList(interp, Tcl_GetString(*objPtr), &argc, &argv) != TCL_OK)
+    return TCL_ERROR;
+
+  *listPtr = argv;
+
+  return TCL_OK;
+};
+
+static Tcl_Obj* ListGetProc(ClientData clientData, Tk_Window tkwin, 
+			    char *widgRec, int offset)
+{
+  const char*** listPtr = (const char***)(widgRec + offset);
+
+  if (!listPtr || !(*listPtr))
+    return Tcl_NewListObj(0, NULL);
+
+  // count how many
+  int cnt=0;
+  for (const char** pp=*listPtr; *pp; pp++,cnt++) {}
+  if (!cnt)
+    return Tcl_NewListObj(0, NULL);
+
+  Tcl_Obj** ll = new Tcl_Obj*[cnt];
+  for (int ii=0; ii<cnt; ii++)
+    ll[ii] = Tcl_NewStringObj((*listPtr)[ii], -1);
+  Tcl_Obj* listObjPtr = Tcl_NewListObj(cnt, ll);
+  delete [] ll;
+
+  return listObjPtr;
+};
+
+static void ListFreeProc(ClientData clientData, Tk_Window tkwin,
+			 char *ptr)
+{
+  const char** argv = *(const char***)ptr;
+  if (argv)
+    Tcl_Free((char*)argv);
+}