gitk: "fconfigure" is superseded by "chan configure"

"fconfigure" is obsoleted since Tcl 9 and superseded by "chan configure".
"chan configure" is also works on Tcl 8.6.

Signed-off-by: YOKOTA Hiroshi <[email protected]>

Author: qykth-git

gitk

@@ -544,9 +544,9 @@ proc start_rev_list {view} {
     if {$showlocalchanges && $viewmainheadid($view) ne {}} {
         interestedin $viewmainheadid($view) dodiffindex
     }
-    fconfigure $fd -blocking 0 -translation lf -eofchar {}
+    chan configure $fd -blocking 0 -translation lf -eofchar {}
     if {$tclencoding != {}} {
-        fconfigure $fd -encoding $tclencoding
+        chan configure $fd -encoding $tclencoding
     }
     filerun $fd [list getcommitlines $fd $i $view 0]
     nowbusy $view [mc "Reading"]
@@ -694,9 +694,9 @@ proc updatecommits {} {
     }
     set i [reg_instance $fd]
     lappend viewinstances($view) $i
-    fconfigure $fd -blocking 0 -translation lf -eofchar {}
+    chan configure $fd -blocking 0 -translation lf -eofchar {}
     if {$tclencoding != {}} {
-        fconfigure $fd -encoding $tclencoding
+        chan configure $fd -encoding $tclencoding
     }
     filerun $fd [list getcommitlines $fd $i $view 1]
     incr viewactive($view)
@@ -1560,7 +1560,7 @@ proc getcommitlines {fd inst view updating}  {
             set viewinstances($view) [lreplace $viewinstances($view) $i $i]
         }
         # set it blocking so we wait for the process to terminate
-        fconfigure $fd -blocking 1
+        chan configure $fd -blocking 1
         if {[catch {close $fd} err]} {
             set fv {}
             if {$view != $curview} {
@@ -1774,9 +1774,9 @@ proc do_readcommit {id} {
     # Invoke git-log to handle automatic encoding conversion
     set fd [open [concat | git log --no-color --pretty=raw -1 $id] r]
     # Read the results using i18n.logoutputencoding
-    fconfigure $fd -translation lf -eofchar {}
+    chan configure $fd -translation lf -eofchar {}
     if {$tclencoding != {}} {
-        fconfigure $fd -encoding $tclencoding
+        chan configure $fd -encoding $tclencoding
     }
     set contents [read $fd]
     close $fd
@@ -1910,7 +1910,7 @@ proc readrefs {} {
     }
     set refd [open [list | git show-ref -d] r]
     if {$tclencoding != {}} {
-        fconfigure $refd -encoding $tclencoding
+        chan configure $refd -encoding $tclencoding
     }
     while {[gets $refd line] >= 0} {
         if {[string index $line 40] ne " "} continue
@@ -3814,7 +3814,7 @@ proc external_diff {} {
             file delete -force $diffdir
             error_popup "$extdifftool: [mc "command failed:"] $err"
         } else {
-            fconfigure $fl -blocking 0
+            chan configure $fl -blocking 0
             filerun $fl [list delete_at_eof $fl $diffdir]
         }
     }
@@ -4043,7 +4043,7 @@ proc show_line_source {} {
         return
     }
     nowbusy blaming [mc "Searching"]
-    fconfigure $f -blocking 0
+    chan configure $f -blocking 0
     set i [reg_instance $f]
     set blamestuff($i) {}
     set blameinst $i
@@ -4072,7 +4072,7 @@ proc read_line_source {fd inst} {
     unset commfd($inst)
     unset blameinst
     notbusy blaming
-    fconfigure $fd -blocking 1
+    chan configure $fd -blocking 1
     if {[catch {close $fd} err]} {
         error_popup [mc "Error running git blame: %s" $err]
         return 0
@@ -4964,7 +4964,7 @@ proc do_file_hl {serial} {
     }
     set cmd [concat | git diff-tree -r -s --stdin $gdtargs]
     set filehighlight [open $cmd r+]
-    fconfigure $filehighlight -blocking 0
+    chan configure $filehighlight -blocking 0
     filerun $filehighlight readfhighlight
     set fhl_list {}
     drawvisible
@@ -5396,7 +5396,7 @@ proc get_viewmainhead {view} {
                            -- $vfilelimit($view)] r]
         set j [reg_instance $rfd]
         lappend viewinstances($view) $j
-        fconfigure $rfd -blocking 0
+        chan configure $rfd -blocking 0
         filerun $rfd [list getviewhead $rfd $j $view]
         set viewmainheadid($curview) {}
     }
@@ -5466,7 +5466,7 @@ proc dodiffindex {} {
         set cmd [concat $cmd -- $vfilelimit($curview)]
     }
     set fd [open $cmd r]
-    fconfigure $fd -blocking 0
+    chan configure $fd -blocking 0
     set i [reg_instance $fd]
     filerun $fd [list readdiffindex $fd $lserial $i]
 }
@@ -5495,7 +5495,7 @@ proc readdiffindex {fd serial inst} {
         set cmd [concat $cmd -- $vfilelimit($curview)]
     }
     set fd [open $cmd r]
-    fconfigure $fd -blocking 0
+    chan configure $fd -blocking 0
     set i [reg_instance $fd]
     filerun $fd [list readdifffiles $fd $serial $i]
 
@@ -7802,7 +7802,7 @@ proc gettree {id} {
             set treepending $id
             set treefilelist($id) {}
             set treeidlist($id) {}
-            fconfigure $gtf -blocking 0 -translation binary
+            chan configure $gtf -blocking 0 -translation binary
             filerun $gtf [list gettreeline $gtf $id]
         }
     } else {
@@ -7871,7 +7871,7 @@ proc showfile {f} {
             return
         }
     }
-    fconfigure $bf -blocking 0 -encoding [get_path_encoding $f]
+    chan configure $bf -blocking 0 -encoding [get_path_encoding $f]
     filerun $bf [list getblobline $bf $diffids]
     $ctext config -state normal
     clear_ctext $commentend
@@ -8065,7 +8065,7 @@ proc gettreediffs {ids} {
 
     set treepending $ids
     set treediff {}
-    fconfigure $gdtf -blocking 0 -translation binary
+    chan configure $gdtf -blocking 0 -translation binary
     filerun $gdtf [list gettreediffline $gdtf $ids]
 }
 
@@ -8185,7 +8185,7 @@ proc getblobdiffs {ids} {
         error_popup [mc "Error getting diffs: %s" $err]
         return
     }
-    fconfigure $bdf -blocking 0 -translation binary -eofchar {}
+    chan configure $bdf -blocking 0 -translation binary -eofchar {}
     set blobdifffd($ids) $bdf
     initblobdiffvars
     filerun $bdf [list getblobdiffline $bdf $diffids]
@@ -10379,7 +10379,7 @@ proc getallcommits {} {
             set cmd [concat $cmd --stdin "<<[join $ids "\\n"]"]
         }
         set fd [open $cmd r]
-        fconfigure $fd -blocking 0
+        chan configure $fd -blocking 0
         incr allcommits
         nowbusy allcommits
         filerun $fd [list getallclines $fd]
@@ -10487,7 +10487,7 @@ proc getallclines {fd} {
     }
     set cacheok 1
     if {[catch {
-        fconfigure $fd -blocking 1
+        chan configure $fd -blocking 1
         close $fd
     } err]} {
         # got an error reading the list of commits