Artifact 5541bc7846d7707e29ea9f1ecaf85d8e4a52e51d7a4d9e160c869a2a467117b8:

  • File src/diff.tcl — part of check-in [4dfa592f] at 2017-11-16 02:43:49 on branch trunk — Fix key bindings on the "fossil diff --tk" command. Control-q now exits. Pressing Enter does the right things at the right times and does not raise errors. Etc. (user: drh size: 13029) [more...]

0000: 23 20 54 68 65 20 22 64 69 66 66 20 2d 2d 74 6b  # The "diff --tk
0010: 22 20 63 6f 6d 6d 61 6e 64 20 6f 75 74 70 75 74  " command output
0020: 73 20 70 72 65 70 65 6e 64 73 20 61 20 22 73 65  s prepends a "se
0030: 74 20 66 6f 73 73 69 6c 63 6d 64 20 7b 2e 2e 2e  t fossilcmd {...
0040: 7d 22 20 6c 69 6e 65 0a 23 20 74 6f 20 74 68 69  }" line.# to thi
0050: 73 20 66 69 6c 65 2c 20 74 68 65 6e 20 72 75 6e  s file, then run
0060: 73 20 74 68 69 73 20 66 69 6c 65 20 75 73 69 6e  s this file usin
0070: 67 20 22 74 63 6c 73 68 22 20 69 6e 20 6f 72 64  g "tclsh" in ord
0080: 65 72 20 74 6f 20 64 69 73 70 6c 61 79 20 74 68  er to display th
0090: 65 0a 23 20 67 72 61 70 68 69 63 61 6c 20 64 69  e.# graphical di
00a0: 66 66 20 69 6e 20 61 20 73 65 70 61 72 61 74 65  ff in a separate
00b0: 20 77 69 6e 64 6f 77 2e 20 20 41 20 74 79 70 69   window.  A typi
00c0: 63 61 6c 20 22 73 65 74 20 66 6f 73 73 69 6c 63  cal "set fossilc
00d0: 6d 64 22 20 6c 69 6e 65 0a 23 20 6c 6f 6f 6b 73  md" line.# looks
00e0: 20 6c 69 6b 65 20 74 68 69 73 3a 0a 23 0a 23 20   like this:.#.# 
00f0: 20 20 20 20 73 65 74 20 66 6f 73 73 69 6c 63 6d      set fossilcm
0100: 64 20 7b 7c 20 22 2e 2f 66 6f 73 73 69 6c 22 20  d {| "./fossil" 
0110: 64 69 66 66 20 2d 2d 68 74 6d 6c 20 2d 79 20 2d  diff --html -y -
0120: 69 20 2d 76 7d 0a 23 0a 23 20 54 68 69 73 20 68  i -v}.#.# This h
0130: 65 61 64 65 72 20 63 6f 6d 6d 65 6e 74 20 69 73  eader comment is
0140: 20 73 74 72 69 70 70 65 64 20 6f 66 66 20 62 79   stripped off by
0150: 20 74 68 65 20 22 6d 6b 62 75 69 6c 74 69 6e 2e   the "mkbuiltin.
0160: 63 22 20 70 72 6f 67 72 61 6d 2e 0a 23 0a 73 65  c" program..#.se
0170: 74 20 70 72 6f 67 20 7b 0a 70 61 63 6b 61 67 65  t prog {.package
0180: 20 72 65 71 75 69 72 65 20 54 6b 0a 0a 61 72 72   require Tk..arr
0190: 61 79 20 73 65 74 20 43 46 47 20 7b 0a 20 20 54  ay set CFG {.  T
01a0: 49 54 4c 45 20 20 20 20 20 20 7b 46 6f 73 73 69  ITLE      {Fossi
01b0: 6c 20 44 69 66 66 7d 0a 20 20 4c 4e 5f 43 4f 4c  l Diff}.  LN_COL
01c0: 5f 42 47 20 20 23 64 64 64 64 64 64 0a 20 20 4c  _BG  #dddddd.  L
01d0: 4e 5f 43 4f 4c 5f 46 47 20 20 23 34 34 34 34 34  N_COL_FG  #44444
01e0: 34 0a 20 20 54 58 54 5f 43 4f 4c 5f 42 47 20 23  4.  TXT_COL_BG #
01f0: 66 66 66 66 66 66 0a 20 20 54 58 54 5f 43 4f 4c  ffffff.  TXT_COL
0200: 5f 46 47 20 23 30 30 30 30 30 30 0a 20 20 4d 4b  _FG #000000.  MK
0210: 52 5f 43 4f 4c 5f 42 47 20 23 34 34 34 34 34 34  R_COL_BG #444444
0220: 0a 20 20 4d 4b 52 5f 43 4f 4c 5f 46 47 20 23 64  .  MKR_COL_FG #d
0230: 64 64 64 64 64 0a 20 20 43 48 4e 47 5f 42 47 20  ddddd.  CHNG_BG 
0240: 20 20 20 23 64 30 64 30 66 66 0a 20 20 41 44 44     #d0d0ff.  ADD
0250: 5f 42 47 20 20 20 20 20 23 63 30 66 66 63 30 0a  _BG     #c0ffc0.
0260: 20 20 52 4d 5f 42 47 20 20 20 20 20 20 23 66 66    RM_BG      #ff
0270: 63 30 63 30 0a 20 20 48 52 5f 46 47 20 20 20 20  c0c0.  HR_FG    
0280: 20 20 23 38 38 38 38 38 38 0a 20 20 48 52 5f 50    #888888.  HR_P
0290: 41 44 5f 54 4f 50 20 34 0a 20 20 48 52 5f 50 41  AD_TOP 4.  HR_PA
02a0: 44 5f 42 54 4d 20 38 0a 20 20 46 4e 5f 42 47 20  D_BTM 8.  FN_BG 
02b0: 20 20 20 20 20 23 34 34 34 34 34 34 0a 20 20 46       #444444.  F
02c0: 4e 5f 46 47 20 20 20 20 20 20 23 66 66 66 66 66  N_FG      #fffff
02d0: 66 0a 20 20 46 4e 5f 50 41 44 20 20 20 20 20 35  f.  FN_PAD     5
02e0: 0a 20 20 45 52 52 5f 46 47 20 20 20 20 20 23 65  .  ERR_FG     #e
02f0: 65 30 30 30 30 0a 20 20 50 41 44 58 20 20 20 20  e0000.  PADX    
0300: 20 20 20 35 0a 20 20 57 49 44 54 48 20 20 20 20     5.  WIDTH    
0310: 20 20 38 30 0a 20 20 48 45 49 47 48 54 20 20 20    80.  HEIGHT   
0320: 20 20 34 35 0a 20 20 4c 42 5f 48 45 49 47 48 54    45.  LB_HEIGHT
0330: 20 20 32 35 0a 7d 0a 0a 69 66 20 7b 21 5b 6e 61    25.}..if {![na
0340: 6d 65 73 70 61 63 65 20 65 78 69 73 74 73 20 74  mespace exists t
0350: 74 6b 5d 7d 20 7b 0a 20 20 69 6e 74 65 72 70 20  tk]} {.  interp 
0360: 61 6c 69 61 73 20 7b 7d 20 3a 3a 74 74 6b 3a 3a  alias {} ::ttk::
0370: 73 63 72 6f 6c 6c 62 61 72 20 7b 7d 20 3a 3a 73  scrollbar {} ::s
0380: 63 72 6f 6c 6c 62 61 72 0a 20 20 69 6e 74 65 72  crollbar.  inter
0390: 70 20 61 6c 69 61 73 20 7b 7d 20 3a 3a 74 74 6b  p alias {} ::ttk
03a0: 3a 3a 6d 65 6e 75 62 75 74 74 6f 6e 20 7b 7d 20  ::menubutton {} 
03b0: 3a 3a 6d 65 6e 75 62 75 74 74 6f 6e 0a 7d 0a 0a  ::menubutton.}..
03c0: 70 72 6f 63 20 64 65 68 74 6d 6c 20 7b 78 7d 20  proc dehtml {x} 
03d0: 7b 0a 20 20 73 65 74 20 78 20 5b 72 65 67 73 75  {.  set x [regsu
03e0: 62 20 2d 61 6c 6c 20 7b 3c 5b 5e 3e 5d 2a 3e 7d  b -all {<[^>]*>}
03f0: 20 24 78 20 7b 7d 5d 0a 20 20 72 65 74 75 72 6e   $x {}].  return
0400: 20 5b 73 74 72 69 6e 67 20 6d 61 70 20 7b 26 61   [string map {&a
0410: 6d 70 3b 20 26 20 26 6c 74 3b 20 3c 20 26 67 74  mp; & &lt; < &gt
0420: 3b 20 3e 20 26 23 33 39 3b 20 27 20 26 71 75 6f  ; > &#39; ' &quo
0430: 74 3b 20 5c 22 7d 20 24 78 5d 0a 7d 0a 0a 70 72  t; \"} $x].}..pr
0440: 6f 63 20 63 6f 6c 73 20 7b 7d 20 7b 0a 20 20 72  oc cols {} {.  r
0450: 65 74 75 72 6e 20 5b 6c 69 73 74 20 2e 6c 6e 41  eturn [list .lnA
0460: 20 2e 74 78 74 41 20 2e 6d 6b 72 20 2e 6c 6e 42   .txtA .mkr .lnB
0470: 20 2e 74 78 74 42 5d 0a 7d 0a 0a 70 72 6f 63 20   .txtB].}..proc 
0480: 63 6f 6c 54 79 70 65 20 7b 63 7d 20 7b 0a 20 20  colType {c} {.  
0490: 72 65 67 65 78 70 20 7b 5b 61 2d 7a 5d 2b 7d 20  regexp {[a-z]+} 
04a0: 24 63 20 74 79 70 65 0a 20 20 72 65 74 75 72 6e  $c type.  return
04b0: 20 24 74 79 70 65 0a 7d 0a 0a 70 72 6f 63 20 67   $type.}..proc g
04c0: 65 74 4c 69 6e 65 20 7b 64 69 66 66 74 78 74 20  etLine {difftxt 
04d0: 4e 20 69 69 76 61 72 7d 20 7b 0a 20 20 75 70 76  N iivar} {.  upv
04e0: 61 72 20 24 69 69 76 61 72 20 69 69 0a 20 20 69  ar $iivar ii.  i
04f0: 66 20 7b 24 69 69 3e 3d 24 4e 7d 20 7b 72 65 74  f {$ii>=$N} {ret
0500: 75 72 6e 20 2d 31 7d 0a 20 20 73 65 74 20 78 20  urn -1}.  set x 
0510: 5b 6c 69 6e 64 65 78 20 24 64 69 66 66 74 78 74  [lindex $difftxt
0520: 20 24 69 69 5d 0a 20 20 69 6e 63 72 20 69 69 0a   $ii].  incr ii.
0530: 20 20 72 65 74 75 72 6e 20 24 78 0a 7d 0a 0a 70    return $x.}..p
0540: 72 6f 63 20 72 65 61 64 44 69 66 66 73 20 7b 66  roc readDiffs {f
0550: 6f 73 73 69 6c 63 6d 64 7d 20 7b 0a 20 20 67 6c  ossilcmd} {.  gl
0560: 6f 62 61 6c 20 64 69 66 66 74 78 74 0a 20 20 69  obal difftxt.  i
0570: 66 20 7b 21 5b 69 6e 66 6f 20 65 78 69 73 74 73  f {![info exists
0580: 20 64 69 66 66 74 78 74 5d 7d 20 7b 0a 20 20 20   difftxt]} {.   
0590: 20 73 65 74 20 69 6e 20 5b 6f 70 65 6e 20 24 66   set in [open $f
05a0: 6f 73 73 69 6c 63 6d 64 20 72 5d 0a 20 20 20 20  ossilcmd r].    
05b0: 66 63 6f 6e 66 69 67 75 72 65 20 24 69 6e 20 2d  fconfigure $in -
05c0: 65 6e 63 6f 64 69 6e 67 20 75 74 66 2d 38 0a 20  encoding utf-8. 
05d0: 20 20 20 73 65 74 20 64 69 66 66 74 78 74 20 5b     set difftxt [
05e0: 73 70 6c 69 74 20 5b 72 65 61 64 20 24 69 6e 5d  split [read $in]
05f0: 20 5c 6e 5d 0a 20 20 20 20 63 6c 6f 73 65 20 24   \n].    close $
0600: 69 6e 0a 20 20 7d 0a 20 20 73 65 74 20 4e 20 5b  in.  }.  set N [
0610: 6c 6c 65 6e 67 74 68 20 24 64 69 66 66 74 78 74  llength $difftxt
0620: 5d 0a 20 20 73 65 74 20 69 69 20 30 0a 20 20 73  ].  set ii 0.  s
0630: 65 74 20 6e 44 69 66 66 73 20 30 0a 20 20 61 72  et nDiffs 0.  ar
0640: 72 61 79 20 73 65 74 20 77 69 64 74 68 73 20 7b  ray set widths {
0650: 74 78 74 20 30 20 6c 6e 20 30 20 6d 6b 72 20 30  txt 0 ln 0 mkr 0
0660: 7d 0a 20 20 77 68 69 6c 65 20 7b 5b 73 65 74 20  }.  while {[set 
0670: 6c 69 6e 65 20 5b 67 65 74 4c 69 6e 65 20 24 64  line [getLine $d
0680: 69 66 66 74 78 74 20 24 4e 20 69 69 5d 5d 20 21  ifftxt $N ii]] !
0690: 3d 20 2d 31 7d 20 7b 0a 20 20 20 20 73 65 74 20  = -1} {.    set 
06a0: 66 6e 32 20 7b 7d 0a 20 20 20 20 69 66 20 7b 21  fn2 {}.    if {!
06b0: 5b 72 65 67 65 78 70 20 7b 5e 3d 2b 20 28 2e 2a  [regexp {^=+ (.*
06c0: 3f 29 20 3d 2b 20 76 65 72 73 75 73 20 3d 2b 20  ?) =+ versus =+ 
06d0: 28 2e 2a 3f 29 20 3d 2b 24 7d 20 24 6c 69 6e 65  (.*?) =+$} $line
06e0: 20 61 6c 6c 20 66 6e 20 66 6e 32 5d 0a 20 20 20   all fn fn2].   
06f0: 20 20 26 26 20 21 5b 72 65 67 65 78 70 20 7b 5e    && ![regexp {^
0700: 3d 2b 20 28 2e 2a 3f 29 20 3d 2b 24 7d 20 24 6c  =+ (.*?) =+$} $l
0710: 69 6e 65 20 61 6c 6c 20 66 6e 5d 0a 20 20 20 20  ine all fn].    
0720: 7d 20 7b 0a 20 20 20 20 20 20 63 6f 6e 74 69 6e  } {.      contin
0730: 75 65 0a 20 20 20 20 7d 0a 20 20 20 20 73 65 74  ue.    }.    set
0740: 20 65 72 72 4d 73 67 20 22 22 0a 20 20 20 20 73   errMsg "".    s
0750: 65 74 20 6c 69 6e 65 20 5b 67 65 74 4c 69 6e 65  et line [getLine
0760: 20 24 64 69 66 66 74 78 74 20 24 4e 20 69 69 5d   $difftxt $N ii]
0770: 0a 20 20 20 20 69 66 20 7b 5b 73 74 72 69 6e 67  .    if {[string
0780: 20 63 6f 6d 70 61 72 65 20 2d 6c 65 6e 67 74 68   compare -length
0790: 20 36 20 24 6c 69 6e 65 20 22 3c 74 61 62 6c 65   6 $line "<table
07a0: 22 5d 0a 20 20 20 20 20 26 26 20 21 5b 72 65 67  "].     && ![reg
07b0: 65 78 70 20 7b 3c 70 5b 5e 3e 5d 2a 3e 28 2e 2b  exp {<p[^>]*>(.+
07c0: 29 7d 20 24 6c 69 6e 65 20 2d 20 65 72 72 4d 73  )} $line - errMs
07d0: 67 5d 7d 20 7b 0a 20 20 20 20 20 20 63 6f 6e 74  g]} {.      cont
07e0: 69 6e 75 65 0a 20 20 20 20 7d 0a 20 20 20 20 69  inue.    }.    i
07f0: 6e 63 72 20 6e 44 69 66 66 73 0a 20 20 20 20 73  ncr nDiffs.    s
0800: 65 74 20 69 64 78 20 5b 65 78 70 72 20 7b 24 6e  et idx [expr {$n
0810: 44 69 66 66 73 20 3e 20 31 20 3f 20 5b 2e 74 78  Diffs > 1 ? [.tx
0820: 74 41 20 69 6e 64 65 78 20 65 6e 64 5d 20 3a 20  tA index end] : 
0830: 22 31 2e 30 22 7d 5d 0a 20 20 20 20 2e 77 66 69  "1.0"}].    .wfi
0840: 6c 65 73 2e 6c 62 20 69 6e 73 65 72 74 20 65 6e  les.lb insert en
0850: 64 20 24 66 6e 0a 0a 20 20 20 20 66 6f 72 65 61  d $fn..    forea
0860: 63 68 20 63 20 5b 63 6f 6c 73 5d 20 7b 0a 20 20  ch c [cols] {.  
0870: 20 20 20 20 69 66 20 7b 24 6e 44 69 66 66 73 20      if {$nDiffs 
0880: 3e 20 31 7d 20 7b 0a 20 20 20 20 20 20 20 20 24  > 1} {.        $
0890: 63 20 69 6e 73 65 72 74 20 65 6e 64 20 5c 6e 20  c insert end \n 
08a0: 2d 0a 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20  -.      }.      
08b0: 69 66 20 7b 5b 63 6f 6c 54 79 70 65 20 24 63 5d  if {[colType $c]
08c0: 20 65 71 20 22 74 78 74 22 7d 20 7b 0a 20 20 20   eq "txt"} {.   
08d0: 20 20 20 20 20 24 63 20 69 6e 73 65 72 74 20 65       $c insert e
08e0: 6e 64 20 24 66 6e 5c 6e 20 66 6e 0a 20 20 20 20  nd $fn\n fn.    
08f0: 20 20 20 20 69 66 20 7b 24 66 6e 32 21 3d 22 22      if {$fn2!=""
0900: 7d 20 7b 73 65 74 20 66 6e 20 24 66 6e 32 7d 0a  } {set fn $fn2}.
0910: 20 20 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20        } else {. 
0920: 20 20 20 20 20 20 20 24 63 20 69 6e 73 65 72 74         $c insert
0930: 20 65 6e 64 20 5c 6e 20 66 6e 0a 20 20 20 20 20   end \n fn.     
0940: 20 7d 0a 20 20 20 20 20 20 24 63 20 69 6e 73 65   }.      $c inse
0950: 72 74 20 65 6e 64 20 5c 6e 20 2d 0a 0a 20 20 20  rt end \n -..   
0960: 20 20 20 69 66 20 7b 24 65 72 72 4d 73 67 20 6e     if {$errMsg n
0970: 65 20 22 22 7d 20 63 6f 6e 74 69 6e 75 65 0a 20  e ""} continue. 
0980: 20 20 20 20 20 77 68 69 6c 65 20 7b 5b 67 65 74       while {[get
0990: 4c 69 6e 65 20 24 64 69 66 66 74 78 74 20 24 4e  Line $difftxt $N
09a0: 20 69 69 5d 20 6e 65 20 22 3c 70 72 65 3e 22 7d   ii] ne "<pre>"}
09b0: 20 63 6f 6e 74 69 6e 75 65 0a 20 20 20 20 20 20   continue.      
09c0: 73 65 74 20 74 79 70 65 20 5b 63 6f 6c 54 79 70  set type [colTyp
09d0: 65 20 24 63 5d 0a 20 20 20 20 20 20 73 65 74 20  e $c].      set 
09e0: 73 74 72 20 7b 7d 0a 20 20 20 20 20 20 77 68 69  str {}.      whi
09f0: 6c 65 20 7b 5b 73 65 74 20 6c 69 6e 65 20 5b 67  le {[set line [g
0a00: 65 74 4c 69 6e 65 20 24 64 69 66 66 74 78 74 20  etLine $difftxt 
0a10: 24 4e 20 69 69 5d 5d 20 6e 65 20 22 3c 2f 70 72  $N ii]] ne "</pr
0a20: 65 3e 22 7d 20 7b 0a 20 20 20 20 20 20 20 20 73  e>"} {.        s
0a30: 65 74 20 6c 65 6e 20 5b 73 74 72 69 6e 67 20 6c  et len [string l
0a40: 65 6e 67 74 68 20 5b 64 65 68 74 6d 6c 20 24 6c  ength [dehtml $l
0a50: 69 6e 65 5d 5d 0a 20 20 20 20 20 20 20 20 69 66  ine]].        if
0a60: 20 7b 24 6c 65 6e 20 3e 20 24 77 69 64 74 68 73   {$len > $widths
0a70: 28 24 74 79 70 65 29 7d 20 7b 0a 20 20 20 20 20  ($type)} {.     
0a80: 20 20 20 20 20 73 65 74 20 77 69 64 74 68 73 28       set widths(
0a90: 24 74 79 70 65 29 20 24 6c 65 6e 0a 20 20 20 20  $type) $len.    
0aa0: 20 20 20 20 7d 0a 20 20 20 20 20 20 20 20 61 70      }.        ap
0ab0: 70 65 6e 64 20 73 74 72 20 24 6c 69 6e 65 5c 6e  pend str $line\n
0ac0: 0a 20 20 20 20 20 20 7d 0a 0a 20 20 20 20 20 20  .      }..      
0ad0: 73 65 74 20 72 65 20 7b 3c 73 70 61 6e 20 63 6c  set re {<span cl
0ae0: 61 73 73 3d 22 64 69 66 66 28 5b 61 2d 7a 5d 2b  ass="diff([a-z]+
0af0: 29 22 3e 28 5b 5e 3c 5d 2a 29 3c 2f 73 70 61 6e  )">([^<]*)</span
0b00: 3e 7d 0a 20 20 20 20 20 20 23 20 55 73 65 20 5c  >}.      # Use \
0b10: 72 20 61 73 20 73 65 70 61 72 61 74 6f 72 20 73  r as separator s
0b20: 69 6e 63 65 20 69 74 20 63 61 6e 27 74 20 61 70  ince it can't ap
0b30: 70 65 61 72 20 69 6e 20 74 68 65 20 64 69 66 66  pear in the diff
0b40: 20 6f 75 74 70 75 74 20 28 69 74 20 67 65 74 73   output (it gets
0b50: 0a 20 20 20 20 20 20 23 20 63 6f 6e 76 65 72 74  .      # convert
0b60: 65 64 20 74 6f 20 61 20 73 70 61 63 65 29 2e 0a  ed to a space)..
0b70: 20 20 20 20 20 20 73 65 74 20 73 74 72 20 5b 72        set str [r
0b80: 65 67 73 75 62 20 2d 61 6c 6c 20 24 72 65 20 24  egsub -all $re $
0b90: 73 74 72 20 22 5c 72 5c 5c 31 5c 72 5c 5c 32 5c  str "\r\\1\r\\2\
0ba0: 72 22 5d 0a 20 20 20 20 20 20 66 6f 72 65 61 63  r"].      foreac
0bb0: 68 20 7b 70 72 65 20 63 6c 61 73 73 20 6d 69 64  h {pre class mid
0bc0: 7d 20 5b 73 70 6c 69 74 20 24 73 74 72 20 5c 72  } [split $str \r
0bd0: 5d 20 7b 0a 20 20 20 20 20 20 20 20 69 66 20 7b  ] {.        if {
0be0: 24 63 6c 61 73 73 20 6e 65 20 22 22 7d 20 7b 0a  $class ne ""} {.
0bf0: 20 20 20 20 20 20 20 20 20 20 24 63 20 69 6e 73            $c ins
0c00: 65 72 74 20 65 6e 64 20 5b 64 65 68 74 6d 6c 20  ert end [dehtml 
0c10: 24 70 72 65 5d 20 2d 20 5b 64 65 68 74 6d 6c 20  $pre] - [dehtml 
0c20: 24 6d 69 64 5d 20 5b 6c 69 73 74 20 24 63 6c 61  $mid] [list $cla
0c30: 73 73 20 2d 5d 0a 20 20 20 20 20 20 20 20 7d 20  ss -].        } 
0c40: 65 6c 73 65 20 7b 0a 20 20 20 20 20 20 20 20 20  else {.         
0c50: 20 24 63 20 69 6e 73 65 72 74 20 65 6e 64 20 5b   $c insert end [
0c60: 64 65 68 74 6d 6c 20 24 70 72 65 5d 20 2d 0a 20  dehtml $pre] -. 
0c70: 20 20 20 20 20 20 20 7d 0a 20 20 20 20 20 20 7d         }.      }
0c80: 0a 20 20 20 20 7d 0a 0a 20 20 20 20 69 66 20 7b  .    }..    if {
0c90: 24 65 72 72 4d 73 67 20 6e 65 20 22 22 7d 20 7b  $errMsg ne ""} {
0ca0: 0a 20 20 20 20 20 20 66 6f 72 65 61 63 68 20 63  .      foreach c
0cb0: 20 7b 2e 74 78 74 41 20 2e 74 78 74 42 7d 20 7b   {.txtA .txtB} {
0cc0: 24 63 20 69 6e 73 65 72 74 20 65 6e 64 20 5b 73  $c insert end [s
0cd0: 74 72 69 6e 67 20 74 72 69 6d 20 24 65 72 72 4d  tring trim $errM
0ce0: 73 67 5d 20 65 72 72 7d 0a 20 20 20 20 20 20 66  sg] err}.      f
0cf0: 6f 72 65 61 63 68 20 63 20 5b 63 6f 6c 73 5d 20  oreach c [cols] 
0d00: 7b 24 63 20 69 6e 73 65 72 74 20 65 6e 64 20 5c  {$c insert end \
0d10: 6e 20 2d 7d 0a 20 20 20 20 7d 0a 20 20 7d 0a 0a  n -}.    }.  }..
0d20: 20 20 66 6f 72 65 61 63 68 20 63 20 5b 63 6f 6c    foreach c [col
0d30: 73 5d 20 7b 0a 20 20 20 20 73 65 74 20 74 79 70  s] {.    set typ
0d40: 65 20 5b 63 6f 6c 54 79 70 65 20 24 63 5d 0a 20  e [colType $c]. 
0d50: 20 20 20 69 66 20 7b 24 74 79 70 65 20 6e 65 20     if {$type ne 
0d60: 22 74 78 74 22 7d 20 7b 0a 20 20 20 20 20 20 24  "txt"} {.      $
0d70: 63 20 63 6f 6e 66 69 67 20 2d 77 69 64 74 68 20  c config -width 
0d80: 24 77 69 64 74 68 73 28 24 74 79 70 65 29 0a 20  $widths($type). 
0d90: 20 20 20 7d 0a 20 20 20 20 24 63 20 63 6f 6e 66     }.    $c conf
0da0: 69 67 20 2d 73 74 61 74 65 20 64 69 73 61 62 6c  ig -state disabl
0db0: 65 64 0a 20 20 7d 0a 20 20 69 66 20 7b 24 6e 44  ed.  }.  if {$nD
0dc0: 69 66 66 73 20 3c 3d 20 5b 2e 77 66 69 6c 65 73  iffs <= [.wfiles
0dd0: 2e 6c 62 20 63 67 65 74 20 2d 68 65 69 67 68 74  .lb cget -height
0de0: 5d 7d 20 7b 0a 20 20 20 20 2e 77 66 69 6c 65 73  ]} {.    .wfiles
0df0: 2e 6c 62 20 63 6f 6e 66 69 67 20 2d 68 65 69 67  .lb config -heig
0e00: 68 74 20 24 6e 44 69 66 66 73 0a 20 20 20 20 67  ht $nDiffs.    g
0e10: 72 69 64 20 72 65 6d 6f 76 65 20 2e 77 66 69 6c  rid remove .wfil
0e20: 65 73 2e 73 62 0a 20 20 7d 0a 0a 20 20 72 65 74  es.sb.  }..  ret
0e30: 75 72 6e 20 24 6e 44 69 66 66 73 0a 7d 0a 0a 70  urn $nDiffs.}..p
0e40: 72 6f 63 20 76 69 65 77 44 69 66 66 20 7b 69 64  roc viewDiff {id
0e50: 78 7d 20 7b 0a 20 20 2e 74 78 74 41 20 79 76 69  x} {.  .txtA yvi
0e60: 65 77 20 24 69 64 78 0a 20 20 2e 74 78 74 41 20  ew $idx.  .txtA 
0e70: 78 76 69 65 77 20 6d 6f 76 65 74 6f 20 30 0a 7d  xview moveto 0.}
0e80: 0a 0a 70 72 6f 63 20 63 79 63 6c 65 44 69 66 66  ..proc cycleDiff
0e90: 73 20 7b 7b 72 65 76 65 72 73 65 20 30 7d 7d 20  s {{reverse 0}} 
0ea0: 7b 0a 20 20 69 66 20 7b 24 72 65 76 65 72 73 65  {.  if {$reverse
0eb0: 7d 20 7b 0a 20 20 20 20 73 65 74 20 72 61 6e 67  } {.    set rang
0ec0: 65 20 5b 2e 74 78 74 41 20 74 61 67 20 70 72 65  e [.txtA tag pre
0ed0: 76 72 61 6e 67 65 20 66 6e 20 40 30 2c 30 20 31  vrange fn @0,0 1
0ee0: 2e 30 5d 0a 20 20 20 20 69 66 20 7b 24 72 61 6e  .0].    if {$ran
0ef0: 67 65 20 65 71 20 22 22 7d 20 7b 0a 20 20 20 20  ge eq ""} {.    
0f00: 20 20 76 69 65 77 44 69 66 66 20 7b 66 6e 2e 6c    viewDiff {fn.l
0f10: 61 73 74 20 2d 31 63 7d 0a 20 20 20 20 7d 20 65  ast -1c}.    } e
0f20: 6c 73 65 20 7b 0a 20 20 20 20 20 20 76 69 65 77  lse {.      view
0f30: 44 69 66 66 20 5b 6c 69 6e 64 65 78 20 24 72 61  Diff [lindex $ra
0f40: 6e 67 65 20 30 5d 0a 20 20 20 20 7d 0a 20 20 7d  nge 0].    }.  }
0f50: 20 65 6c 73 65 20 7b 0a 20 20 20 20 73 65 74 20   else {.    set 
0f60: 72 61 6e 67 65 20 5b 2e 74 78 74 41 20 74 61 67  range [.txtA tag
0f70: 20 6e 65 78 74 72 61 6e 67 65 20 66 6e 20 7b 40   nextrange fn {@
0f80: 30 2c 30 20 2b 31 63 7d 20 65 6e 64 5d 0a 20 20  0,0 +1c} end].  
0f90: 20 20 69 66 20 7b 24 72 61 6e 67 65 20 65 71 20    if {$range eq 
0fa0: 22 22 20 7c 7c 20 5b 6c 69 6e 64 65 78 20 5b 2e  "" || [lindex [.
0fb0: 74 78 74 41 20 79 76 69 65 77 5d 20 31 5d 20 3d  txtA yview] 1] =
0fc0: 3d 20 31 7d 20 7b 0a 20 20 20 20 20 20 76 69 65  = 1} {.      vie
0fd0: 77 44 69 66 66 20 66 6e 2e 66 69 72 73 74 0a 20  wDiff fn.first. 
0fe0: 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20     } else {.    
0ff0: 20 20 76 69 65 77 44 69 66 66 20 5b 6c 69 6e 64    viewDiff [lind
1000: 65 78 20 24 72 61 6e 67 65 20 30 5d 0a 20 20 20  ex $range 0].   
1010: 20 7d 0a 20 20 7d 0a 7d 0a 0a 70 72 6f 63 20 78   }.  }.}..proc x
1020: 76 69 73 20 7b 63 6f 6c 7d 20 7b 0a 20 20 73 65  vis {col} {.  se
1030: 74 20 76 69 65 77 20 5b 24 63 6f 6c 20 78 76 69  t view [$col xvi
1040: 65 77 5d 0a 20 20 72 65 74 75 72 6e 20 5b 65 78  ew].  return [ex
1050: 70 72 20 7b 5b 6c 69 6e 64 65 78 20 24 76 69 65  pr {[lindex $vie
1060: 77 20 31 5d 2d 5b 6c 69 6e 64 65 78 20 24 76 69  w 1]-[lindex $vi
1070: 65 77 20 30 5d 7d 5d 0a 7d 0a 0a 70 72 6f 63 20  ew 0]}].}..proc 
1080: 73 63 72 6f 6c 6c 2d 78 20 7b 61 72 67 73 7d 20  scroll-x {args} 
1090: 7b 0a 20 20 73 65 74 20 63 20 2e 74 78 74 5b 65  {.  set c .txt[e
10a0: 78 70 72 20 7b 5b 78 76 69 73 20 2e 74 78 74 41  xpr {[xvis .txtA
10b0: 5d 20 3c 20 5b 78 76 69 73 20 2e 74 78 74 42 5d  ] < [xvis .txtB]
10c0: 20 3f 20 22 41 22 20 3a 20 22 42 22 7d 5d 0a 20   ? "A" : "B"}]. 
10d0: 20 65 76 61 6c 20 24 63 20 78 76 69 65 77 20 24   eval $c xview $
10e0: 61 72 67 73 0a 7d 0a 0a 69 6e 74 65 72 70 20 61  args.}..interp a
10f0: 6c 69 61 73 20 7b 7d 20 73 63 72 6f 6c 6c 2d 79  lias {} scroll-y
1100: 20 7b 7d 20 2e 74 78 74 41 20 79 76 69 65 77 0a   {} .txtA yview.
1110: 0a 70 72 6f 63 20 6e 6f 6f 70 20 7b 61 72 67 73  .proc noop {args
1120: 7d 20 7b 7d 0a 0a 70 72 6f 63 20 65 6e 61 62 6c  } {}..proc enabl
1130: 65 53 79 6e 63 20 7b 61 78 69 73 7d 20 7b 0a 20  eSync {axis} {. 
1140: 20 75 70 64 61 74 65 20 69 64 6c 65 74 61 73 6b   update idletask
1150: 73 0a 20 20 69 6e 74 65 72 70 20 61 6c 69 61 73  s.  interp alias
1160: 20 7b 7d 20 73 79 6e 63 2d 24 61 78 69 73 20 7b   {} sync-$axis {
1170: 7d 0a 20 20 72 65 6e 61 6d 65 20 5f 73 79 6e 63  }.  rename _sync
1180: 2d 24 61 78 69 73 20 73 79 6e 63 2d 24 61 78 69  -$axis sync-$axi
1190: 73 0a 7d 0a 0a 70 72 6f 63 20 64 69 73 61 62 6c  s.}..proc disabl
11a0: 65 53 79 6e 63 20 7b 61 78 69 73 7d 20 7b 0a 20  eSync {axis} {. 
11b0: 20 72 65 6e 61 6d 65 20 73 79 6e 63 2d 24 61 78   rename sync-$ax
11c0: 69 73 20 5f 73 79 6e 63 2d 24 61 78 69 73 0a 20  is _sync-$axis. 
11d0: 20 69 6e 74 65 72 70 20 61 6c 69 61 73 20 7b 7d   interp alias {}
11e0: 20 73 79 6e 63 2d 24 61 78 69 73 20 7b 7d 20 6e   sync-$axis {} n
11f0: 6f 6f 70 0a 7d 0a 0a 70 72 6f 63 20 73 79 6e 63  oop.}..proc sync
1200: 2d 78 20 7b 63 6f 6c 20 66 69 72 73 74 20 6c 61  -x {col first la
1210: 73 74 7d 20 7b 0a 20 20 64 69 73 61 62 6c 65 53  st} {.  disableS
1220: 79 6e 63 20 78 0a 20 20 24 63 6f 6c 20 78 76 69  ync x.  $col xvi
1230: 65 77 20 6d 6f 76 65 74 6f 20 5b 65 78 70 72 20  ew moveto [expr 
1240: 7b 24 66 69 72 73 74 2a 5b 78 76 69 73 20 24 63  {$first*[xvis $c
1250: 6f 6c 5d 2f 28 24 6c 61 73 74 2d 24 66 69 72 73  ol]/($last-$firs
1260: 74 29 7d 5d 0a 20 20 66 6f 72 65 61 63 68 20 73  t)}].  foreach s
1270: 69 64 65 20 7b 41 20 42 7d 20 7b 0a 20 20 20 20  ide {A B} {.    
1280: 73 65 74 20 73 62 20 2e 73 62 78 24 73 69 64 65  set sb .sbx$side
1290: 0a 20 20 20 20 73 65 74 20 78 76 69 65 77 20 5b  .    set xview [
12a0: 2e 74 78 74 24 73 69 64 65 20 78 76 69 65 77 5d  .txt$side xview]
12b0: 0a 20 20 20 20 69 66 20 7b 5b 6c 69 6e 64 65 78  .    if {[lindex
12c0: 20 24 78 76 69 65 77 20 30 5d 20 3e 20 30 20 7c   $xview 0] > 0 |
12d0: 7c 20 5b 6c 69 6e 64 65 78 20 24 78 76 69 65 77  | [lindex $xview
12e0: 20 31 5d 20 3c 20 31 7d 20 7b 0a 20 20 20 20 20   1] < 1} {.     
12f0: 20 67 72 69 64 20 24 73 62 0a 20 20 20 20 20 20   grid $sb.      
1300: 65 76 61 6c 20 24 73 62 20 73 65 74 20 24 78 76  eval $sb set $xv
1310: 69 65 77 0a 20 20 20 20 7d 20 65 6c 73 65 20 7b  iew.    } else {
1320: 0a 20 20 20 20 20 20 67 72 69 64 20 72 65 6d 6f  .      grid remo
1330: 76 65 20 24 73 62 0a 20 20 20 20 7d 0a 20 20 7d  ve $sb.    }.  }
1340: 0a 20 20 65 6e 61 62 6c 65 53 79 6e 63 20 78 0a  .  enableSync x.
1350: 7d 0a 0a 70 72 6f 63 20 73 79 6e 63 2d 79 20 7b  }..proc sync-y {
1360: 66 69 72 73 74 20 6c 61 73 74 7d 20 7b 0a 20 20  first last} {.  
1370: 64 69 73 61 62 6c 65 53 79 6e 63 20 79 0a 20 20  disableSync y.  
1380: 66 6f 72 65 61 63 68 20 63 20 5b 63 6f 6c 73 5d  foreach c [cols]
1390: 20 7b 0a 20 20 20 20 24 63 20 79 76 69 65 77 20   {.    $c yview 
13a0: 6d 6f 76 65 74 6f 20 24 66 69 72 73 74 0a 20 20  moveto $first.  
13b0: 7d 0a 20 20 69 66 20 7b 24 66 69 72 73 74 20 3e  }.  if {$first >
13c0: 20 30 20 7c 7c 20 24 6c 61 73 74 20 3c 20 31 7d   0 || $last < 1}
13d0: 20 7b 0a 20 20 20 20 67 72 69 64 20 2e 73 62 79   {.    grid .sby
13e0: 0a 20 20 20 20 2e 73 62 79 20 73 65 74 20 24 66  .    .sby set $f
13f0: 69 72 73 74 20 24 6c 61 73 74 0a 20 20 7d 20 65  irst $last.  } e
1400: 6c 73 65 20 7b 0a 20 20 20 20 67 72 69 64 20 72  lse {.    grid r
1410: 65 6d 6f 76 65 20 2e 73 62 79 0a 20 20 7d 0a 20  emove .sby.  }. 
1420: 20 65 6e 61 62 6c 65 53 79 6e 63 20 79 0a 7d 0a   enableSync y.}.
1430: 0a 77 6d 20 77 69 74 68 64 72 61 77 20 2e 0a 77  .wm withdraw ..w
1440: 6d 20 74 69 74 6c 65 20 2e 20 24 43 46 47 28 54  m title . $CFG(T
1450: 49 54 4c 45 29 0a 77 6d 20 69 63 6f 6e 6e 61 6d  ITLE).wm iconnam
1460: 65 20 2e 20 24 43 46 47 28 54 49 54 4c 45 29 0a  e . $CFG(TITLE).
1470: 23 20 4b 65 79 73 74 72 6f 6b 65 20 62 69 6e 64  # Keystroke bind
1480: 69 6e 67 73 20 66 6f 72 20 6f 6e 20 74 68 65 20  ings for on the 
1490: 74 6f 70 2d 6c 65 76 65 6c 20 77 69 6e 64 6f 77  top-level window
14a0: 20 66 6f 72 20 6e 61 76 69 67 61 74 69 6f 6e 20   for navigation 
14b0: 61 6e 64 0a 23 20 63 6f 6e 74 72 6f 6c 20 61 6c  and.# control al
14c0: 73 6f 20 66 69 72 65 20 77 68 65 6e 20 74 68 6f  so fire when tho
14d0: 73 65 20 73 61 6d 65 20 6b 65 79 73 74 72 6f 6b  se same keystrok
14e0: 65 73 20 61 72 65 20 70 72 65 73 73 65 64 20 69  es are pressed i
14f0: 6e 20 74 68 65 0a 23 20 53 65 61 72 63 68 20 65  n the.# Search e
1500: 6e 74 72 79 20 62 6f 78 2e 20 20 44 69 73 61 62  ntry box.  Disab
1510: 6c 65 20 74 68 65 6d 2c 20 74 6f 20 70 72 65 76  le them, to prev
1520: 65 6e 74 20 74 68 65 20 64 69 66 66 20 73 63 72  ent the diff scr
1530: 65 65 6e 20 66 72 6f 6d 0a 23 20 64 69 73 61 70  een from.# disap
1540: 70 65 61 72 69 6e 67 20 61 62 72 75 70 74 6c 79  pearing abruptly
1550: 20 61 6e 64 20 75 6e 65 78 70 65 63 74 65 64 6c   and unexpectedl
1560: 79 20 77 68 65 6e 20 73 65 61 72 63 68 69 6e 67  y when searching
1570: 20 66 6f 72 20 22 71 22 2e 0a 23 0a 62 69 6e 64   for "q"..#.bind
1580: 20 2e 20 3c 43 6f 6e 74 72 6f 6c 2d 71 3e 20 65   . <Control-q> e
1590: 78 69 74 0a 62 69 6e 64 20 2e 20 3c 43 6f 6e 74  xit.bind . <Cont
15a0: 72 6f 6c 2d 70 3e 20 7b 63 61 74 63 68 20 73 65  rol-p> {catch se
15b0: 61 72 63 68 50 72 65 76 3b 20 62 72 65 61 6b 7d  archPrev; break}
15c0: 0a 62 69 6e 64 20 2e 20 3c 43 6f 6e 74 72 6f 6c  .bind . <Control
15d0: 2d 6e 3e 20 7b 63 61 74 63 68 20 73 65 61 72 63  -n> {catch searc
15e0: 68 4e 65 78 74 3b 20 62 72 65 61 6b 7d 0a 62 69  hNext; break}.bi
15f0: 6e 64 20 2e 20 3c 45 73 63 61 70 65 3e 3c 45 73  nd . <Escape><Es
1600: 63 61 70 65 3e 20 65 78 69 74 0a 62 69 6e 64 20  cape> exit.bind 
1610: 2e 20 3c 44 65 73 74 72 6f 79 3e 20 7b 61 66 74  . <Destroy> {aft
1620: 65 72 20 30 20 65 78 69 74 7d 0a 62 69 6e 64 20  er 0 exit}.bind 
1630: 2e 20 3c 54 61 62 3e 20 7b 63 79 63 6c 65 44 69  . <Tab> {cycleDi
1640: 66 66 73 3b 20 62 72 65 61 6b 7d 0a 62 69 6e 64  ffs; break}.bind
1650: 20 2e 20 3c 3c 50 72 65 76 57 69 6e 64 6f 77 3e   . <<PrevWindow>
1660: 3e 20 7b 63 79 63 6c 65 44 69 66 66 73 20 31 3b  > {cycleDiffs 1;
1670: 20 62 72 65 61 6b 7d 0a 62 69 6e 64 20 2e 20 3c   break}.bind . <
1680: 43 6f 6e 74 72 6f 6c 2d 66 3e 20 7b 73 65 61 72  Control-f> {sear
1690: 63 68 4f 6e 4f 66 66 3b 20 62 72 65 61 6b 7d 0a  chOnOff; break}.
16a0: 62 69 6e 64 20 2e 20 3c 43 6f 6e 74 72 6f 6c 2d  bind . <Control-
16b0: 67 3e 20 7b 63 61 74 63 68 20 73 65 61 72 63 68  g> {catch search
16c0: 4e 65 78 74 3b 20 62 72 65 61 6b 7d 0a 62 69 6e  Next; break}.bin
16d0: 64 20 2e 20 3c 52 65 74 75 72 6e 3e 20 7b 0a 20  d . <Return> {. 
16e0: 20 65 76 65 6e 74 20 67 65 6e 65 72 61 74 65 20   event generate 
16f0: 2e 62 62 2e 66 69 6c 65 73 20 3c 31 3e 0a 20 20  .bb.files <1>.  
1700: 65 76 65 6e 74 20 67 65 6e 65 72 61 74 65 20 2e  event generate .
1710: 62 62 2e 66 69 6c 65 73 20 3c 42 75 74 74 6f 6e  bb.files <Button
1720: 52 65 6c 65 61 73 65 2d 31 3e 0a 20 20 62 72 65  Release-1>.  bre
1730: 61 6b 0a 7d 0a 66 6f 72 65 61 63 68 20 7b 6b 65  ak.}.foreach {ke
1740: 79 20 61 78 69 73 20 61 72 67 73 7d 20 7b 0a 20  y axis args} {. 
1750: 20 55 70 20 20 20 20 79 20 7b 73 63 72 6f 6c 6c   Up    y {scroll
1760: 20 2d 35 20 75 6e 69 74 73 7d 0a 20 20 6b 20 20   -5 units}.  k  
1770: 20 20 20 79 20 7b 73 63 72 6f 6c 6c 20 2d 35 20     y {scroll -5 
1780: 75 6e 69 74 73 7d 0a 20 20 44 6f 77 6e 20 20 79  units}.  Down  y
1790: 20 7b 73 63 72 6f 6c 6c 20 35 20 75 6e 69 74 73   {scroll 5 units
17a0: 7d 0a 20 20 6a 20 20 20 20 20 79 20 7b 73 63 72  }.  j     y {scr
17b0: 6f 6c 6c 20 35 20 75 6e 69 74 73 7d 0a 20 20 4c  oll 5 units}.  L
17c0: 65 66 74 20 20 78 20 7b 73 63 72 6f 6c 6c 20 2d  eft  x {scroll -
17d0: 35 20 75 6e 69 74 73 7d 0a 20 20 68 20 20 20 20  5 units}.  h    
17e0: 20 78 20 7b 73 63 72 6f 6c 6c 20 2d 35 20 75 6e   x {scroll -5 un
17f0: 69 74 73 7d 0a 20 20 52 69 67 68 74 20 78 20 7b  its}.  Right x {
1800: 73 63 72 6f 6c 6c 20 35 20 75 6e 69 74 73 7d 0a  scroll 5 units}.
1810: 20 20 6c 20 20 20 20 20 78 20 7b 73 63 72 6f 6c    l     x {scrol
1820: 6c 20 35 20 75 6e 69 74 73 7d 0a 20 20 50 72 69  l 5 units}.  Pri
1830: 6f 72 20 79 20 7b 73 63 72 6f 6c 6c 20 2d 31 20  or y {scroll -1 
1840: 70 61 67 65 7d 0a 20 20 62 20 20 20 20 20 79 20  page}.  b     y 
1850: 7b 73 63 72 6f 6c 6c 20 2d 31 20 70 61 67 65 7d  {scroll -1 page}
1860: 0a 20 20 4e 65 78 74 20 20 79 20 7b 73 63 72 6f  .  Next  y {scro
1870: 6c 6c 20 31 20 70 61 67 65 7d 0a 20 20 73 70 61  ll 1 page}.  spa
1880: 63 65 20 79 20 7b 73 63 72 6f 6c 6c 20 31 20 70  ce y {scroll 1 p
1890: 61 67 65 7d 0a 20 20 48 6f 6d 65 20 20 79 20 7b  age}.  Home  y {
18a0: 6d 6f 76 65 74 6f 20 30 7d 0a 20 20 67 20 20 20  moveto 0}.  g   
18b0: 20 20 79 20 7b 6d 6f 76 65 74 6f 20 30 7d 0a 20    y {moveto 0}. 
18c0: 20 45 6e 64 20 20 20 79 20 7b 6d 6f 76 65 74 6f   End   y {moveto
18d0: 20 31 7d 0a 7d 20 7b 0a 20 20 62 69 6e 64 20 2e   1}.} {.  bind .
18e0: 20 3c 24 6b 65 79 3e 20 22 73 63 72 6f 6c 6c 2d   <$key> "scroll-
18f0: 24 61 78 69 73 20 24 61 72 67 73 3b 20 62 72 65  $axis $args; bre
1900: 61 6b 22 0a 20 20 62 69 6e 64 20 2e 20 3c 53 68  ak".  bind . <Sh
1910: 69 66 74 2d 24 6b 65 79 3e 20 63 6f 6e 74 69 6e  ift-$key> contin
1920: 75 65 0a 7d 0a 0a 66 72 61 6d 65 20 2e 62 62 0a  ue.}..frame .bb.
1930: 3a 3a 74 74 6b 3a 3a 6d 65 6e 75 62 75 74 74 6f  ::ttk::menubutto
1940: 6e 20 2e 62 62 2e 66 69 6c 65 73 20 2d 74 65 78  n .bb.files -tex
1950: 74 20 22 46 69 6c 65 73 22 0a 69 66 20 7b 5b 74  t "Files".if {[t
1960: 6b 20 77 69 6e 64 6f 77 69 6e 67 73 79 73 74 65  k windowingsyste
1970: 6d 5d 20 65 71 20 22 77 69 6e 33 32 22 7d 20 7b  m] eq "win32"} {
1980: 0a 20 20 3a 3a 74 74 6b 3a 3a 73 74 79 6c 65 20  .  ::ttk::style 
1990: 74 68 65 6d 65 20 75 73 65 20 77 69 6e 6e 61 74  theme use winnat
19a0: 69 76 65 0a 20 20 2e 62 62 2e 66 69 6c 65 73 20  ive.  .bb.files 
19b0: 63 6f 6e 66 69 67 75 72 65 20 2d 70 61 64 64 69  configure -paddi
19c0: 6e 67 20 7b 32 30 20 31 20 31 30 20 32 7d 0a 7d  ng {20 1 10 2}.}
19d0: 0a 74 6f 70 6c 65 76 65 6c 20 2e 77 66 69 6c 65  .toplevel .wfile
19e0: 73 0a 77 6d 20 77 69 74 68 64 72 61 77 20 2e 77  s.wm withdraw .w
19f0: 66 69 6c 65 73 0a 75 70 64 61 74 65 20 69 64 6c  files.update idl
1a00: 65 74 61 73 6b 73 0a 77 6d 20 74 72 61 6e 73 69  etasks.wm transi
1a10: 65 6e 74 20 2e 77 66 69 6c 65 73 20 2e 0a 77 6d  ent .wfiles ..wm
1a20: 20 6f 76 65 72 72 69 64 65 72 65 64 69 72 65 63   overrideredirec
1a30: 74 20 2e 77 66 69 6c 65 73 20 31 0a 6c 69 73 74  t .wfiles 1.list
1a40: 62 6f 78 20 2e 77 66 69 6c 65 73 2e 6c 62 20 2d  box .wfiles.lb -
1a50: 77 69 64 74 68 20 30 20 2d 68 65 69 67 68 74 20  width 0 -height 
1a60: 24 43 46 47 28 4c 42 5f 48 45 49 47 48 54 29 20  $CFG(LB_HEIGHT) 
1a70: 2d 61 63 74 69 76 65 73 74 79 6c 65 20 6e 6f 6e  -activestyle non
1a80: 65 20 5c 0a 20 20 2d 79 73 63 72 6f 6c 6c 20 7b  e \.  -yscroll {
1a90: 2e 77 66 69 6c 65 73 2e 73 62 20 73 65 74 7d 0a  .wfiles.sb set}.
1aa0: 3a 3a 74 74 6b 3a 3a 73 63 72 6f 6c 6c 62 61 72  ::ttk::scrollbar
1ab0: 20 2e 77 66 69 6c 65 73 2e 73 62 20 2d 63 6f 6d   .wfiles.sb -com
1ac0: 6d 61 6e 64 20 7b 2e 77 66 69 6c 65 73 2e 6c 62  mand {.wfiles.lb
1ad0: 20 79 76 69 65 77 7d 0a 67 72 69 64 20 2e 77 66   yview}.grid .wf
1ae0: 69 6c 65 73 2e 6c 62 20 2e 77 66 69 6c 65 73 2e  iles.lb .wfiles.
1af0: 73 62 20 2d 73 74 69 63 6b 79 20 6e 73 0a 62 69  sb -sticky ns.bi
1b00: 6e 64 20 2e 62 62 2e 66 69 6c 65 73 20 3c 31 3e  nd .bb.files <1>
1b10: 20 7b 0a 20 20 73 65 74 20 78 20 5b 77 69 6e 66   {.  set x [winf
1b20: 6f 20 72 6f 6f 74 78 20 25 57 5d 0a 20 20 73 65  o rootx %W].  se
1b30: 74 20 79 20 5b 65 78 70 72 20 7b 5b 77 69 6e 66  t y [expr {[winf
1b40: 6f 20 72 6f 6f 74 79 20 25 57 5d 2b 5b 77 69 6e  o rooty %W]+[win
1b50: 66 6f 20 68 65 69 67 68 74 20 25 57 5d 7d 5d 0a  fo height %W]}].
1b60: 20 20 77 6d 20 67 65 6f 6d 65 74 72 79 20 2e 77    wm geometry .w
1b70: 66 69 6c 65 73 20 2b 24 78 2b 24 79 0a 20 20 77  files +$x+$y.  w
1b80: 6d 20 64 65 69 63 6f 6e 69 66 79 20 2e 77 66 69  m deiconify .wfi
1b90: 6c 65 73 0a 20 20 66 6f 63 75 73 20 2e 77 66 69  les.  focus .wfi
1ba0: 6c 65 73 2e 6c 62 0a 7d 0a 62 69 6e 64 20 2e 77  les.lb.}.bind .w
1bb0: 66 69 6c 65 73 20 3c 46 6f 63 75 73 4f 75 74 3e  files <FocusOut>
1bc0: 20 7b 77 6d 20 77 69 74 68 64 72 61 77 20 2e 77   {wm withdraw .w
1bd0: 66 69 6c 65 73 7d 0a 62 69 6e 64 20 2e 77 66 69  files}.bind .wfi
1be0: 6c 65 73 20 3c 45 73 63 61 70 65 3e 20 7b 66 6f  les <Escape> {fo
1bf0: 63 75 73 20 2e 7d 0a 66 6f 72 65 61 63 68 20 65  cus .}.foreach e
1c00: 76 74 20 7b 31 20 52 65 74 75 72 6e 7d 20 7b 0a  vt {1 Return} {.
1c10: 20 20 62 69 6e 64 20 2e 77 66 69 6c 65 73 2e 6c    bind .wfiles.l
1c20: 62 20 3c 24 65 76 74 3e 20 7b 0a 20 20 20 20 63  b <$evt> {.    c
1c30: 61 74 63 68 20 7b 0a 20 20 20 20 20 20 73 65 74  atch {.      set
1c40: 20 69 64 78 20 5b 6c 69 6e 64 65 78 20 5b 2e 74   idx [lindex [.t
1c50: 78 74 41 20 74 61 67 20 72 61 6e 67 65 73 20 66  xtA tag ranges f
1c60: 6e 5d 20 5b 65 78 70 72 20 7b 5b 25 57 20 63 75  n] [expr {[%W cu
1c70: 72 73 65 6c 65 63 74 69 6f 6e 5d 2a 32 7d 5d 5d  rselection]*2}]]
1c80: 0a 20 20 20 20 20 20 76 69 65 77 44 69 66 66 20  .      viewDiff 
1c90: 24 69 64 78 0a 20 20 20 20 7d 0a 20 20 20 20 66  $idx.    }.    f
1ca0: 6f 63 75 73 20 2e 0a 20 20 20 20 62 72 65 61 6b  ocus ..    break
1cb0: 0a 20 20 7d 0a 7d 0a 62 69 6e 64 20 2e 77 66 69  .  }.}.bind .wfi
1cc0: 6c 65 73 2e 6c 62 20 3c 4d 6f 74 69 6f 6e 3e 20  les.lb <Motion> 
1cd0: 7b 0a 20 20 25 57 20 73 65 6c 65 63 74 69 6f 6e  {.  %W selection
1ce0: 20 63 6c 65 61 72 20 30 20 65 6e 64 0a 20 20 25   clear 0 end.  %
1cf0: 57 20 73 65 6c 65 63 74 69 6f 6e 20 73 65 74 20  W selection set 
1d00: 40 25 78 2c 25 79 0a 7d 0a 0a 66 6f 72 65 61 63  @%x,%y.}..foreac
1d10: 68 20 7b 73 69 64 65 20 73 79 6e 63 43 6f 6c 7d  h {side syncCol}
1d20: 20 7b 41 20 2e 74 78 74 42 20 42 20 2e 74 78 74   {A .txtB B .txt
1d30: 41 7d 20 7b 0a 20 20 73 65 74 20 6c 6e 20 2e 6c  A} {.  set ln .l
1d40: 6e 24 73 69 64 65 0a 20 20 74 65 78 74 20 24 6c  n$side.  text $l
1d50: 6e 0a 20 20 24 6c 6e 20 74 61 67 20 63 6f 6e 66  n.  $ln tag conf
1d60: 69 67 20 2d 20 2d 6a 75 73 74 69 66 79 20 72 69  ig - -justify ri
1d70: 67 68 74 0a 0a 20 20 73 65 74 20 74 78 74 20 2e  ght..  set txt .
1d80: 74 78 74 24 73 69 64 65 0a 20 20 74 65 78 74 20  txt$side.  text 
1d90: 24 74 78 74 20 2d 77 69 64 74 68 20 24 43 46 47  $txt -width $CFG
1da0: 28 57 49 44 54 48 29 20 2d 68 65 69 67 68 74 20  (WIDTH) -height 
1db0: 24 43 46 47 28 48 45 49 47 48 54 29 20 2d 77 72  $CFG(HEIGHT) -wr
1dc0: 61 70 20 6e 6f 6e 65 20 5c 0a 20 20 20 20 2d 78  ap none \.    -x
1dd0: 73 63 72 6f 6c 6c 20 22 73 79 6e 63 2d 78 20 24  scroll "sync-x $
1de0: 73 79 6e 63 43 6f 6c 22 0a 20 20 63 61 74 63 68  syncCol".  catch
1df0: 20 7b 24 74 78 74 20 63 6f 6e 66 69 67 20 2d 74   {$txt config -t
1e00: 61 62 73 74 79 6c 65 20 77 6f 72 64 70 72 6f 63  abstyle wordproc
1e10: 65 73 73 6f 72 7d 20 3b 23 20 52 65 71 75 69 72  essor} ;# Requir
1e20: 65 64 20 66 6f 72 20 54 6b 3e 3d 38 2e 35 0a 20  ed for Tk>=8.5. 
1e30: 20 66 6f 72 65 61 63 68 20 74 61 67 20 7b 61 64   foreach tag {ad
1e40: 64 20 72 6d 20 63 68 6e 67 7d 20 7b 0a 20 20 20  d rm chng} {.   
1e50: 20 24 74 78 74 20 74 61 67 20 63 6f 6e 66 69 67   $txt tag config
1e60: 20 24 74 61 67 20 2d 62 61 63 6b 67 72 6f 75 6e   $tag -backgroun
1e70: 64 20 24 43 46 47 28 5b 73 74 72 69 6e 67 20 74  d $CFG([string t
1e80: 6f 75 70 70 65 72 20 24 74 61 67 5d 5f 42 47 29  oupper $tag]_BG)
1e90: 0a 20 20 20 20 24 74 78 74 20 74 61 67 20 6c 6f  .    $txt tag lo
1ea0: 77 65 72 20 24 74 61 67 0a 20 20 7d 0a 20 20 24  wer $tag.  }.  $
1eb0: 74 78 74 20 74 61 67 20 63 6f 6e 66 69 67 20 66  txt tag config f
1ec0: 6e 20 2d 62 61 63 6b 67 72 6f 75 6e 64 20 24 43  n -background $C
1ed0: 46 47 28 46 4e 5f 42 47 29 20 2d 66 6f 72 65 67  FG(FN_BG) -foreg
1ee0: 72 6f 75 6e 64 20 24 43 46 47 28 46 4e 5f 46 47  round $CFG(FN_FG
1ef0: 29 20 5c 0a 20 20 20 20 2d 6a 75 73 74 69 66 79  ) \.    -justify
1f00: 20 63 65 6e 74 65 72 0a 20 20 24 74 78 74 20 74   center.  $txt t
1f10: 61 67 20 63 6f 6e 66 69 67 20 65 72 72 20 2d 66  ag config err -f
1f20: 6f 72 65 67 72 6f 75 6e 64 20 24 43 46 47 28 45  oreground $CFG(E
1f30: 52 52 5f 46 47 29 0a 7d 0a 74 65 78 74 20 2e 6d  RR_FG).}.text .m
1f40: 6b 72 0a 0a 66 6f 72 65 61 63 68 20 63 20 5b 63  kr..foreach c [c
1f50: 6f 6c 73 5d 20 7b 0a 20 20 73 65 74 20 6b 65 79  ols] {.  set key
1f60: 50 72 65 66 69 78 20 5b 73 74 72 69 6e 67 20 74  Prefix [string t
1f70: 6f 75 70 70 65 72 20 5b 63 6f 6c 54 79 70 65 20  oupper [colType 
1f80: 24 63 5d 5d 5f 43 4f 4c 5f 0a 20 20 69 66 20 7b  $c]]_COL_.  if {
1f90: 5b 74 6b 20 77 69 6e 64 6f 77 69 6e 67 73 79 73  [tk windowingsys
1fa0: 74 65 6d 5d 20 65 71 20 22 77 69 6e 33 32 22 7d  tem] eq "win32"}
1fb0: 20 7b 24 63 20 63 6f 6e 66 69 67 20 2d 66 6f 6e   {$c config -fon
1fc0: 74 20 7b 63 6f 75 72 69 65 72 20 39 7d 7d 0a 20  t {courier 9}}. 
1fd0: 20 24 63 20 63 6f 6e 66 69 67 20 2d 62 67 20 24   $c config -bg $
1fe0: 43 46 47 28 24 7b 6b 65 79 50 72 65 66 69 78 7d  CFG(${keyPrefix}
1ff0: 42 47 29 20 2d 66 67 20 24 43 46 47 28 24 7b 6b  BG) -fg $CFG(${k
2000: 65 79 50 72 65 66 69 78 7d 46 47 29 20 2d 62 6f  eyPrefix}FG) -bo
2010: 72 64 65 72 77 69 64 74 68 20 30 20 5c 0a 20 20  rderwidth 0 \.  
2020: 20 20 2d 70 61 64 78 20 24 43 46 47 28 50 41 44    -padx $CFG(PAD
2030: 58 29 20 2d 79 73 63 72 6f 6c 6c 20 73 79 6e 63  X) -yscroll sync
2040: 2d 79 0a 20 20 24 63 20 74 61 67 20 63 6f 6e 66  -y.  $c tag conf
2050: 69 67 20 68 72 20 2d 73 70 61 63 69 6e 67 31 20  ig hr -spacing1 
2060: 24 43 46 47 28 48 52 5f 50 41 44 5f 54 4f 50 29  $CFG(HR_PAD_TOP)
2070: 20 2d 73 70 61 63 69 6e 67 33 20 24 43 46 47 28   -spacing3 $CFG(
2080: 48 52 5f 50 41 44 5f 42 54 4d 29 20 5c 0a 20 20  HR_PAD_BTM) \.  
2090: 20 20 20 2d 66 6f 72 65 67 72 6f 75 6e 64 20 24     -foreground $
20a0: 43 46 47 28 48 52 5f 46 47 29 0a 20 20 24 63 20  CFG(HR_FG).  $c 
20b0: 74 61 67 20 63 6f 6e 66 69 67 20 66 6e 20 2d 73  tag config fn -s
20c0: 70 61 63 69 6e 67 31 20 24 43 46 47 28 46 4e 5f  pacing1 $CFG(FN_
20d0: 50 41 44 29 20 2d 73 70 61 63 69 6e 67 33 20 24  PAD) -spacing3 $
20e0: 43 46 47 28 46 4e 5f 50 41 44 29 0a 20 20 62 69  CFG(FN_PAD).  bi
20f0: 6e 64 74 61 67 73 20 24 63 20 22 2e 20 24 63 20  ndtags $c ". $c 
2100: 54 65 78 74 20 61 6c 6c 22 0a 20 20 62 69 6e 64  Text all".  bind
2110: 20 24 63 20 3c 31 3e 20 7b 66 6f 63 75 73 20 25   $c <1> {focus %
2120: 57 7d 0a 7d 0a 0a 3a 3a 74 74 6b 3a 3a 73 63 72  W}.}..::ttk::scr
2130: 6f 6c 6c 62 61 72 20 2e 73 62 79 20 2d 63 6f 6d  ollbar .sby -com
2140: 6d 61 6e 64 20 7b 2e 74 78 74 41 20 79 76 69 65  mand {.txtA yvie
2150: 77 7d 20 2d 6f 72 69 65 6e 74 20 76 65 72 74 69  w} -orient verti
2160: 63 61 6c 0a 3a 3a 74 74 6b 3a 3a 73 63 72 6f 6c  cal.::ttk::scrol
2170: 6c 62 61 72 20 2e 73 62 78 41 20 2d 63 6f 6d 6d  lbar .sbxA -comm
2180: 61 6e 64 20 7b 2e 74 78 74 41 20 78 76 69 65 77  and {.txtA xview
2190: 7d 20 2d 6f 72 69 65 6e 74 20 68 6f 72 69 7a 6f  } -orient horizo
21a0: 6e 74 61 6c 0a 3a 3a 74 74 6b 3a 3a 73 63 72 6f  ntal.::ttk::scro
21b0: 6c 6c 62 61 72 20 2e 73 62 78 42 20 2d 63 6f 6d  llbar .sbxB -com
21c0: 6d 61 6e 64 20 7b 2e 74 78 74 42 20 78 76 69 65  mand {.txtB xvie
21d0: 77 7d 20 2d 6f 72 69 65 6e 74 20 68 6f 72 69 7a  w} -orient horiz
21e0: 6f 6e 74 61 6c 0a 66 72 61 6d 65 20 2e 73 70 61  ontal.frame .spa
21f0: 63 65 72 0a 0a 69 66 20 7b 5b 72 65 61 64 44 69  cer..if {[readDi
2200: 66 66 73 20 24 66 6f 73 73 69 6c 63 6d 64 5d 20  ffs $fossilcmd] 
2210: 3d 3d 20 30 7d 20 7b 0a 20 20 74 6b 5f 6d 65 73  == 0} {.  tk_mes
2220: 73 61 67 65 42 6f 78 20 2d 74 79 70 65 20 6f 6b  sageBox -type ok
2230: 20 2d 74 69 74 6c 65 20 24 43 46 47 28 54 49 54   -title $CFG(TIT
2240: 4c 45 29 20 2d 6d 65 73 73 61 67 65 20 22 4e 6f  LE) -message "No
2250: 20 63 68 61 6e 67 65 73 22 0a 20 20 65 78 69 74   changes".  exit
2260: 0a 7d 0a 75 70 64 61 74 65 20 69 64 6c 65 74 61  .}.update idleta
2270: 73 6b 73 0a 0a 70 72 6f 63 20 73 61 76 65 44 69  sks..proc saveDi
2280: 66 66 20 7b 7d 20 7b 0a 20 20 73 65 74 20 66 6e  ff {} {.  set fn
2290: 20 5b 74 6b 5f 67 65 74 53 61 76 65 46 69 6c 65   [tk_getSaveFile
22a0: 5d 0a 20 20 69 66 20 7b 24 66 6e 3d 3d 22 22 7d  ].  if {$fn==""}
22b0: 20 72 65 74 75 72 6e 0a 20 20 73 65 74 20 6f 75   return.  set ou
22c0: 74 20 5b 6f 70 65 6e 20 24 66 6e 20 77 62 5d 0a  t [open $fn wb].
22d0: 20 20 70 75 74 73 20 24 6f 75 74 20 22 23 21 2f    puts $out "#!/
22e0: 75 73 72 2f 62 69 6e 2f 74 63 6c 73 68 5c 6e 23  usr/bin/tclsh\n#
22f0: 5c 6e 23 20 52 75 6e 20 74 68 69 73 20 73 63 72  \n# Run this scr
2300: 69 70 74 20 75 73 69 6e 67 20 27 74 63 6c 73 68  ipt using 'tclsh
2310: 27 20 6f 72 20 27 77 69 73 68 27 22 0a 20 20 70  ' or 'wish'".  p
2320: 75 74 73 20 24 6f 75 74 20 22 23 20 74 6f 20 73  uts $out "# to s
2330: 65 65 20 74 68 65 20 67 72 61 70 68 69 63 61 6c  ee the graphical
2340: 20 64 69 66 66 2e 5c 6e 23 22 0a 20 20 70 75 74   diff.\n#".  put
2350: 73 20 24 6f 75 74 20 22 73 65 74 20 66 6f 73 73  s $out "set foss
2360: 69 6c 63 6d 64 20 7b 7d 22 0a 20 20 70 75 74 73  ilcmd {}".  puts
2370: 20 24 6f 75 74 20 22 73 65 74 20 70 72 6f 67 20   $out "set prog 
2380: 5b 6c 69 73 74 20 24 3a 3a 70 72 6f 67 5d 22 0a  [list $::prog]".
2390: 20 20 70 75 74 73 20 24 6f 75 74 20 22 73 65 74    puts $out "set
23a0: 20 64 69 66 66 74 78 74 20 5c 31 37 33 22 0a 20   difftxt \173". 
23b0: 20 66 6f 72 65 61 63 68 20 65 20 24 3a 3a 64 69   foreach e $::di
23c0: 66 66 74 78 74 20 7b 70 75 74 73 20 24 6f 75 74  fftxt {puts $out
23d0: 20 5b 6c 69 73 74 20 24 65 5d 7d 0a 20 20 70 75   [list $e]}.  pu
23e0: 74 73 20 24 6f 75 74 20 22 5c 31 37 35 22 0a 20  ts $out "\175". 
23f0: 20 70 75 74 73 20 24 6f 75 74 20 22 65 76 61 6c   puts $out "eval
2400: 20 5c 24 70 72 6f 67 22 0a 20 20 63 6c 6f 73 65   \$prog".  close
2410: 20 24 6f 75 74 0a 7d 0a 70 72 6f 63 20 69 6e 76   $out.}.proc inv
2420: 65 72 74 44 69 66 66 20 7b 7d 20 7b 0a 20 20 67  ertDiff {} {.  g
2430: 6c 6f 62 61 6c 20 43 46 47 0a 20 20 61 72 72 61  lobal CFG.  arra
2440: 79 20 73 65 74 20 78 20 5b 67 72 69 64 20 69 6e  y set x [grid in
2450: 66 6f 20 2e 74 78 74 41 5d 0a 20 20 69 66 20 7b  fo .txtA].  if {
2460: 24 78 28 2d 63 6f 6c 75 6d 6e 29 3d 3d 31 7d 20  $x(-column)==1} 
2470: 7b 0a 20 20 20 20 67 72 69 64 20 63 6f 6e 66 69  {.    grid confi
2480: 67 20 2e 6c 6e 42 20 2d 63 6f 6c 75 6d 6e 20 30  g .lnB -column 0
2490: 0a 20 20 20 20 67 72 69 64 20 63 6f 6e 66 69 67  .    grid config
24a0: 20 2e 74 78 74 42 20 2d 63 6f 6c 75 6d 6e 20 31   .txtB -column 1
24b0: 0a 20 20 20 20 2e 74 78 74 42 20 74 61 67 20 63  .    .txtB tag c
24c0: 6f 6e 66 69 67 20 61 64 64 20 2d 62 61 63 6b 67  onfig add -backg
24d0: 72 6f 75 6e 64 20 24 43 46 47 28 52 4d 5f 42 47  round $CFG(RM_BG
24e0: 29 0a 20 20 20 20 67 72 69 64 20 63 6f 6e 66 69  ).    grid confi
24f0: 67 20 2e 6c 6e 41 20 2d 63 6f 6c 75 6d 6e 20 33  g .lnA -column 3
2500: 0a 20 20 20 20 67 72 69 64 20 63 6f 6e 66 69 67  .    grid config
2510: 20 2e 74 78 74 41 20 2d 63 6f 6c 75 6d 6e 20 34   .txtA -column 4
2520: 0a 20 20 20 20 2e 74 78 74 41 20 74 61 67 20 63  .    .txtA tag c
2530: 6f 6e 66 69 67 20 72 6d 20 2d 62 61 63 6b 67 72  onfig rm -backgr
2540: 6f 75 6e 64 20 24 43 46 47 28 41 44 44 5f 42 47  ound $CFG(ADD_BG
2550: 29 0a 20 20 20 20 2e 62 62 2e 69 6e 76 65 72 74  ).    .bb.invert
2560: 20 63 6f 6e 66 69 67 20 2d 74 65 78 74 20 55 6e   config -text Un
2570: 69 6e 76 65 72 74 0a 20 20 7d 20 65 6c 73 65 20  invert.  } else 
2580: 7b 0a 20 20 20 20 67 72 69 64 20 63 6f 6e 66 69  {.    grid confi
2590: 67 20 2e 6c 6e 41 20 2d 63 6f 6c 75 6d 6e 20 30  g .lnA -column 0
25a0: 0a 20 20 20 20 67 72 69 64 20 63 6f 6e 66 69 67  .    grid config
25b0: 20 2e 74 78 74 41 20 2d 63 6f 6c 75 6d 6e 20 31   .txtA -column 1
25c0: 0a 20 20 20 20 2e 74 78 74 41 20 74 61 67 20 63  .    .txtA tag c
25d0: 6f 6e 66 69 67 20 72 6d 20 2d 62 61 63 6b 67 72  onfig rm -backgr
25e0: 6f 75 6e 64 20 24 43 46 47 28 52 4d 5f 42 47 29  ound $CFG(RM_BG)
25f0: 0a 20 20 20 20 67 72 69 64 20 63 6f 6e 66 69 67  .    grid config
2600: 20 2e 6c 6e 42 20 2d 63 6f 6c 75 6d 6e 20 33 0a   .lnB -column 3.
2610: 20 20 20 20 67 72 69 64 20 63 6f 6e 66 69 67 20      grid config 
2620: 2e 74 78 74 42 20 2d 63 6f 6c 75 6d 6e 20 34 0a  .txtB -column 4.
2630: 20 20 20 20 2e 74 78 74 42 20 74 61 67 20 63 6f      .txtB tag co
2640: 6e 66 69 67 20 61 64 64 20 2d 62 61 63 6b 67 72  nfig add -backgr
2650: 6f 75 6e 64 20 24 43 46 47 28 41 44 44 5f 42 47  ound $CFG(ADD_BG
2660: 29 0a 20 20 20 20 2e 62 62 2e 69 6e 76 65 72 74  ).    .bb.invert
2670: 20 63 6f 6e 66 69 67 20 2d 74 65 78 74 20 49 6e   config -text In
2680: 76 65 72 74 0a 20 20 7d 0a 20 20 2e 6d 6b 72 20  vert.  }.  .mkr 
2690: 63 6f 6e 66 69 67 20 2d 73 74 61 74 65 20 6e 6f  config -state no
26a0: 72 6d 61 6c 0a 20 20 73 65 74 20 63 6c 74 20 5b  rmal.  set clt [
26b0: 2e 6d 6b 72 20 73 65 61 72 63 68 20 2d 61 6c 6c  .mkr search -all
26c0: 20 3c 20 31 2e 30 20 65 6e 64 5d 0a 20 20 73 65   < 1.0 end].  se
26d0: 74 20 63 67 74 20 5b 2e 6d 6b 72 20 73 65 61 72  t cgt [.mkr sear
26e0: 63 68 20 2d 61 6c 6c 20 3e 20 31 2e 30 20 65 6e  ch -all > 1.0 en
26f0: 64 5d 0a 20 20 66 6f 72 65 61 63 68 20 63 20 24  d].  foreach c $
2700: 63 6c 74 20 7b 2e 6d 6b 72 20 72 65 70 6c 61 63  clt {.mkr replac
2710: 65 20 24 63 20 22 24 63 20 2b 31 20 63 68 61 72  e $c "$c +1 char
2720: 73 22 20 3e 7d 0a 20 20 66 6f 72 65 61 63 68 20  s" >}.  foreach 
2730: 63 20 24 63 67 74 20 7b 2e 6d 6b 72 20 72 65 70  c $cgt {.mkr rep
2740: 6c 61 63 65 20 24 63 20 22 24 63 20 2b 31 20 63  lace $c "$c +1 c
2750: 68 61 72 73 22 20 3c 7d 0a 20 20 2e 6d 6b 72 20  hars" <}.  .mkr 
2760: 63 6f 6e 66 69 67 20 2d 73 74 61 74 65 20 64 69  config -state di
2770: 73 61 62 6c 65 64 0a 7d 0a 70 72 6f 63 20 73 65  sabled.}.proc se
2780: 61 72 63 68 4f 6e 4f 66 66 20 7b 7d 20 7b 0a 20  archOnOff {} {. 
2790: 20 69 66 20 7b 5b 69 6e 66 6f 20 65 78 69 73 74   if {[info exist
27a0: 73 20 3a 3a 73 65 61 72 63 68 5d 7d 20 7b 0a 20  s ::search]} {. 
27b0: 20 20 20 75 6e 73 65 74 20 3a 3a 73 65 61 72 63     unset ::searc
27c0: 68 0a 20 20 20 20 2e 74 78 74 41 20 74 61 67 20  h.    .txtA tag 
27d0: 72 65 6d 6f 76 65 20 73 65 61 72 63 68 20 31 2e  remove search 1.
27e0: 30 20 65 6e 64 0a 20 20 20 20 2e 74 78 74 42 20  0 end.    .txtB 
27f0: 74 61 67 20 72 65 6d 6f 76 65 20 73 65 61 72 63  tag remove searc
2800: 68 20 31 2e 30 20 65 6e 64 0a 20 20 20 20 70 61  h 1.0 end.    pa
2810: 63 6b 20 66 6f 72 67 65 74 20 2e 62 62 2e 73 66  ck forget .bb.sf
2820: 72 61 6d 65 0a 20 20 20 20 66 6f 63 75 73 20 2e  rame.    focus .
2830: 0a 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20 20  .  } else {.    
2840: 73 65 74 20 3a 3a 73 65 61 72 63 68 20 2e 74 78  set ::search .tx
2850: 74 41 0a 20 20 20 20 69 66 20 7b 21 5b 77 69 6e  tA.    if {![win
2860: 66 6f 20 65 78 69 73 74 73 20 2e 62 62 2e 73 66  fo exists .bb.sf
2870: 72 61 6d 65 5d 7d 20 7b 0a 20 20 20 20 20 20 66  rame]} {.      f
2880: 72 61 6d 65 20 2e 62 62 2e 73 66 72 61 6d 65 0a  rame .bb.sframe.
2890: 20 20 20 20 20 20 3a 3a 74 74 6b 3a 3a 65 6e 74        ::ttk::ent
28a0: 72 79 20 2e 62 62 2e 73 66 72 61 6d 65 2e 65 20  ry .bb.sframe.e 
28b0: 2d 77 69 64 74 68 20 31 30 0a 20 20 20 20 20 20  -width 10.      
28c0: 70 61 63 6b 20 2e 62 62 2e 73 66 72 61 6d 65 2e  pack .bb.sframe.
28d0: 65 20 2d 73 69 64 65 20 6c 65 66 74 20 2d 66 69  e -side left -fi
28e0: 6c 6c 20 79 20 2d 65 78 70 61 6e 64 20 31 0a 20  ll y -expand 1. 
28f0: 20 20 20 20 20 62 69 6e 64 20 2e 62 62 2e 73 66       bind .bb.sf
2900: 72 61 6d 65 2e 65 20 3c 52 65 74 75 72 6e 3e 20  rame.e <Return> 
2910: 7b 73 65 61 72 63 68 4e 65 78 74 3b 20 62 72 65  {searchNext; bre
2920: 61 6b 7d 0a 20 20 20 20 20 20 3a 3a 74 74 6b 3a  ak}.      ::ttk:
2930: 3a 62 75 74 74 6f 6e 20 2e 62 62 2e 73 66 72 61  :button .bb.sfra
2940: 6d 65 2e 6e 78 20 2d 74 65 78 74 20 5c 75 32 31  me.nx -text \u21
2950: 39 33 20 2d 77 69 64 74 68 20 31 20 2d 63 6f 6d  93 -width 1 -com
2960: 6d 61 6e 64 20 73 65 61 72 63 68 4e 65 78 74 0a  mand searchNext.
2970: 20 20 20 20 20 20 3a 3a 74 74 6b 3a 3a 62 75 74        ::ttk::but
2980: 74 6f 6e 20 2e 62 62 2e 73 66 72 61 6d 65 2e 70  ton .bb.sframe.p
2990: 76 20 2d 74 65 78 74 20 5c 75 32 31 39 31 20 2d  v -text \u2191 -
29a0: 77 69 64 74 68 20 31 20 2d 63 6f 6d 6d 61 6e 64  width 1 -command
29b0: 20 73 65 61 72 63 68 50 72 65 76 0a 20 20 20 20   searchPrev.    
29c0: 20 20 74 6b 5f 6f 70 74 69 6f 6e 4d 65 6e 75 20    tk_optionMenu 
29d0: 2e 62 62 2e 73 66 72 61 6d 65 2e 74 79 70 20 3a  .bb.sframe.typ :
29e0: 3a 73 65 61 72 63 68 5f 74 79 70 65 20 5c 0a 20  :search_type \. 
29f0: 20 20 20 20 20 20 20 20 20 20 45 78 61 63 74 20            Exact 
2a00: 7b 4e 6f 20 43 61 73 65 7d 20 7b 52 65 67 45 78  {No Case} {RegEx
2a10: 70 7d 20 7b 57 68 6f 6c 65 20 57 6f 72 64 7d 0a  p} {Whole Word}.
2a20: 20 20 20 20 20 20 2e 62 62 2e 73 66 72 61 6d 65        .bb.sframe
2a30: 2e 74 79 70 20 63 6f 6e 66 69 67 20 2d 77 69 64  .typ config -wid
2a40: 74 68 20 31 30 0a 20 20 20 20 20 20 73 65 74 20  th 10.      set 
2a50: 3a 3a 73 65 61 72 63 68 5f 74 79 70 65 20 45 78  ::search_type Ex
2a60: 61 63 74 0a 20 20 20 20 20 20 70 61 63 6b 20 2e  act.      pack .
2a70: 62 62 2e 73 66 72 61 6d 65 2e 6e 78 20 2e 62 62  bb.sframe.nx .bb
2a80: 2e 73 66 72 61 6d 65 2e 70 76 20 2e 62 62 2e 73  .sframe.pv .bb.s
2a90: 66 72 61 6d 65 2e 74 79 70 20 2d 73 69 64 65 20  frame.typ -side 
2aa0: 6c 65 66 74 0a 20 20 20 20 7d 0a 20 20 20 20 70  left.    }.    p
2ab0: 61 63 6b 20 2e 62 62 2e 73 66 72 61 6d 65 20 2d  ack .bb.sframe -
2ac0: 73 69 64 65 20 6c 65 66 74 0a 20 20 20 20 61 66  side left.    af
2ad0: 74 65 72 20 69 64 6c 65 20 7b 66 6f 63 75 73 20  ter idle {focus 
2ae0: 2e 62 62 2e 73 66 72 61 6d 65 2e 65 7d 0a 20 20  .bb.sframe.e}.  
2af0: 7d 0a 7d 0a 70 72 6f 63 20 73 65 61 72 63 68 4e  }.}.proc searchN
2b00: 65 78 74 20 7b 7d 20 7b 73 65 61 72 63 68 53 74  ext {} {searchSt
2b10: 65 70 20 2d 66 6f 72 77 61 72 64 73 20 2b 31 20  ep -forwards +1 
2b20: 31 2e 30 20 65 6e 64 7d 0a 70 72 6f 63 20 73 65  1.0 end}.proc se
2b30: 61 72 63 68 50 72 65 76 20 7b 7d 20 7b 73 65 61  archPrev {} {sea
2b40: 72 63 68 53 74 65 70 20 2d 62 61 63 6b 77 61 72  rchStep -backwar
2b50: 64 73 20 2d 31 20 65 6e 64 20 31 2e 30 7d 0a 70  ds -1 end 1.0}.p
2b60: 72 6f 63 20 73 65 61 72 63 68 53 74 65 70 20 7b  roc searchStep {
2b70: 64 69 72 65 63 74 69 6f 6e 20 69 6e 63 72 20 73  direction incr s
2b80: 74 61 72 74 20 73 74 6f 70 7d 20 7b 0a 20 20 73  tart stop} {.  s
2b90: 65 74 20 70 61 74 74 65 72 6e 20 5b 2e 62 62 2e  et pattern [.bb.
2ba0: 73 66 72 61 6d 65 2e 65 20 67 65 74 5d 0a 20 20  sframe.e get].  
2bb0: 69 66 20 7b 24 70 61 74 74 65 72 6e 3d 3d 22 22  if {$pattern==""
2bc0: 7d 20 72 65 74 75 72 6e 0a 20 20 73 65 74 20 63  } return.  set c
2bd0: 6f 75 6e 74 20 30 0a 20 20 73 65 74 20 77 20 24  ount 0.  set w $
2be0: 3a 3a 73 65 61 72 63 68 0a 20 20 69 66 20 7b 22  ::search.  if {"
2bf0: 24 77 22 3d 3d 22 2e 74 78 74 41 22 7d 20 7b 73  $w"==".txtA"} {s
2c00: 65 74 20 6f 74 68 65 72 20 2e 74 78 74 42 7d 20  et other .txtB} 
2c10: 7b 73 65 74 20 6f 74 68 65 72 20 2e 74 78 74 41  {set other .txtA
2c20: 7d 0a 20 20 69 66 20 7b 5b 6c 73 65 61 72 63 68  }.  if {[lsearch
2c30: 20 5b 24 77 20 6d 61 72 6b 20 6e 61 6d 65 73 5d   [$w mark names]
2c40: 20 73 65 61 72 63 68 5d 3c 30 7d 20 7b 0a 20 20   search]<0} {.  
2c50: 20 20 24 77 20 6d 61 72 6b 20 73 65 74 20 73 65    $w mark set se
2c60: 61 72 63 68 20 24 73 74 61 72 74 0a 20 20 7d 0a  arch $start.  }.
2c70: 20 20 73 77 69 74 63 68 20 24 3a 3a 73 65 61 72    switch $::sear
2c80: 63 68 5f 74 79 70 65 20 7b 0a 20 20 20 20 45 78  ch_type {.    Ex
2c90: 61 63 74 20 20 20 20 20 20 20 20 7b 73 65 74 20  act        {set 
2ca0: 73 74 20 2d 65 78 61 63 74 7d 0a 20 20 20 20 7b  st -exact}.    {
2cb0: 4e 6f 20 43 61 73 65 7d 20 20 20 20 7b 73 65 74  No Case}    {set
2cc0: 20 73 74 20 2d 6e 6f 63 61 73 65 7d 0a 20 20 20   st -nocase}.   
2cd0: 20 7b 52 65 67 45 78 70 7d 20 20 20 20 20 7b 73   {RegExp}     {s
2ce0: 65 74 20 73 74 20 2d 72 65 67 65 78 70 7d 0a 20  et st -regexp}. 
2cf0: 20 20 20 7b 57 68 6f 6c 65 20 57 6f 72 64 7d 20     {Whole Word} 
2d00: 7b 73 65 74 20 73 74 20 2d 72 65 67 65 78 70 3b  {set st -regexp;
2d10: 20 73 65 74 20 70 61 74 74 65 72 6e 20 5c 5c 79   set pattern \\y
2d20: 24 70 61 74 74 65 72 6e 5c 5c 79 7d 0a 20 20 7d  $pattern\\y}.  }
2d30: 0a 20 20 73 65 74 20 69 64 78 20 5b 24 77 20 73  .  set idx [$w s
2d40: 65 61 72 63 68 20 2d 63 6f 75 6e 74 20 63 6f 75  earch -count cou
2d50: 6e 74 20 24 64 69 72 65 63 74 69 6f 6e 20 24 73  nt $direction $s
2d60: 74 20 2d 2d 20 5c 0a 20 20 20 20 20 20 20 20 20  t -- \.         
2d70: 20 20 20 20 20 24 70 61 74 74 65 72 6e 20 22 73       $pattern "s
2d80: 65 61 72 63 68 20 24 69 6e 63 72 20 63 68 61 72  earch $incr char
2d90: 73 22 20 24 73 74 6f 70 5d 0a 20 20 69 66 20 7b  s" $stop].  if {
2da0: 22 24 69 64 78 22 3d 3d 22 22 7d 20 7b 0a 20 20  "$idx"==""} {.  
2db0: 20 20 73 65 74 20 69 64 78 20 5b 24 6f 74 68 65    set idx [$othe
2dc0: 72 20 73 65 61 72 63 68 20 2d 63 6f 75 6e 74 20  r search -count 
2dd0: 63 6f 75 6e 74 20 24 64 69 72 65 63 74 69 6f 6e  count $direction
2de0: 20 24 73 74 20 2d 2d 20 24 70 61 74 74 65 72 6e   $st -- $pattern
2df0: 20 24 73 74 61 72 74 20 24 73 74 6f 70 5d 0a 20   $start $stop]. 
2e00: 20 20 20 69 66 20 7b 22 24 69 64 78 22 21 3d 22     if {"$idx"!="
2e10: 22 7d 20 7b 0a 20 20 20 20 20 20 73 65 74 20 74  "} {.      set t
2e20: 68 69 73 20 24 77 0a 20 20 20 20 20 20 73 65 74  his $w.      set
2e30: 20 77 20 24 6f 74 68 65 72 0a 20 20 20 20 20 20   w $other.      
2e40: 73 65 74 20 6f 74 68 65 72 20 24 74 68 69 73 0a  set other $this.
2e50: 20 20 20 20 7d 20 65 6c 73 65 20 7b 0a 20 20 20      } else {.   
2e60: 20 20 20 73 65 74 20 69 64 78 20 5b 24 77 20 73     set idx [$w s
2e70: 65 61 72 63 68 20 2d 63 6f 75 6e 74 20 63 6f 75  earch -count cou
2e80: 6e 74 20 24 64 69 72 65 63 74 69 6f 6e 20 24 73  nt $direction $s
2e90: 74 20 2d 2d 20 24 70 61 74 74 65 72 6e 20 24 73  t -- $pattern $s
2ea0: 74 61 72 74 20 24 73 74 6f 70 5d 0a 20 20 20 20  tart $stop].    
2eb0: 7d 0a 20 20 7d 0a 20 20 24 77 20 74 61 67 20 72  }.  }.  $w tag r
2ec0: 65 6d 6f 76 65 20 73 65 61 72 63 68 20 31 2e 30  emove search 1.0
2ed0: 20 65 6e 64 0a 20 20 24 77 20 6d 61 72 6b 20 75   end.  $w mark u
2ee0: 6e 73 65 74 20 73 65 61 72 63 68 0a 20 20 24 6f  nset search.  $o
2ef0: 74 68 65 72 20 74 61 67 20 72 65 6d 6f 76 65 20  ther tag remove 
2f00: 73 65 61 72 63 68 20 31 2e 30 20 65 6e 64 0a 20  search 1.0 end. 
2f10: 20 24 6f 74 68 65 72 20 6d 61 72 6b 20 75 6e 73   $other mark uns
2f20: 65 74 20 73 65 61 72 63 68 0a 20 20 69 66 20 7b  et search.  if {
2f30: 22 24 69 64 78 22 21 3d 22 22 7d 20 7b 0a 20 20  "$idx"!=""} {.  
2f40: 20 20 24 77 20 6d 61 72 6b 20 73 65 74 20 73 65    $w mark set se
2f50: 61 72 63 68 20 24 69 64 78 0a 20 20 20 20 24 77  arch $idx.    $w
2f60: 20 79 76 69 65 77 20 2d 70 69 63 6b 70 6c 61 63   yview -pickplac
2f70: 65 20 24 69 64 78 0a 20 20 20 20 24 77 20 74 61  e $idx.    $w ta
2f80: 67 20 61 64 64 20 73 65 61 72 63 68 20 73 65 61  g add search sea
2f90: 72 63 68 20 22 24 69 64 78 20 2b 24 63 6f 75 6e  rch "$idx +$coun
2fa0: 74 20 63 68 61 72 73 22 0a 20 20 20 20 24 77 20  t chars".    $w 
2fb0: 74 61 67 20 63 6f 6e 66 69 67 20 73 65 61 72 63  tag config searc
2fc0: 68 20 2d 62 61 63 6b 67 72 6f 75 6e 64 20 7b 23  h -background {#
2fd0: 66 63 63 30 30 30 7d 0a 20 20 7d 0a 20 20 73 65  fcc000}.  }.  se
2fe0: 74 20 3a 3a 73 65 61 72 63 68 20 24 77 0a 7d 0a  t ::search $w.}.
2ff0: 3a 3a 74 74 6b 3a 3a 62 75 74 74 6f 6e 20 2e 62  ::ttk::button .b
3000: 62 2e 71 75 69 74 20 2d 74 65 78 74 20 7b 51 75  b.quit -text {Qu
3010: 69 74 7d 20 2d 63 6f 6d 6d 61 6e 64 20 65 78 69  it} -command exi
3020: 74 0a 3a 3a 74 74 6b 3a 3a 62 75 74 74 6f 6e 20  t.::ttk::button 
3030: 2e 62 62 2e 69 6e 76 65 72 74 20 2d 74 65 78 74  .bb.invert -text
3040: 20 7b 49 6e 76 65 72 74 7d 20 2d 63 6f 6d 6d 61   {Invert} -comma
3050: 6e 64 20 69 6e 76 65 72 74 44 69 66 66 0a 3a 3a  nd invertDiff.::
3060: 74 74 6b 3a 3a 62 75 74 74 6f 6e 20 2e 62 62 2e  ttk::button .bb.
3070: 73 61 76 65 20 2d 74 65 78 74 20 7b 53 61 76 65  save -text {Save
3080: 20 41 73 2e 2e 2e 7d 20 2d 63 6f 6d 6d 61 6e 64   As...} -command
3090: 20 73 61 76 65 44 69 66 66 0a 3a 3a 74 74 6b 3a   saveDiff.::ttk:
30a0: 3a 62 75 74 74 6f 6e 20 2e 62 62 2e 73 65 61 72  :button .bb.sear
30b0: 63 68 20 2d 74 65 78 74 20 7b 53 65 61 72 63 68  ch -text {Search
30c0: 7d 20 2d 63 6f 6d 6d 61 6e 64 20 73 65 61 72 63  } -command searc
30d0: 68 4f 6e 4f 66 66 0a 70 61 63 6b 20 2e 62 62 2e  hOnOff.pack .bb.
30e0: 71 75 69 74 20 2e 62 62 2e 69 6e 76 65 72 74 20  quit .bb.invert 
30f0: 2d 73 69 64 65 20 6c 65 66 74 0a 69 66 20 7b 24  -side left.if {$
3100: 66 6f 73 73 69 6c 63 6d 64 21 3d 22 22 7d 20 7b  fossilcmd!=""} {
3110: 70 61 63 6b 20 2e 62 62 2e 73 61 76 65 20 2d 73  pack .bb.save -s
3120: 69 64 65 20 6c 65 66 74 7d 0a 70 61 63 6b 20 2e  ide left}.pack .
3130: 62 62 2e 66 69 6c 65 73 20 2e 62 62 2e 73 65 61  bb.files .bb.sea
3140: 72 63 68 20 2d 73 69 64 65 20 6c 65 66 74 0a 67  rch -side left.g
3150: 72 69 64 20 72 6f 77 63 6f 6e 66 69 67 75 72 65  rid rowconfigure
3160: 20 2e 20 31 20 2d 77 65 69 67 68 74 20 31 0a 67   . 1 -weight 1.g
3170: 72 69 64 20 63 6f 6c 75 6d 6e 63 6f 6e 66 69 67  rid columnconfig
3180: 75 72 65 20 2e 20 31 20 2d 77 65 69 67 68 74 20  ure . 1 -weight 
3190: 31 0a 67 72 69 64 20 63 6f 6c 75 6d 6e 63 6f 6e  1.grid columncon
31a0: 66 69 67 75 72 65 20 2e 20 34 20 2d 77 65 69 67  figure . 4 -weig
31b0: 68 74 20 31 0a 67 72 69 64 20 2e 62 62 20 2d 72  ht 1.grid .bb -r
31c0: 6f 77 20 30 20 2d 63 6f 6c 75 6d 6e 73 70 61 6e  ow 0 -columnspan
31d0: 20 36 0a 65 76 61 6c 20 67 72 69 64 20 5b 63 6f   6.eval grid [co
31e0: 6c 73 5d 20 2d 72 6f 77 20 31 20 2d 73 74 69 63  ls] -row 1 -stic
31f0: 6b 79 20 6e 73 65 77 0a 67 72 69 64 20 2e 73 62  ky nsew.grid .sb
3200: 79 20 2d 72 6f 77 20 31 20 2d 63 6f 6c 75 6d 6e  y -row 1 -column
3210: 20 35 20 2d 73 74 69 63 6b 79 20 6e 73 0a 67 72   5 -sticky ns.gr
3220: 69 64 20 2e 73 62 78 41 20 2d 72 6f 77 20 32 20  id .sbxA -row 2 
3230: 2d 63 6f 6c 75 6d 6e 73 70 61 6e 20 32 20 2d 73  -columnspan 2 -s
3240: 74 69 63 6b 79 20 65 77 0a 67 72 69 64 20 2e 73  ticky ew.grid .s
3250: 70 61 63 65 72 20 2d 72 6f 77 20 32 20 2d 63 6f  pacer -row 2 -co
3260: 6c 75 6d 6e 20 32 0a 67 72 69 64 20 2e 73 62 78  lumn 2.grid .sbx
3270: 42 20 2d 72 6f 77 20 32 20 2d 63 6f 6c 75 6d 6e  B -row 2 -column
3280: 20 33 20 2d 63 6f 6c 75 6d 6e 73 70 61 6e 20 32   3 -columnspan 2
3290: 20 2d 73 74 69 63 6b 79 20 65 77 0a 0a 2e 73 70   -sticky ew...sp
32a0: 61 63 65 72 20 63 6f 6e 66 69 67 20 2d 68 65 69  acer config -hei
32b0: 67 68 74 20 5b 77 69 6e 66 6f 20 68 65 69 67 68  ght [winfo heigh
32c0: 74 20 2e 73 62 78 41 5d 0a 77 6d 20 64 65 69 63  t .sbxA].wm deic
32d0: 6f 6e 69 66 79 20 2e 0a 7d 0a 65 76 61 6c 20 24  onify ..}.eval $
32e0: 70 72 6f 67 0a                                   prog.