Changeset 09d414b in tol for tolbase/lib/toltk/tolbase.tcl

Timestamp:

Feb 14, 2012, 10:56:46 AM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

3d8e270

Parents:

2f74496

Message:

fixes #1168, ctrl-i control-u se habilitan en la la ventana eval, también se corrige un error en el término ident, debe ser indent.

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

File:

• tolbase/lib/toltk/tolbase.tcl (modified) (3 diffs)

tolbase/lib/toltk/tolbase.tcl

@@ -57 +57 @@
 }
 
+source [file join $toltk_script_path "editor.tcl"]
 source [file join $toltk_script_path "markuphelper.tcl"]
 source [file join $toltk_script_path "tolpkg.tcl"]
@@ -293 +294 @@
   set widgets(eval) $sw1.eval
 
+  # aseguramos que se lean las opciones de Editor que vamos a compartir
   #Creamos text con resaltado TOL
   set w_eval [::BayesText::CreateHLText $widgets(eval) tol \
@@ -318 +320 @@
   bind $w_eval <F7> "::BayesText::TolSyntaxCheck $w_eval ; break"
   bind $w_eval <F10> "::TolConsole::OpenEval ; break"
+
+  bind $w_eval <Control-Key-i> {
+    ::BayesText::Indent %W $::Editor::options(charsIndent)
+    break
+  }
+
+  bind $w_eval <Control-Key-u> {
+    ::BayesText::UnIndent %W $::Editor::options(charsIndent)
+    break
+  } 
   
   ## 1) Create a horizontal toolbar frame...