Tk Source Code

Artifact b3b4bdd8c81bc29d2db84a79cde12602484b6427d7d5fbc6030a182ecdf51da6:

Attachment "gitk.patch" to ticket [e94c8bc8] added by marc_culler 2025-07-25 14:12:35.

---

*** gitk.orig	Fri Jul 25 09:07:09 2025
--- gitk	Fri Jul 25 08:48:06 2025
***************
*** 7,13 ****
  # and distributed under the terms of the GNU General Public Licence,
  # either version 2, or (at your option) any later version.
  
! if {[catch {package require Tcl 8.6-8.8} err]} {
      catch {wm withdraw .}
      tk_messageBox \
          -icon error \
--- 7,13 ----
  # and distributed under the terms of the GNU General Public Licence,
  # either version 2, or (at your option) any later version.
  
! if {[catch {package require Tcl 9.0} err]} {
      catch {wm withdraw .}
      tk_messageBox \
          -icon error \
***************
*** 7794,7800 ****
              set treepending $id
              set treefilelist($id) {}
              set treeidlist($id) {}
!             fconfigure $gtf -blocking 0 -encoding binary
              filerun $gtf [list gettreeline $gtf $id]
          }
      } else {
--- 7794,7800 ----
              set treepending $id
              set treefilelist($id) {}
              set treeidlist($id) {}
!             fconfigure $gtf -blocking 0 -encoding iso8859-1
              filerun $gtf [list gettreeline $gtf $id]
          }
      } else {
***************
*** 8055,8061 ****
  
      set treepending $ids
      set treediff {}
!     fconfigure $gdtf -blocking 0 -encoding binary
      filerun $gdtf [list gettreediffline $gdtf $ids]
  }
  
--- 8055,8061 ----
  
      set treepending $ids
      set treediff {}
!     fconfigure $gdtf -blocking 0 -encoding iso8859-1
      filerun $gdtf [list gettreediffline $gdtf $ids]
  }
  
***************
*** 8166,8172 ****
          error_popup [mc "Error getting diffs: %s" $err]
          return
      }
!     fconfigure $bdf -blocking 0 -encoding binary -eofchar {}
      set blobdifffd($ids) $bdf
      initblobdiffvars
      filerun $bdf [list getblobdiffline $bdf $diffids]
--- 8166,8172 ----
          error_popup [mc "Error getting diffs: %s" $err]
          return
      }
!     fconfigure $bdf -blocking 0 -encoding iso8859-1 -eofchar {}
      set blobdifffd($ids) $bdf
      initblobdiffvars
      filerun $bdf [list getblobdiffline $bdf $diffids]