Changeset d63dfa7 in tol for tolbase/lib

Timestamp:

Feb 16, 2012, 12:30:02 PM (15 years ago)

Author:

Jorge Pérez <josp.jorge@…>

Branches:

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

Children:

8d543fa

Parents:

4aaaf4c

Message:

refs #1432, en windows no funciona bien el evento <<Modified>>, recurrimos a un "after idle"

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

File:

• tolbase/lib/toltk/bystext.tcl (modified) (4 diffs)

tolbase/lib/toltk/bystext.tcl

@@ -843 +843 @@
 }
 
+proc ::BayesText::DlgEscapeTextIdle { w } {
+  variable DlgEscapeTextData
+
+  if { [ winfo exists $w ] } {
+    set f [ $w getframe ]
+    set buffer [ $f.o get 1.0 "end -1 char" ]
+    if { $buffer ne $DlgEscapeTextData(buffer) } {
+      $f.t del 1.0 end
+      $f.t ins end [ ::BayesText::TolEscape $buffer ]
+      set DlgEscapeTextData(buffer) $buffer
+    }
+    update
+    after idle [ list ::BayesText::DlgEscapeTextIdle $w ]
+  }
+}
+
 proc ::BayesText::DlgEscapeText { editor } {
+  variable DlgEscapeTextData
+
   set w .dlgescape
   if { [ winfo exists $w ] } {
@@ -859 +877 @@
     label $f.lt -text [ mc "Transformed:" ]
     rotext $f.t -width 40 -height 4
-    bind $f.o <<Modified>> {
-      if { [ %W edit modified ] == 1 } {
-        set f [ winfo parent %W ]
-        set tt $f.t
-        set buffer [ %W get 1.0 "end -1 char" ]
-        $tt del 1.0 end
-        $tt ins end [ ::BayesText::TolEscape $buffer ]
-        %W edit modified 0
-      }
-    }
     grid $f.lo -row 0 -column 0 -sticky w
     grid $f.o -row 1 -column 0 -sticky snew
@@ -880 +888 @@
   }
   $f.o delete 1.0 end
+  $f.t del 1.0 end
+  set DlgEscapeTextData(buffer) ""
   set idxs [ $editor tag ranges sel ]
   if { [ llength $idxs ] } {
@@ -885 +895 @@
   }
   $w itemconfigure 1 -command [ list ::BayesText::DlgEscapeTextApply $editor ]
+  update
+  after idle [ list ::BayesText::DlgEscapeTextIdle $w ]
 }