[Maxima-commits] CVS: maxima/interfaces/xmaxima/Tkmaxima Bindings.tcl, 1.4, 1.4.2.1

[Jaime E. V. <vi...@us...>]

Update of /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima
In directory sc8-pr-cvs7.sourceforge.net:/tmp/cvs-serv9991

Modified Files:
      Tag: RELEASE-5_10_0-BRANCH
	Bindings.tcl 
Log Message:
Adds more key-bindings in output fields (PageUp, Ctrl-n, etc).


Index: Bindings.tcl
===================================================================
RCS file: /cvsroot/maxima/maxima/interfaces/xmaxima/Tkmaxima/Bindings.tcl,v
retrieving revision 1.4
retrieving revision 1.4.2.1
diff -u -d -r1.4 -r1.4.2.1
--- Bindings.tcl	29 Jul 2006 09:26:15 -0000	1.4
+++ Bindings.tcl	5 Sep 2006 03:24:44 -0000	1.4.2.1
@@ -34,53 +34,60 @@
     }
 
     # Keep only default bindings for the cursor movement keys
-    bind CNtext <Left> {
-	if {[lsearch [%W tag names [%W index insert]] bold] >= 0} {
-	    tk::TextSetCursor %W insert-1c
-	    break
-	}
-    }
-    bind CNtext <Right> {
-	if {[lsearch [%W tag names [%W index insert]] bold] >= 0} {
-	    tk::TextSetCursor %W insert+1c
-	    break
-	}
-    }
-    bind CNtext <Up> {
-	if {[lsearch [%W tag names [%W index insert]] bold] >= 0} {
-	    tk::TextSetCursor %W [tk::TextUpDownLine %W -1]
-	    break
-	}
-    }
-    bind CNtext <Down> {
-	if {[lsearch [%W tag names [%W index insert]] bold] >= 0} {
-	    tk::TextSetCursor %W [tk::TextUpDownLine %W 1]
-	    break
-	}
-    }
-    bind CNtext <Shift-Left> {
-	if {[lsearch [%W tag names [%W index insert]] bold] >= 0} {
-	    tk::TextKeySelect %W [%W index {insert-1c}]
-	    break
-	}
-    }
-    bind CNtext <Shift-Right> {
-	if {[lsearch [%W tag names [%W index insert]] bold] >= 0} {
-	    tk::TextKeySelect %W [%W index {insert+1c}]
-	    break
-	}
-    }
-    bind CNtext <Shift-Up> {
-	if {[lsearch [%W tag names [%W index insert]] bold] >= 0} {
-	    tk::TextKeySelect %W [tk::TextUpDownLine %W -1]; break
-	}
-    }
-    bind CNtext <Shift-Down> {
-	if {[lsearch [%W tag names [%W index insert]] bold] >= 0} {
-	    tk::TextKeySelect %W [tk::TextUpDownLine %W 1]
-	    break
-	}
-    }
+    bind CNtext <Left>  {tk::TextSetCursor %W insert-1c; break}
+    bind CNtext <Control-b> {if {!$tk_strictMotif} {
+        tk::TextSetCursor %W insert-1c}; break}
+
+    bind CNtext <Right> {tk::TextSetCursor %W insert+1c; break}
+    bind CNtext <Control-f> {if {!$tk_strictMotif} {
+        tk::TextSetCursor %W insert+1c}; break}
+
+    bind CNtext <Up> {tk::TextSetCursor %W [tk::TextUpDownLine %W -1]; break}
+    bind CNtext <Control-p> {if {!$tk_strictMotif} {
+        tk::TextSetCursor %W [tk::TextUpDownLine %W -1]}; break}
+
+    bind CNtext <Down> {tk::TextSetCursor %W [tk::TextUpDownLine %W 1]; break}
+    bind CNtext <Control-n> {if {!$tk_strictMotif} {
+        tk::TextSetCursor %W [tk::TextUpDownLine %W 1]}; break}
+
+    bind CNtext <Next> {tk::TextSetCursor %W [tk::TextScrollPages %W 1]; break}
+    bind CNtext <Prior> {tk::TextSetCursor %W [tk::TextScrollPages %W -1];
+	break}
+
+    bind CNtext <Home> {tk::TextSetCursor %W {insert linestart}; break}
+    bind CNtext <Control-a> {if {!$tk_strictMotif} {
+	tk::TextSetCursor %W {insert linestart}}; break}
+
+    bind CNtext <End> {tk::TextSetCursor %W {insert lineend}; break}
+    bind CNtext <Control-e> {if {!$tk_strictMotif} {
+        tk::TextSetCursor %W {insert lineend}}; break}
+
+    bind CNtext <Control-Home> {tk::TextSetCursor %W 1.0; break}
+    bind CNtext <Meta-less> {if {!$tk_strictMotif} {
+        tk::TextSetCursor %W 1.0}; break}
+
+    bind CNtext <Control-End> {tk::TextSetCursor %W {end - 1 char}; break}
+    bind CNtext <Meta-greater> {if {!$tk_strictMotif} {
+        tk::TextSetCursor %W end-1c}; break}
+
+    bind CNtext <Meta-f> {if {!$tk_strictMotif} {
+        tk::TextSetCursor %W [tk::TextNextWord %W insert]}; break}
+    bind CNtext <Meta-b> {if {!$tk_strictMotif} {
+        tk::TextSetCursor %W [tk::TextPrevPos %W insert
+			      tcl_startOfPreviousWord]}; break}
+
+    bind CNtext <Shift-Left> {tk::TextKeySelect %W [%W index {insert-1c}];
+	break}
+    bind CNtext <Shift-Right> {tk::TextKeySelect %W [%W index {insert+1c}];
+	break}
+    bind CNtext <Shift-Up> {tk::TextKeySelect %W [tk::TextUpDownLine %W -1];
+	break}
+    bind CNtext <Shift-Down> {tk::TextKeySelect %W [tk::TextUpDownLine %W 1];
+	break}
+    bind CNtext <Control-Shift-End> {tk::TextKeySelect %W {end - 1 char};break}
+    bind CNtext <Control-Shift-Home> {tk::TextKeySelect %W 1.0; break}
+    bind CNtext <Shift-End> {tk::TextKeySelect %W {insert lineend}; break}
+    bind CNtext <Shift-Home> {tk::TextKeySelect %W {insert linestart}; break}
 
     # The "Return" key is bound to command evaluation, except in output tags
     bind CNtext <Return> {