Changeset 09d414b in tol for tolbase/lib/toltk/editor.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/editor.tcl (modified) (8 diffs)

tolbase/lib/toltk/editor.tcl

@@ -454 +454 @@
      "funsearch"   "CmdSearch"   "[mc {Search function}] (CTRL+G)" \
      "sep4"        "--"          ""\
-     "unident"     "CmdUnIdent"  "[mc Unident] (CTRL+U)" \
-     "ident"       "CmdIdent"    "[mc Ident] (CTRL+I)" \
+     "unindent"     "CmdUnIndent"  "[mc Unindent] (CTRL+U)" \
+     "indent"       "CmdIndent"    "[mc Indent] (CTRL+I)" \
      "sep5"        "--"          ""\
      "bprint"      "CmdPrint"    "[mc Print]" \
@@ -751 +751 @@
     F { ::Editor::CmdFind      $this }
     G { ::Editor::CmdSearch    $this }
-    I { ::Editor::CmdIdent     $this }
+    I { ::Editor::CmdIndent     $this }
     N { ::Editor::CmdNew       $this }
     R { ::Editor::CmdReplace   $this }
     S { ::Editor::CmdSave      $this }
     T { ::Editor::CmdFont      $this }
-    U { ::Editor::CmdUnIdent   $this }
+    U { ::Editor::CmdUnIndent   $this }
     X { ::Editor::CmdCut       $this }
     Y { ::Editor::CmdRedo      $this }
@@ -1354 +1354 @@
 }
 
-proc ::Editor::CmdIdent {this} {
+proc ::Editor::CmdIndent {this} {
   upvar \#0 ${this}::data data
   variable options
-  ::BayesText::Ident $data(txt,ctext) $options(charsIdent)
-}
-
-proc ::Editor::CmdUnIdent {this} {
+  ::BayesText::Indent $data(txt,ctext) $options(charsIndent)
+}
+
+proc ::Editor::CmdUnIndent {this} {
   upvar \#0 ${this}::data data
   variable options
-  ::BayesText::UnIdent $data(txt,ctext) $options(charsIdent)
+  ::BayesText::UnIndent $data(txt,ctext) $options(charsIndent)
 }
 
@@ -1749 +1749 @@
   label $f1.lChars -text [mc characters]
   
-  label $f1.lCharsIdent -text [mc "Characters to ident"]
-  SpinBox $f1.sbCharsIdent -justify right -width 4 \
+  label $f1.lCharsIndent -text [mc "Characters to indent"]
+  SpinBox $f1.sbCharsIndent -justify right -width 4 \
           -editable 0 -range {1 8} \
-          -textvariable ::Editor::tmpOpt(var,charsIdent)
+          -textvariable ::Editor::tmpOpt(var,charsIndent)
 
   frame $f1.f -width 25
@@ -1758 +1758 @@
   grid $f1.f $f1.chEdited     $f1.sbEdited     $f1.lFiles -sticky nw -padx 2
   grid ^     $f1.chLine       $f1.sbLinePos    $f1.lChars -sticky nw -padx 2
-  grid ^     $f1.lCharsIdent  $f1.sbCharsIdent         -sticky nw -padx 2
+  grid ^     $f1.lCharsIndent  $f1.sbCharsIndent         -sticky nw -padx 2
   grid rowconfigure    $f1 2 -weight 1
   grid columnconfigure $f1 3 -weight 1
@@ -1782 +1782 @@
   set tmpOpt(var,chLine)     $options(chLine)
   set tmpOpt(var,posLine)    $options(posLine)
-  set tmpOpt(var,charsIdent) $options(charsIdent)
+  set tmpOpt(var,charsIndent) $options(charsIndent)
 }
 
@@ -1881 +1881 @@
   set options(chLine)     [$rini Editor chLine    1]
   set options(posLine)    [$rini Editor posLine  78]
-  set options(charsIdent) [$rini Editor charsIdent 2]
+  # ticket https://www.tol-project.org/ticket/1168
+  set cindent [$rini Editor charsIndent -1] 
+  if { $cindent == -1 } {
+    # no aparecia la clave charsIndent, pregunto por la vieja
+    set options(charsIndent) [$rini Editor charsIdent 2]
+  } else {
+    # aparecia la clave, hay que pasar al nombre Indent
+    set options(charsIndent) $cindent
+  }
 }
 
@@ -1908 +1916 @@
   $wini Editor chLine       $options(chLine)
   $wini Editor posLine      $options(posLine)
-  $wini Editor charsIdent   $options(charsIdent)
+  $wini Editor charsIndent   $options(charsIndent)
   ::iniFile::Flush
 }