Changeset 9be00e8 in tol for tolbase/lib/toltk

Timestamp:

Jan 7, 2010, 8:58:28 PM (17 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

1941-docker-image-to-test, devel, master

Children:

45bc13e

Parents:

4a4f280

Message:

The key sequence <Shift-Control-/> will replace, in the current
selection, every ocurrence of '\' for '/'

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@1927 be4846ae-f051-483a-831f-b64e7d08527f

File:

• tolbase/lib/toltk/tolbase.tcl (modified) (1 diff)

tolbase/lib/toltk/tolbase.tcl

@@ -204 +204 @@
   bind . <Control-Key-k> +::tol::stop
   bind Text <Control-Key-k> ""
+  bind Text <Shift-Control-slash> {
+    set start [ %W index sel.first ]
+    set end [ %W index sel.last ]
+    set selection [ %W get $start $end ]
+    if { [ regsub -all {\\} $selection {/} changed ] } {
+      %W delete $start $end
+      %W insert $start $changed
+    }
+    break
+  }
   return $path
 }