Changeset 0e07e12 in tol for tolbase/lib/toltk/editor.tcl

Timestamp:

Feb 15, 2012, 11:55:07 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

878425e

Parents:

1efd6f9

Message:

fixes #1432, se implementa una opcion de menu contextual "Escape text" que abre una ventana de dialogo para realizar el escape del texto deseado. Si en el momento de seleccionar esta opción de menú hay un texto seleccionado este se utiliza como texto inicial a escapar. La ventana ofrece un botón para sustituir el texto seleccionado por el texto escapado.

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

File:

• tolbase/lib/toltk/editor.tcl (modified) (2 diffs)

tolbase/lib/toltk/editor.tcl

@@ -463 +463 @@
      "savecom"     "CmdSaveCompile" "[mc [list Save and Compile]] (F9)" \
      "decom"       "CmdDecompile"  "[mc Decompile] (F8)" \
-     "syntaxcheck" "CmdSyntaxCheck" "[mc [list Syntax Check]] (F7)" \
+     "syntaxcheck" "CmdSyntaxCheck" "[mc [list Syntax check]] (F7)" \
      "refresh"     "CmdRefresh" "[mc Refresh] (F5)"\
      "balloon"     "CmdBalloon"    "[mc BalloonHelp]" \
@@ -549 +549 @@
                  -command [list ::Editor::CmdSaveAs $this]
   $m add separator
+  $m add command -label [ mc "Escape text" ]... \
+      -command [ list ::BayesText::DlgEscapeText $data(txt) ]
   $m add command -label "[mc Find]..." -accelerator CTRL+F \
                  -command [list ::Editor::CmdFind $this]