[brlcad-commits] SF.net SVN: brlcad:[39570] brlcad/branches/dmtogl/src/libdm/dm-togl.c

[<sta...@us...>]

Revision: 39570
          http://brlcad.svn.sourceforge.net/brlcad/?rev=39570&view=rev
Author:   starseeker
Date:     2010-06-07 20:34:41 +0000 (Mon, 07 Jun 2010)

Log Message:
-----------
Oh yeah, the key bindings should use Tk_PathName too.

Modified Paths:
--------------
    brlcad/branches/dmtogl/src/libdm/dm-togl.c

Modified: brlcad/branches/dmtogl/src/libdm/dm-togl.c
===================================================================
--- brlcad/branches/dmtogl/src/libdm/dm-togl.c	2010-06-07 20:24:35 UTC (rev 39569)
+++ brlcad/branches/dmtogl/src/libdm/dm-togl.c	2010-06-07 20:34:41 UTC (rev 39570)
@@ -598,63 +598,63 @@
     Togl_GetToglFromObj(interp, Tcl_NewStringObj(bu_vls_addr(&tclcmd), -1), &(privvars->togl));
  
     /* Pass events seen by .togl up to the parent */ 
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <KeyPress> {event generate %s.%s <KeyPress> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <KeyPress> {event generate %s <KeyPress> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-     bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <KeyRelease> {event generate %s.%s <KeyRelease> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+     bu_vls_sprintf(&tclcmd, "bind %s.togl <KeyRelease> {event generate %s <KeyRelease> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
 
 
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Motion> {event generate %s.%s <Motion> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Motion> {event generate %s <Motion> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <ButtonRelease> {event generate %s.%s <ButtonRelease> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <ButtonRelease> {event generate %s <ButtonRelease> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <ButtonPress-1> {event generate %s.%s <ButtonPress-1> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <ButtonPress-1> {event generate %s <ButtonPress-1> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <ButtonPress-2> {event generate %s.%s <ButtonPress-2> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <ButtonPress-2> {event generate %s <ButtonPress-2> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <ButtonPress-3> {event generate %s.%s <ButtonPress-3> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <ButtonPress-3> {event generate %s <ButtonPress-3> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Shift-ButtonPress-1> {event generate %s.%s <Shift-ButtonPress-1> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Shift-ButtonPress-1> {event generate %s <Shift-ButtonPress-1> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Shift-ButtonPress-2> {event generate %s.%s <Shift-ButtonPress-2> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Shift-ButtonPress-2> {event generate %s <Shift-ButtonPress-2> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Shift-ButtonPress-3> {event generate %s.%s <Shift-ButtonPress-3> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Shift-ButtonPress-3> {event generate %s <Shift-ButtonPress-3> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Control-ButtonPress-1> {event generate %s.%s <Control-ButtonPress-1> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Control-ButtonPress-1> {event generate %s <Control-ButtonPress-1> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Control-ButtonPress-2> {event generate %s.%s <Control-ButtonPress-2> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Control-ButtonPress-2> {event generate %s <Control-ButtonPress-2> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Control-ButtonPress-3> {event generate %s.%s <Control-ButtonPress-3> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Control-ButtonPress-3> {event generate %s <Control-ButtonPress-3> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Shift-Control-ButtonPress-1> {event generate %s.%s <Shift-control-ButtonPress-1> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Shift-Control-ButtonPress-1> {event generate %s <Shift-control-ButtonPress-1> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Shift-Control-ButtonPress-2> {event generate %s.%s <Shift-control-ButtonPress-2> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Shift-Control-ButtonPress-2> {event generate %s <Shift-control-ButtonPress-2> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Shift-Control-ButtonPress-3> {event generate %s.%s <Shift-control-ButtonPress-3> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Shift-Control-ButtonPress-3> {event generate %s <Shift-control-ButtonPress-3> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Shift-Control-ButtonPress-1> {event generate %s.%s <Shift-Control-ButtonPress-1> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Shift-Control-ButtonPress-1> {event generate %s <Shift-Control-ButtonPress-1> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Shift-Control-ButtonPress-2> {event generate %s.%s <Shift-Control-ButtonPress-2> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Shift-Control-ButtonPress-2> {event generate %s <Shift-Control-ButtonPress-2> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Shift-Control-ButtonPress-3> {event generate %s.%s <Shift-Control-ButtonPress-3> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Shift-Control-ButtonPress-3> {event generate %s <Shift-Control-ButtonPress-3> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Alt-Shift-ButtonPress-1> {event generate %s.%s <Alt-Shift-ButtonPress-1> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Alt-Shift-ButtonPress-1> {event generate %s <Alt-Shift-ButtonPress-1> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Alt-Shift-ButtonPress-2> {event generate %s.%s <Alt-Shift-ButtonPress-2> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Alt-Shift-ButtonPress-2> {event generate %s <Alt-Shift-ButtonPress-2> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Alt-Shift-ButtonPress-3> {event generate %s.%s <Alt-Shift-ButtonPress-3> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Alt-Shift-ButtonPress-3> {event generate %s <Alt-Shift-ButtonPress-3> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Alt-Control-ButtonPress-1> {event generate %s.%s <Alt-Control-ButtonPress-1> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Alt-Control-ButtonPress-1> {event generate %s <Alt-Control-ButtonPress-1> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Alt-Control-ButtonPress-2> {event generate %s.%s <Alt-Control-ButtonPress-2> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Alt-Control-ButtonPress-2> {event generate %s <Alt-Control-ButtonPress-2> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Alt-Control-ButtonPress-3> {event generate %s.%s <Alt-Control-ButtonPress-3> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Alt-Control-ButtonPress-3> {event generate %s <Alt-Control-ButtonPress-3> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Alt-Shift-Control-ButtonPress-1> {event generate %s.%s <Alt-Shift-Control-ButtonPress-1> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Alt-Shift-Control-ButtonPress-1> {event generate %s <Alt-Shift-Control-ButtonPress-1> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Alt-Shift-Control-ButtonPress-2> {event generate %s.%s <Alt-Shift-Control-ButtonPress-2> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Alt-Shift-Control-ButtonPress-2> {event generate %s <Alt-Shift-Control-ButtonPress-2> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
-    bu_vls_sprintf(&tclcmd, "bind %s.%s.togl <Alt-Shift-Control-ButtonPress-3> {event generate %s.%s <Alt-Shift-Control-ButtonPress-3> -x %%x -y %%y -warp 1}", bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin), bu_vls_addr(&top_vls), (char *)Tk_Name(pubvars->xtkwin));
+    bu_vls_sprintf(&tclcmd, "bind %s.togl <Alt-Shift-Control-ButtonPress-3> {event generate %s <Alt-Shift-Control-ButtonPress-3> -x %%x -y %%y -warp 1}", (char *)Tk_PathName(pubvars->xtkwin), (char *)Tk_PathName(pubvars->xtkwin));
     Tcl_Eval(interp,  bu_vls_addr(&tclcmd));
     
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.