git-gui / lib / blame.tclon commit remote: Fix bogus make_branch() call in configuration reader. (896c053)
   1# git-gui blame viewer
   2# Copyright (C) 2006, 2007 Shawn Pearce
   3
   4class blame {
   5
   6image create photo ::blame::img_back_arrow -data {R0lGODlhGAAYAIUAAPwCBEzKXFTSZIz+nGzmhGzqfGTidIT+nEzGXHTqhGzmfGzifFzadETCVES+VARWDFzWbHzyjAReDGTadFTOZDSyRDyyTCymPARaFGTedFzSbDy2TCyqRCyqPARaDAyCHES6VDy6VCyiPAR6HCSeNByWLARyFARiDARqFGTifARiFAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACH5BAEAAAAALAAAAAAYABgAAAajQIBwSCwaj8ikcsk0BppJwRPqHEypQwHBis0WDAdEFyBIKBaMAKLBdjQeSkFBYTBAIvgEoS6JmhUTEwIUDQ4VFhcMGEhyCgoZExoUaxsWHB0THkgfAXUGAhoBDSAVFR0XBnCbDRmgog0hpSIiDJpJIyEQhBUcJCIlwA22SSYVogknEg8eD82qSigdDSknY0IqJQXPYxIl1dZCGNvWw+Dm510GQQAh/mhDcmVhdGVkIGJ5IEJNUFRvR0lGIFBybyB2ZXJzaW9uIDIuNQ0KqSBEZXZlbENvciAxOTk3LDE5OTguIEFsbCByaWdodHMgcmVzZXJ2ZWQuDQpodHRwOi8vd3d3LmRldmVsY29yLmNvbQA7}
   7
   8# Persistant data (survives loads)
   9#
  10field history {}; # viewer history: {commit path}
  11field header    ; # array commit,key -> header field
  12
  13# Tk UI control paths
  14#
  15field w          ; # top window in this viewer
  16field w_back     ; # our back button
  17field w_path     ; # label showing the current file path
  18field w_columns  ; # list of all column widgets in the viewer
  19field w_line     ; # text column: all line numbers
  20field w_amov     ; # text column: annotations + move tracking
  21field w_asim     ; # text column: annotations (simple computation)
  22field w_file     ; # text column: actual file data
  23field w_cviewer  ; # pane showing commit message
  24field status     ; # status mega-widget instance
  25field old_height ; # last known height of $w.file_pane
  26
  27# Tk UI colors
  28#
  29variable active_color #c0edc5
  30variable group_colors {
  31        #d6d6d6
  32        #e1e1e1
  33        #ececec
  34}
  35
  36# Switches for original location detection
  37#
  38variable original_options [list -C -C]
  39if {[git-version >= 1.5.3]} {
  40        lappend original_options -w ; # ignore indentation changes
  41}
  42
  43# Current blame data; cleared/reset on each load
  44#
  45field commit               ; # input commit to blame
  46field path                 ; # input filename to view in $commit
  47
  48field current_fd        {} ; # background process running
  49field highlight_line    -1 ; # current line selected
  50field highlight_column  {} ; # current commit column selected
  51field highlight_commit  {} ; # sha1 of commit selected
  52
  53field total_lines       0  ; # total length of file
  54field blame_lines       0  ; # number of lines computed
  55field amov_data            ; # list of {commit origfile origline}
  56field asim_data            ; # list of {commit origfile origline}
  57
  58field r_commit             ; # commit currently being parsed
  59field r_orig_line          ; # original line number
  60field r_final_line         ; # final line number
  61field r_line_count         ; # lines in this region
  62
  63field tooltip_wm        {} ; # Current tooltip toplevel, if open
  64field tooltip_t         {} ; # Text widget in $tooltip_wm
  65field tooltip_timer     {} ; # Current timer event for our tooltip
  66field tooltip_commit    {} ; # Commit(s) in tooltip
  67
  68constructor new {i_commit i_path} {
  69        global cursor_ptr
  70        variable active_color
  71        variable group_colors
  72
  73        set commit $i_commit
  74        set path   $i_path
  75
  76        make_toplevel top w
  77        wm title $top [append "[appname] ([reponame]): " [mc "File Viewer"]]
  78
  79        frame $w.header -background gold
  80        label $w.header.commit_l \
  81                -text [mc "Commit:"] \
  82                -background gold \
  83                -anchor w \
  84                -justify left
  85        set w_back $w.header.commit_b
  86        label $w_back \
  87                -image ::blame::img_back_arrow \
  88                -borderwidth 0 \
  89                -relief flat \
  90                -state disabled \
  91                -background gold \
  92                -activebackground gold
  93        bind $w_back <Button-1> "
  94                if {\[$w_back cget -state\] eq {normal}} {
  95                        [cb _history_menu]
  96                }
  97                "
  98        label $w.header.commit \
  99                -textvariable @commit \
 100                -background gold \
 101                -anchor w \
 102                -justify left
 103        label $w.header.path_l \
 104                -text [mc "File:"] \
 105                -background gold \
 106                -anchor w \
 107                -justify left
 108        set w_path $w.header.path
 109        label $w_path \
 110                -background gold \
 111                -anchor w \
 112                -justify left
 113        pack $w.header.commit_l -side left
 114        pack $w_back -side left
 115        pack $w.header.commit -side left
 116        pack $w_path -fill x -side right
 117        pack $w.header.path_l -side right
 118
 119        panedwindow $w.file_pane -orient vertical
 120        frame $w.file_pane.out
 121        frame $w.file_pane.cm
 122        $w.file_pane add $w.file_pane.out \
 123                -sticky nsew \
 124                -minsize 100 \
 125                -height 100 \
 126                -width 100
 127        $w.file_pane add $w.file_pane.cm \
 128                -sticky nsew \
 129                -minsize 25 \
 130                -height 25 \
 131                -width 100
 132
 133        set w_line $w.file_pane.out.linenumber_t
 134        text $w_line \
 135                -takefocus 0 \
 136                -highlightthickness 0 \
 137                -padx 0 -pady 0 \
 138                -background white -borderwidth 0 \
 139                -state disabled \
 140                -wrap none \
 141                -height 40 \
 142                -width 6 \
 143                -font font_diff
 144        $w_line tag conf linenumber -justify right -rmargin 5
 145
 146        set w_amov $w.file_pane.out.amove_t
 147        text $w_amov \
 148                -takefocus 0 \
 149                -highlightthickness 0 \
 150                -padx 0 -pady 0 \
 151                -background white -borderwidth 0 \
 152                -state disabled \
 153                -wrap none \
 154                -height 40 \
 155                -width 5 \
 156                -font font_diff
 157        $w_amov tag conf author_abbr -justify right -rmargin 5
 158        $w_amov tag conf curr_commit
 159        $w_amov tag conf prior_commit -foreground blue -underline 1
 160        $w_amov tag bind prior_commit \
 161                <Button-1> \
 162                "[cb _load_commit $w_amov @amov_data @%x,%y];break"
 163
 164        set w_asim $w.file_pane.out.asimple_t
 165        text $w_asim \
 166                -takefocus 0 \
 167                -highlightthickness 0 \
 168                -padx 0 -pady 0 \
 169                -background white -borderwidth 0 \
 170                -state disabled \
 171                -wrap none \
 172                -height 40 \
 173                -width 4 \
 174                -font font_diff
 175        $w_asim tag conf author_abbr -justify right
 176        $w_asim tag conf curr_commit
 177        $w_asim tag conf prior_commit -foreground blue -underline 1
 178        $w_asim tag bind prior_commit \
 179                <Button-1> \
 180                "[cb _load_commit $w_asim @asim_data @%x,%y];break"
 181
 182        set w_file $w.file_pane.out.file_t
 183        text $w_file \
 184                -takefocus 0 \
 185                -highlightthickness 0 \
 186                -padx 0 -pady 0 \
 187                -background white -borderwidth 0 \
 188                -state disabled \
 189                -wrap none \
 190                -height 40 \
 191                -width 80 \
 192                -xscrollcommand [list $w.file_pane.out.sbx set] \
 193                -font font_diff
 194
 195        set w_columns [list $w_amov $w_asim $w_line $w_file]
 196
 197        scrollbar $w.file_pane.out.sbx \
 198                -orient h \
 199                -command [list $w_file xview]
 200        scrollbar $w.file_pane.out.sby \
 201                -orient v \
 202                -command [list scrollbar2many $w_columns yview]
 203        eval grid $w_columns $w.file_pane.out.sby -sticky nsew
 204        grid conf \
 205                $w.file_pane.out.sbx \
 206                -column [expr {[llength $w_columns] - 1}] \
 207                -sticky we
 208        grid columnconfigure \
 209                $w.file_pane.out \
 210                [expr {[llength $w_columns] - 1}] \
 211                -weight 1
 212        grid rowconfigure $w.file_pane.out 0 -weight 1
 213
 214        set w_cviewer $w.file_pane.cm.t
 215        text $w_cviewer \
 216                -background white -borderwidth 0 \
 217                -state disabled \
 218                -wrap none \
 219                -height 10 \
 220                -width 80 \
 221                -xscrollcommand [list $w.file_pane.cm.sbx set] \
 222                -yscrollcommand [list $w.file_pane.cm.sby set] \
 223                -font font_diff
 224        $w_cviewer tag conf still_loading \
 225                -font font_uiitalic \
 226                -justify center
 227        $w_cviewer tag conf header_key \
 228                -tabs {3c} \
 229                -background $active_color \
 230                -font font_uibold
 231        $w_cviewer tag conf header_val \
 232                -background $active_color \
 233                -font font_ui
 234        $w_cviewer tag raise sel
 235        scrollbar $w.file_pane.cm.sbx \
 236                -orient h \
 237                -command [list $w_cviewer xview]
 238        scrollbar $w.file_pane.cm.sby \
 239                -orient v \
 240                -command [list $w_cviewer yview]
 241        pack $w.file_pane.cm.sby -side right -fill y
 242        pack $w.file_pane.cm.sbx -side bottom -fill x
 243        pack $w_cviewer -expand 1 -fill both
 244
 245        set status [::status_bar::new $w.status]
 246
 247        menu $w.ctxm -tearoff 0
 248        $w.ctxm add command \
 249                -label [mc "Copy Commit"] \
 250                -command [cb _copycommit]
 251
 252        foreach i $w_columns {
 253                for {set g 0} {$g < [llength $group_colors]} {incr g} {
 254                        $i tag conf color$g -background [lindex $group_colors $g]
 255                }
 256
 257                $i conf -cursor $cursor_ptr
 258                $i conf -yscrollcommand [list many2scrollbar \
 259                        $w_columns yview $w.file_pane.out.sby]
 260                bind $i <Button-1> "
 261                        [cb _hide_tooltip]
 262                        [cb _click $i @%x,%y]
 263                        focus $i
 264                "
 265                bind $i <Any-Motion>  [cb _show_tooltip $i @%x,%y]
 266                bind $i <Any-Enter>   [cb _hide_tooltip]
 267                bind $i <Any-Leave>   [cb _hide_tooltip]
 268                bind_button3 $i "
 269                        [cb _hide_tooltip]
 270                        set cursorX %x
 271                        set cursorY %y
 272                        set cursorW %W
 273                        tk_popup $w.ctxm %X %Y
 274                "
 275                bind $i <Shift-Tab> "[list focus $w_cviewer];break"
 276                bind $i <Tab>       "[list focus $w_cviewer];break"
 277        }
 278
 279        foreach i [concat $w_columns $w_cviewer] {
 280                bind $i <Key-Up>        {catch {%W yview scroll -1 units};break}
 281                bind $i <Key-Down>      {catch {%W yview scroll  1 units};break}
 282                bind $i <Key-Left>      {catch {%W xview scroll -1 units};break}
 283                bind $i <Key-Right>     {catch {%W xview scroll  1 units};break}
 284                bind $i <Key-k>         {catch {%W yview scroll -1 units};break}
 285                bind $i <Key-j>         {catch {%W yview scroll  1 units};break}
 286                bind $i <Key-h>         {catch {%W xview scroll -1 units};break}
 287                bind $i <Key-l>         {catch {%W xview scroll  1 units};break}
 288                bind $i <Control-Key-b> {catch {%W yview scroll -1 pages};break}
 289                bind $i <Control-Key-f> {catch {%W yview scroll  1 pages};break}
 290        }
 291
 292        bind $w_cviewer <Shift-Tab> "[list focus $w_file];break"
 293        bind $w_cviewer <Tab>       "[list focus $w_file];break"
 294        bind $w_cviewer <Button-1> [list focus $w_cviewer]
 295        bind $w_file    <Visibility> [list focus $w_file]
 296
 297        grid configure $w.header -sticky ew
 298        grid configure $w.file_pane -sticky nsew
 299        grid configure $w.status -sticky ew
 300        grid columnconfigure $top 0 -weight 1
 301        grid rowconfigure $top 0 -weight 0
 302        grid rowconfigure $top 1 -weight 1
 303        grid rowconfigure $top 2 -weight 0
 304
 305        set req_w [winfo reqwidth  $top]
 306        set req_h [winfo reqheight $top]
 307        set scr_h [expr {[winfo screenheight $top] - 100}]
 308        if {$req_w < 600} {set req_w 600}
 309        if {$req_h < $scr_h} {set req_h $scr_h}
 310        set g "${req_w}x${req_h}"
 311        wm geometry $top $g
 312        update
 313
 314        set old_height [winfo height $w.file_pane]
 315        $w.file_pane sash place 0 \
 316                [lindex [$w.file_pane sash coord 0] 0] \
 317                [expr {int($old_height * 0.70)}]
 318        bind $w.file_pane <Configure> \
 319        "if {{$w.file_pane} eq {%W}} {[cb _resize %h]}"
 320
 321        _load $this {}
 322}
 323
 324method _load {jump} {
 325        variable group_colors
 326
 327        _hide_tooltip $this
 328
 329        if {$total_lines != 0 || $current_fd ne {}} {
 330                if {$current_fd ne {}} {
 331                        catch {close $current_fd}
 332                        set current_fd {}
 333                }
 334
 335                foreach i $w_columns {
 336                        $i conf -state normal
 337                        $i delete 0.0 end
 338                        foreach g [$i tag names] {
 339                                if {[regexp {^g[0-9a-f]{40}$} $g]} {
 340                                        $i tag delete $g
 341                                }
 342                        }
 343                        $i conf -state disabled
 344                }
 345
 346                $w_cviewer conf -state normal
 347                $w_cviewer delete 0.0 end
 348                $w_cviewer conf -state disabled
 349
 350                set highlight_line -1
 351                set highlight_column {}
 352                set highlight_commit {}
 353                set total_lines 0
 354        }
 355
 356        if {$history eq {}} {
 357                $w_back conf -state disabled
 358        } else {
 359                $w_back conf -state normal
 360        }
 361
 362        # Index 0 is always empty.  There is never line 0 as
 363        # we use only 1 based lines, as that matches both with
 364        # git-blame output and with Tk's text widget.
 365        #
 366        set amov_data [list [list]]
 367        set asim_data [list [list]]
 368
 369        $status show [mc "Reading %s..." "$commit:[escape_path $path]"]
 370        $w_path conf -text [escape_path $path]
 371        if {$commit eq {}} {
 372                set fd [open $path r]
 373                fconfigure $fd -eofchar {}
 374        } else {
 375                set fd [git_read cat-file blob "$commit:$path"]
 376        }
 377        fconfigure $fd -blocking 0 -translation lf -encoding binary
 378        fileevent $fd readable [cb _read_file $fd $jump]
 379        set current_fd $fd
 380}
 381
 382method _history_menu {} {
 383        set m $w.backmenu
 384        if {[winfo exists $m]} {
 385                $m delete 0 end
 386        } else {
 387                menu $m -tearoff 0
 388        }
 389
 390        for {set i [expr {[llength $history] - 1}]
 391                } {$i >= 0} {incr i -1} {
 392                set e [lindex $history $i]
 393                set c [lindex $e 0]
 394                set f [lindex $e 1]
 395
 396                if {[regexp {^[0-9a-f]{40}$} $c]} {
 397                        set t [string range $c 0 8]...
 398                } elseif {$c eq {}} {
 399                        set t {Working Directory}
 400                } else {
 401                        set t $c
 402                }
 403                if {![catch {set summary $header($c,summary)}]} {
 404                        append t " $summary"
 405                        if {[string length $t] > 70} {
 406                                set t [string range $t 0 66]...
 407                        }
 408                }
 409
 410                $m add command -label $t -command [cb _goback $i]
 411        }
 412        set X [winfo rootx $w_back]
 413        set Y [expr {[winfo rooty $w_back] + [winfo height $w_back]}]
 414        tk_popup $m $X $Y
 415}
 416
 417method _goback {i} {
 418        set dat [lindex $history $i]
 419        set history [lrange $history 0 [expr {$i - 1}]]
 420        set commit [lindex $dat 0]
 421        set path [lindex $dat 1]
 422        _load $this [lrange $dat 2 5]
 423}
 424
 425method _read_file {fd jump} {
 426        if {$fd ne $current_fd} {
 427                catch {close $fd}
 428                return
 429        }
 430
 431        foreach i $w_columns {$i conf -state normal}
 432        while {[gets $fd line] >= 0} {
 433                regsub "\r\$" $line {} line
 434                incr total_lines
 435                lappend amov_data {}
 436                lappend asim_data {}
 437
 438                if {$total_lines > 1} {
 439                        foreach i $w_columns {$i insert end "\n"}
 440                }
 441
 442                $w_line insert end "$total_lines" linenumber
 443                $w_file insert end "$line"
 444        }
 445
 446        set ln_wc [expr {[string length $total_lines] + 2}]
 447        if {[$w_line cget -width] < $ln_wc} {
 448                $w_line conf -width $ln_wc
 449        }
 450
 451        foreach i $w_columns {$i conf -state disabled}
 452
 453        if {[eof $fd]} {
 454                close $fd
 455
 456                # If we don't force Tk to update the widgets *right now*
 457                # none of our jump commands will cause a change in the UI.
 458                #
 459                update
 460
 461                if {[llength $jump] == 1} {
 462                        set highlight_line [lindex $jump 0]
 463                        $w_file see "$highlight_line.0"
 464                } elseif {[llength $jump] == 4} {
 465                        set highlight_column [lindex $jump 0]
 466                        set highlight_line [lindex $jump 1]
 467                        $w_file xview moveto [lindex $jump 2]
 468                        $w_file yview moveto [lindex $jump 3]
 469                }
 470
 471                _exec_blame $this $w_asim @asim_data \
 472                        [list] \
 473                        [mc "Loading copy/move tracking annotations..."]
 474        }
 475} ifdeleted { catch {close $fd} }
 476
 477method _exec_blame {cur_w cur_d options cur_s} {
 478        lappend options --incremental
 479        if {$commit eq {}} {
 480                lappend options --contents $path
 481        } else {
 482                lappend options $commit
 483        }
 484        lappend options -- $path
 485        set fd [eval git_read --nice blame $options]
 486        fconfigure $fd -blocking 0 -translation lf -encoding binary
 487        fileevent $fd readable [cb _read_blame $fd $cur_w $cur_d]
 488        set current_fd $fd
 489        set blame_lines 0
 490
 491        $status start \
 492                $cur_s \
 493                [mc "lines annotated"]
 494}
 495
 496method _read_blame {fd cur_w cur_d} {
 497        upvar #0 $cur_d line_data
 498        variable group_colors
 499        variable original_options
 500
 501        if {$fd ne $current_fd} {
 502                catch {close $fd}
 503                return
 504        }
 505
 506        $cur_w conf -state normal
 507        while {[gets $fd line] >= 0} {
 508                if {[regexp {^([a-z0-9]{40}) (\d+) (\d+) (\d+)$} $line line \
 509                        cmit original_line final_line line_count]} {
 510                        set r_commit     $cmit
 511                        set r_orig_line  $original_line
 512                        set r_final_line $final_line
 513                        set r_line_count $line_count
 514                } elseif {[string match {filename *} $line]} {
 515                        set file [string range $line 9 end]
 516                        set n    $r_line_count
 517                        set lno  $r_final_line
 518                        set oln  $r_orig_line
 519                        set cmit $r_commit
 520
 521                        if {[regexp {^0{40}$} $cmit]} {
 522                                set commit_abbr work
 523                                set commit_type curr_commit
 524                        } elseif {$cmit eq $commit} {
 525                                set commit_abbr this
 526                                set commit_type curr_commit
 527                        } else {
 528                                set commit_type prior_commit
 529                                set commit_abbr [string range $cmit 0 3]
 530                        }
 531
 532                        set author_abbr {}
 533                        set a_name {}
 534                        catch {set a_name $header($cmit,author)}
 535                        while {$a_name ne {}} {
 536                                if {$author_abbr ne {}
 537                                        && [string index $a_name 0] eq {'}} {
 538                                        regsub {^'[^']+'\s+} $a_name {} a_name
 539                                }
 540                                if {![regexp {^([[:upper:]])} $a_name _a]} break
 541                                append author_abbr $_a
 542                                unset _a
 543                                if {![regsub \
 544                                        {^[[:upper:]][^\s]*\s+} \
 545                                        $a_name {} a_name ]} break
 546                        }
 547                        if {$author_abbr eq {}} {
 548                                set author_abbr { |}
 549                        } else {
 550                                set author_abbr [string range $author_abbr 0 3]
 551                        }
 552                        unset a_name
 553
 554                        set first_lno $lno
 555                        while {
 556                           $first_lno > 1
 557                        && $cmit eq [lindex $line_data [expr {$first_lno - 1}] 0]
 558                        && $file eq [lindex $line_data [expr {$first_lno - 1}] 1]
 559                        } {
 560                                incr first_lno -1
 561                        }
 562
 563                        set color {}
 564                        if {$first_lno < $lno} {
 565                                foreach g [$w_file tag names $first_lno.0] {
 566                                        if {[regexp {^color[0-9]+$} $g]} {
 567                                                set color $g
 568                                                break
 569                                        }
 570                                }
 571                        } else {
 572                                set i [lsort [concat \
 573                                        [$w_file tag names "[expr {$first_lno - 1}].0"] \
 574                                        [$w_file tag names "[expr {$lno + $n}].0"] \
 575                                        ]]
 576                                for {set g 0} {$g < [llength $group_colors]} {incr g} {
 577                                        if {[lsearch -sorted -exact $i color$g] == -1} {
 578                                                set color color$g
 579                                                break
 580                                        }
 581                                }
 582                        }
 583                        if {$color eq {}} {
 584                                set color color0
 585                        }
 586
 587                        while {$n > 0} {
 588                                set lno_e "$lno.0 lineend + 1c"
 589                                if {[lindex $line_data $lno] ne {}} {
 590                                        set g [lindex $line_data $lno 0]
 591                                        foreach i $w_columns {
 592                                                $i tag remove g$g $lno.0 $lno_e
 593                                        }
 594                                }
 595                                lset line_data $lno [list $cmit $file $oln]
 596
 597                                $cur_w delete $lno.0 "$lno.0 lineend"
 598                                if {$lno == $first_lno} {
 599                                        $cur_w insert $lno.0 $commit_abbr $commit_type
 600                                } elseif {$lno == [expr {$first_lno + 1}]} {
 601                                        $cur_w insert $lno.0 $author_abbr author_abbr
 602                                } else {
 603                                        $cur_w insert $lno.0 { |}
 604                                }
 605
 606                                foreach i $w_columns {
 607                                        if {$cur_w eq $w_amov} {
 608                                                for {set g 0} \
 609                                                        {$g < [llength $group_colors]} \
 610                                                        {incr g} {
 611                                                        $i tag remove color$g $lno.0 $lno_e
 612                                                }
 613                                                $i tag add $color $lno.0 $lno_e
 614                                        }
 615                                        $i tag add g$cmit $lno.0 $lno_e
 616                                }
 617
 618                                if {$highlight_column eq $cur_w} {
 619                                        if {$highlight_line == -1
 620                                         && [lindex [$w_file yview] 0] == 0} {
 621                                                $w_file see $lno.0
 622                                                set highlight_line $lno
 623                                        }
 624                                        if {$highlight_line == $lno} {
 625                                                _showcommit $this $cur_w $lno
 626                                        }
 627                                }
 628
 629                                incr n -1
 630                                incr lno
 631                                incr oln
 632                                incr blame_lines
 633                        }
 634
 635                        while {
 636                           $cmit eq [lindex $line_data $lno 0]
 637                        && $file eq [lindex $line_data $lno 1]
 638                        } {
 639                                $cur_w delete $lno.0 "$lno.0 lineend"
 640
 641                                if {$lno == $first_lno} {
 642                                        $cur_w insert $lno.0 $commit_abbr $commit_type
 643                                } elseif {$lno == [expr {$first_lno + 1}]} {
 644                                        $cur_w insert $lno.0 $author_abbr author_abbr
 645                                } else {
 646                                        $cur_w insert $lno.0 { |}
 647                                }
 648
 649                                if {$cur_w eq $w_amov} {
 650                                        foreach i $w_columns {
 651                                                for {set g 0} \
 652                                                        {$g < [llength $group_colors]} \
 653                                                        {incr g} {
 654                                                        $i tag remove color$g $lno.0 $lno_e
 655                                                }
 656                                                $i tag add $color $lno.0 $lno_e
 657                                        }
 658                                }
 659
 660                                incr lno
 661                        }
 662
 663                } elseif {[regexp {^([a-z-]+) (.*)$} $line line key data]} {
 664                        set header($r_commit,$key) $data
 665                }
 666        }
 667        $cur_w conf -state disabled
 668
 669        if {[eof $fd]} {
 670                close $fd
 671                if {$cur_w eq $w_asim} {
 672                        _exec_blame $this $w_amov @amov_data \
 673                                $original_options \
 674                                [mc "Loading original location annotations..."]
 675                } else {
 676                        set current_fd {}
 677                        $status stop [mc "Annotation complete."]
 678                }
 679        } else {
 680                $status update $blame_lines $total_lines
 681        }
 682} ifdeleted { catch {close $fd} }
 683
 684method _click {cur_w pos} {
 685        set lno [lindex [split [$cur_w index $pos] .] 0]
 686        _showcommit $this $cur_w $lno
 687}
 688
 689method _load_commit {cur_w cur_d pos} {
 690        upvar #0 $cur_d line_data
 691        set lno [lindex [split [$cur_w index $pos] .] 0]
 692        set dat [lindex $line_data $lno]
 693        if {$dat ne {}} {
 694                lappend history [list \
 695                        $commit $path \
 696                        $highlight_column \
 697                        $highlight_line \
 698                        [lindex [$w_file xview] 0] \
 699                        [lindex [$w_file yview] 0] \
 700                        ]
 701                set commit [lindex $dat 0]
 702                set path   [lindex $dat 1]
 703                _load $this [list [lindex $dat 2]]
 704        }
 705}
 706
 707method _showcommit {cur_w lno} {
 708        global repo_config
 709        variable active_color
 710
 711        if {$highlight_commit ne {}} {
 712                foreach i $w_columns {
 713                        $i tag conf g$highlight_commit -background {}
 714                        $i tag lower g$highlight_commit
 715                }
 716        }
 717
 718        if {$cur_w eq $w_asim} {
 719                set dat [lindex $asim_data $lno]
 720                set highlight_column $w_asim
 721        } else {
 722                set dat [lindex $amov_data $lno]
 723                set highlight_column $w_amov
 724        }
 725
 726        $w_cviewer conf -state normal
 727        $w_cviewer delete 0.0 end
 728
 729        if {$dat eq {}} {
 730                set cmit {}
 731                $w_cviewer insert end [mc "Loading annotation..."] still_loading
 732        } else {
 733                set cmit [lindex $dat 0]
 734                set file [lindex $dat 1]
 735
 736                foreach i $w_columns {
 737                        $i tag conf g$cmit -background $active_color
 738                        $i tag raise g$cmit
 739                }
 740
 741                set author_name {}
 742                set author_email {}
 743                set author_time {}
 744                catch {set author_name $header($cmit,author)}
 745                catch {set author_email $header($cmit,author-mail)}
 746                catch {set author_time [format_date $header($cmit,author-time)]}
 747
 748                set committer_name {}
 749                set committer_email {}
 750                set committer_time {}
 751                catch {set committer_name $header($cmit,committer)}
 752                catch {set committer_email $header($cmit,committer-mail)}
 753                catch {set committer_time [format_date $header($cmit,committer-time)]}
 754
 755                if {[catch {set msg $header($cmit,message)}]} {
 756                        set msg {}
 757                        catch {
 758                                set fd [git_read cat-file commit $cmit]
 759                                fconfigure $fd -encoding binary -translation lf
 760                                if {[catch {set enc $repo_config(i18n.commitencoding)}]} {
 761                                        set enc utf-8
 762                                }
 763                                while {[gets $fd line] > 0} {
 764                                        if {[string match {encoding *} $line]} {
 765                                                set enc [string tolower [string range $line 9 end]]
 766                                        }
 767                                }
 768                                set msg [read $fd]
 769                                close $fd
 770
 771                                set enc [tcl_encoding $enc]
 772                                if {$enc ne {}} {
 773                                        set msg [encoding convertfrom $enc $msg]
 774                                        set author_name [encoding convertfrom $enc $author_name]
 775                                        set committer_name [encoding convertfrom $enc $committer_name]
 776                                        set header($cmit,author) $author_name
 777                                        set header($cmit,committer) $committer_name
 778                                        set header($cmit,summary) \
 779                                        [encoding convertfrom $enc $header($cmit,summary)]
 780                                }
 781                                set msg [string trim $msg]
 782                        }
 783                        set header($cmit,message) $msg
 784                }
 785
 786                $w_cviewer insert end "commit $cmit\n" header_key
 787                $w_cviewer insert end [strcat [mc "Author:"] "\t"] header_key
 788                $w_cviewer insert end "$author_name $author_email" header_val
 789                $w_cviewer insert end "  $author_time\n" header_val
 790
 791                $w_cviewer insert end [strcat [mc "Committer:"] "\t"] header_key
 792                $w_cviewer insert end "$committer_name $committer_email" header_val
 793                $w_cviewer insert end "  $committer_time\n" header_val
 794
 795                if {$file ne $path} {
 796                        $w_cviewer insert end [strcat [mc "Original File:"] "\t"] header_key
 797                        $w_cviewer insert end "[escape_path $file]\n" header_val
 798                }
 799
 800                $w_cviewer insert end "\n$msg"
 801        }
 802        $w_cviewer conf -state disabled
 803
 804        set highlight_line $lno
 805        set highlight_commit $cmit
 806
 807        if {[lsearch -exact $tooltip_commit $highlight_commit] != -1} {
 808                _hide_tooltip $this
 809        }
 810}
 811
 812method _copycommit {} {
 813        set pos @$::cursorX,$::cursorY
 814        set lno [lindex [split [$::cursorW index $pos] .] 0]
 815        set dat [lindex $amov_data $lno]
 816        if {$dat ne {}} {
 817                clipboard clear
 818                clipboard append \
 819                        -format STRING \
 820                        -type STRING \
 821                        -- [lindex $dat 0]
 822        }
 823}
 824
 825method _show_tooltip {cur_w pos} {
 826        if {$tooltip_wm ne {}} {
 827                _open_tooltip $this $cur_w
 828        } elseif {$tooltip_timer eq {}} {
 829                set tooltip_timer [after 1000 [cb _open_tooltip $cur_w]]
 830        }
 831}
 832
 833method _open_tooltip {cur_w} {
 834        set tooltip_timer {}
 835        set pos_x [winfo pointerx $cur_w]
 836        set pos_y [winfo pointery $cur_w]
 837        if {[winfo containing $pos_x $pos_y] ne $cur_w} {
 838                _hide_tooltip $this
 839                return
 840        }
 841
 842        if {$tooltip_wm ne "$cur_w.tooltip"} {
 843                _hide_tooltip $this
 844
 845                set tooltip_wm [toplevel $cur_w.tooltip -borderwidth 1]
 846                wm overrideredirect $tooltip_wm 1
 847                wm transient $tooltip_wm [winfo toplevel $cur_w]
 848                set tooltip_t $tooltip_wm.label
 849                text $tooltip_t \
 850                        -takefocus 0 \
 851                        -highlightthickness 0 \
 852                        -relief flat \
 853                        -borderwidth 0 \
 854                        -wrap none \
 855                        -background lightyellow \
 856                        -foreground black
 857                $tooltip_t tag conf section_header -font font_uibold
 858                pack $tooltip_t
 859        } else {
 860                $tooltip_t conf -state normal
 861                $tooltip_t delete 0.0 end
 862        }
 863
 864        set pos @[join [list \
 865                [expr {$pos_x - [winfo rootx $cur_w]}] \
 866                [expr {$pos_y - [winfo rooty $cur_w]}]] ,]
 867        set lno [lindex [split [$cur_w index $pos] .] 0]
 868        if {$cur_w eq $w_amov} {
 869                set dat [lindex $amov_data $lno]
 870                set org {}
 871        } else {
 872                set dat [lindex $asim_data $lno]
 873                set org [lindex $amov_data $lno]
 874        }
 875
 876        if {$dat eq {}} {
 877                _hide_tooltip $this
 878                return
 879        }
 880
 881        set cmit [lindex $dat 0]
 882        set tooltip_commit [list $cmit]
 883
 884        set author_name {}
 885        set summary     {}
 886        set author_time {}
 887        catch {set author_name $header($cmit,author)}
 888        catch {set summary     $header($cmit,summary)}
 889        catch {set author_time [format_date $header($cmit,author-time)]}
 890
 891        $tooltip_t insert end "commit $cmit\n"
 892        $tooltip_t insert end "$author_name  $author_time\n"
 893        $tooltip_t insert end "$summary"
 894
 895        if {$org ne {} && [lindex $org 0] ne $cmit} {
 896                set save [$tooltip_t get 0.0 end]
 897                $tooltip_t delete 0.0 end
 898
 899                set cmit [lindex $org 0]
 900                set file [lindex $org 1]
 901                lappend tooltip_commit $cmit
 902
 903                set author_name {}
 904                set summary     {}
 905                set author_time {}
 906                catch {set author_name $header($cmit,author)}
 907                catch {set summary     $header($cmit,summary)}
 908                catch {set author_time [format_date $header($cmit,author-time)]}
 909
 910                $tooltip_t insert end [strcat [mc "Originally By:"] "\n"] section_header
 911                $tooltip_t insert end "commit $cmit\n"
 912                $tooltip_t insert end "$author_name  $author_time\n"
 913                $tooltip_t insert end "$summary\n"
 914
 915                if {$file ne $path} {
 916                        $tooltip_t insert end [strcat [mc "In File:"] " "] section_header
 917                        $tooltip_t insert end "$file\n"
 918                }
 919
 920                $tooltip_t insert end "\n"
 921                $tooltip_t insert end [strcat [mc "Copied Or Moved Here By:"] "\n"] section_header
 922                $tooltip_t insert end $save
 923        }
 924
 925        $tooltip_t conf -state disabled
 926        _position_tooltip $this
 927}
 928
 929method _position_tooltip {} {
 930        set max_h [lindex [split [$tooltip_t index end] .] 0]
 931        set max_w 0
 932        for {set i 1} {$i <= $max_h} {incr i} {
 933                set c [lindex [split [$tooltip_t index "$i.0 lineend"] .] 1]
 934                if {$c > $max_w} {set max_w $c}
 935        }
 936        $tooltip_t conf -width $max_w -height $max_h
 937
 938        set req_w [winfo reqwidth  $tooltip_t]
 939        set req_h [winfo reqheight $tooltip_t]
 940        set pos_x [expr {[winfo pointerx .] +  5}]
 941        set pos_y [expr {[winfo pointery .] + 10}]
 942
 943        set g "${req_w}x${req_h}"
 944        if {$pos_x >= 0} {append g +}
 945        append g $pos_x
 946        if {$pos_y >= 0} {append g +}
 947        append g $pos_y
 948
 949        wm geometry $tooltip_wm $g
 950        raise $tooltip_wm
 951}
 952
 953method _hide_tooltip {} {
 954        if {$tooltip_wm ne {}} {
 955                destroy $tooltip_wm
 956                set tooltip_wm {}
 957                set tooltip_commit {}
 958        }
 959        if {$tooltip_timer ne {}} {
 960                after cancel $tooltip_timer
 961                set tooltip_timer {}
 962        }
 963}
 964
 965method _resize {new_height} {
 966        set diff [expr {$new_height - $old_height}]
 967        if {$diff == 0} return
 968
 969        set my [expr {[winfo height $w.file_pane] - 25}]
 970        set o [$w.file_pane sash coord 0]
 971        set ox [lindex $o 0]
 972        set oy [expr {[lindex $o 1] + $diff}]
 973        if {$oy < 0}   {set oy 0}
 974        if {$oy > $my} {set oy $my}
 975        $w.file_pane sash place 0 $ox $oy
 976
 977        set old_height $new_height
 978}
 979
 980}