d640b143f31510f3a1de41444def5b71f0a47e4e
   1#!/bin/sh
   2# Tcl ignores the next line -*- tcl -*- \
   3exec wish "$0" -- "$@"
   4
   5set appvers {@@GITGUI_VERSION@@}
   6set copyright {
   7Copyright © 2006, 2007 Shawn Pearce, et. al.
   8
   9This program is free software; you can redistribute it and/or modify
  10it under the terms of the GNU General Public License as published by
  11the Free Software Foundation; either version 2 of the License, or
  12(at your option) any later version.
  13
  14This program is distributed in the hope that it will be useful,
  15but WITHOUT ANY WARRANTY; without even the implied warranty of
  16MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  17GNU General Public License for more details.
  18
  19You should have received a copy of the GNU General Public License
  20along with this program; if not, write to the Free Software
  21Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA}
  22
  23######################################################################
  24##
  25## enable verbose loading?
  26
  27if {![catch {set _verbose $env(GITGUI_VERBOSE)}]} {
  28        unset _verbose
  29        rename auto_load real__auto_load
  30        proc auto_load {name args} {
  31                puts stderr "auto_load $name"
  32                return [uplevel 1 real__auto_load $name $args]
  33        }
  34        rename source real__source
  35        proc source {name} {
  36                puts stderr "source    $name"
  37                uplevel 1 real__source $name
  38        }
  39}
  40
  41######################################################################
  42##
  43## configure our library
  44
  45set oguilib {@@GITGUI_LIBDIR@@}
  46set oguirel {@@GITGUI_RELATIVE@@}
  47if {$oguirel eq {1}} {
  48        set oguilib [file dirname [file dirname [file normalize $argv0]]]
  49        set oguilib [file join $oguilib share git-gui lib]
  50} elseif {[string match @@* $oguirel]} {
  51        set oguilib [file join [file dirname [file normalize $argv0]] lib]
  52}
  53
  54set idx [file join $oguilib tclIndex]
  55if {[catch {set fd [open $idx r]} err]} {
  56        catch {wm withdraw .}
  57        tk_messageBox \
  58                -icon error \
  59                -type ok \
  60                -title "git-gui: fatal error" \
  61                -message $err
  62        exit 1
  63}
  64if {[gets $fd] eq {# Autogenerated by git-gui Makefile}} {
  65        set idx [list]
  66        while {[gets $fd n] >= 0} {
  67                if {$n ne {} && ![string match #* $n]} {
  68                        lappend idx $n
  69                }
  70        }
  71} else {
  72        set idx {}
  73}
  74close $fd
  75
  76if {$idx ne {}} {
  77        set loaded [list]
  78        foreach p $idx {
  79                if {[lsearch -exact $loaded $p] >= 0} continue
  80                source [file join $oguilib $p]
  81                lappend loaded $p
  82        }
  83        unset loaded p
  84} else {
  85        set auto_path [concat [list $oguilib] $auto_path]
  86}
  87unset -nocomplain oguirel idx fd
  88
  89######################################################################
  90##
  91## read only globals
  92
  93set _appname [lindex [file split $argv0] end]
  94set _gitdir {}
  95set _gitexec {}
  96set _reponame {}
  97set _iscygwin {}
  98
  99proc appname {} {
 100        global _appname
 101        return $_appname
 102}
 103
 104proc gitdir {args} {
 105        global _gitdir
 106        if {$args eq {}} {
 107                return $_gitdir
 108        }
 109        return [eval [concat [list file join $_gitdir] $args]]
 110}
 111
 112proc gitexec {args} {
 113        global _gitexec
 114        if {$_gitexec eq {}} {
 115                if {[catch {set _gitexec [git --exec-path]} err]} {
 116                        error "Git not installed?\n\n$err"
 117                }
 118        }
 119        if {$args eq {}} {
 120                return $_gitexec
 121        }
 122        return [eval [concat [list file join $_gitexec] $args]]
 123}
 124
 125proc reponame {} {
 126        global _reponame
 127        return $_reponame
 128}
 129
 130proc is_MacOSX {} {
 131        global tcl_platform tk_library
 132        if {[tk windowingsystem] eq {aqua}} {
 133                return 1
 134        }
 135        return 0
 136}
 137
 138proc is_Windows {} {
 139        global tcl_platform
 140        if {$tcl_platform(platform) eq {windows}} {
 141                return 1
 142        }
 143        return 0
 144}
 145
 146proc is_Cygwin {} {
 147        global tcl_platform _iscygwin
 148        if {$_iscygwin eq {}} {
 149                if {$tcl_platform(platform) eq {windows}} {
 150                        if {[catch {set p [exec cygpath --windir]} err]} {
 151                                set _iscygwin 0
 152                        } else {
 153                                set _iscygwin 1
 154                        }
 155                } else {
 156                        set _iscygwin 0
 157                }
 158        }
 159        return $_iscygwin
 160}
 161
 162proc is_enabled {option} {
 163        global enabled_options
 164        if {[catch {set on $enabled_options($option)}]} {return 0}
 165        return $on
 166}
 167
 168proc enable_option {option} {
 169        global enabled_options
 170        set enabled_options($option) 1
 171}
 172
 173proc disable_option {option} {
 174        global enabled_options
 175        set enabled_options($option) 0
 176}
 177
 178######################################################################
 179##
 180## config
 181
 182proc is_many_config {name} {
 183        switch -glob -- $name {
 184        remote.*.fetch -
 185        remote.*.push
 186                {return 1}
 187        *
 188                {return 0}
 189        }
 190}
 191
 192proc is_config_true {name} {
 193        global repo_config
 194        if {[catch {set v $repo_config($name)}]} {
 195                return 0
 196        } elseif {$v eq {true} || $v eq {1} || $v eq {yes}} {
 197                return 1
 198        } else {
 199                return 0
 200        }
 201}
 202
 203proc load_config {include_global} {
 204        global repo_config global_config default_config
 205
 206        array unset global_config
 207        if {$include_global} {
 208                catch {
 209                        set fd_rc [open "| git config --global --list" r]
 210                        while {[gets $fd_rc line] >= 0} {
 211                                if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
 212                                        if {[is_many_config $name]} {
 213                                                lappend global_config($name) $value
 214                                        } else {
 215                                                set global_config($name) $value
 216                                        }
 217                                }
 218                        }
 219                        close $fd_rc
 220                }
 221        }
 222
 223        array unset repo_config
 224        catch {
 225                set fd_rc [open "| git config --list" r]
 226                while {[gets $fd_rc line] >= 0} {
 227                        if {[regexp {^([^=]+)=(.*)$} $line line name value]} {
 228                                if {[is_many_config $name]} {
 229                                        lappend repo_config($name) $value
 230                                } else {
 231                                        set repo_config($name) $value
 232                                }
 233                        }
 234                }
 235                close $fd_rc
 236        }
 237
 238        foreach name [array names default_config] {
 239                if {[catch {set v $global_config($name)}]} {
 240                        set global_config($name) $default_config($name)
 241                }
 242                if {[catch {set v $repo_config($name)}]} {
 243                        set repo_config($name) $default_config($name)
 244                }
 245        }
 246}
 247
 248######################################################################
 249##
 250## handy utils
 251
 252proc git {args} {
 253        return [eval exec git $args]
 254}
 255
 256auto_load tk_optionMenu
 257rename tk_optionMenu real__tkOptionMenu
 258proc tk_optionMenu {w varName args} {
 259        set m [eval real__tkOptionMenu $w $varName $args]
 260        $m configure -font font_ui
 261        $w configure -font font_ui
 262        return $m
 263}
 264
 265######################################################################
 266##
 267## version check
 268
 269if {{--version} eq $argv || {version} eq $argv} {
 270        puts "git-gui version $appvers"
 271        exit
 272}
 273
 274set req_maj 1
 275set req_min 5
 276
 277if {[catch {set v [git --version]} err]} {
 278        catch {wm withdraw .}
 279        error_popup "Cannot determine Git version:
 280
 281$err
 282
 283[appname] requires Git $req_maj.$req_min or later."
 284        exit 1
 285}
 286if {[regexp {^git version (\d+)\.(\d+)} $v _junk act_maj act_min]} {
 287        if {$act_maj < $req_maj
 288                || ($act_maj == $req_maj && $act_min < $req_min)} {
 289                catch {wm withdraw .}
 290                error_popup "[appname] requires Git $req_maj.$req_min or later.
 291
 292You are using $v."
 293                exit 1
 294        }
 295} else {
 296        catch {wm withdraw .}
 297        error_popup "Cannot parse Git version string:\n\n$v"
 298        exit 1
 299}
 300unset -nocomplain v _junk act_maj act_min req_maj req_min
 301
 302######################################################################
 303##
 304## repository setup
 305
 306if {[catch {
 307                set _gitdir $env(GIT_DIR)
 308                set _prefix {}
 309                }]
 310        && [catch {
 311                set _gitdir [git rev-parse --git-dir]
 312                set _prefix [git rev-parse --show-prefix]
 313        } err]} {
 314        catch {wm withdraw .}
 315        error_popup "Cannot find the git directory:\n\n$err"
 316        exit 1
 317}
 318if {![file isdirectory $_gitdir] && [is_Cygwin]} {
 319        catch {set _gitdir [exec cygpath --unix $_gitdir]}
 320}
 321if {![file isdirectory $_gitdir]} {
 322        catch {wm withdraw .}
 323        error_popup "Git directory not found:\n\n$_gitdir"
 324        exit 1
 325}
 326if {[lindex [file split $_gitdir] end] ne {.git}} {
 327        catch {wm withdraw .}
 328        error_popup "Cannot use funny .git directory:\n\n$_gitdir"
 329        exit 1
 330}
 331if {[catch {cd [file dirname $_gitdir]} err]} {
 332        catch {wm withdraw .}
 333        error_popup "No working directory [file dirname $_gitdir]:\n\n$err"
 334        exit 1
 335}
 336set _reponame [lindex [file split \
 337        [file normalize [file dirname $_gitdir]]] \
 338        end]
 339
 340######################################################################
 341##
 342## global init
 343
 344set current_diff_path {}
 345set current_diff_side {}
 346set diff_actions [list]
 347set ui_status_value {Initializing...}
 348
 349set HEAD {}
 350set PARENT {}
 351set MERGE_HEAD [list]
 352set commit_type {}
 353set empty_tree {}
 354set current_branch {}
 355set current_diff_path {}
 356set selected_commit_type new
 357
 358######################################################################
 359##
 360## task management
 361
 362set rescan_active 0
 363set diff_active 0
 364set last_clicked {}
 365
 366set disable_on_lock [list]
 367set index_lock_type none
 368
 369proc lock_index {type} {
 370        global index_lock_type disable_on_lock
 371
 372        if {$index_lock_type eq {none}} {
 373                set index_lock_type $type
 374                foreach w $disable_on_lock {
 375                        uplevel #0 $w disabled
 376                }
 377                return 1
 378        } elseif {$index_lock_type eq "begin-$type"} {
 379                set index_lock_type $type
 380                return 1
 381        }
 382        return 0
 383}
 384
 385proc unlock_index {} {
 386        global index_lock_type disable_on_lock
 387
 388        set index_lock_type none
 389        foreach w $disable_on_lock {
 390                uplevel #0 $w normal
 391        }
 392}
 393
 394######################################################################
 395##
 396## status
 397
 398proc repository_state {ctvar hdvar mhvar} {
 399        global current_branch
 400        upvar $ctvar ct $hdvar hd $mhvar mh
 401
 402        set mh [list]
 403
 404        if {[catch {set current_branch [git symbolic-ref HEAD]}]} {
 405                set current_branch {}
 406        } else {
 407                regsub ^refs/((heads|tags|remotes)/)? \
 408                        $current_branch \
 409                        {} \
 410                        current_branch
 411        }
 412
 413        if {[catch {set hd [git rev-parse --verify HEAD]}]} {
 414                set hd {}
 415                set ct initial
 416                return
 417        }
 418
 419        set merge_head [gitdir MERGE_HEAD]
 420        if {[file exists $merge_head]} {
 421                set ct merge
 422                set fd_mh [open $merge_head r]
 423                while {[gets $fd_mh line] >= 0} {
 424                        lappend mh $line
 425                }
 426                close $fd_mh
 427                return
 428        }
 429
 430        set ct normal
 431}
 432
 433proc PARENT {} {
 434        global PARENT empty_tree
 435
 436        set p [lindex $PARENT 0]
 437        if {$p ne {}} {
 438                return $p
 439        }
 440        if {$empty_tree eq {}} {
 441                set empty_tree [git mktree << {}]
 442        }
 443        return $empty_tree
 444}
 445
 446proc rescan {after {honor_trustmtime 1}} {
 447        global HEAD PARENT MERGE_HEAD commit_type
 448        global ui_index ui_workdir ui_status_value ui_comm
 449        global rescan_active file_states
 450        global repo_config
 451
 452        if {$rescan_active > 0 || ![lock_index read]} return
 453
 454        repository_state newType newHEAD newMERGE_HEAD
 455        if {[string match amend* $commit_type]
 456                && $newType eq {normal}
 457                && $newHEAD eq $HEAD} {
 458        } else {
 459                set HEAD $newHEAD
 460                set PARENT $newHEAD
 461                set MERGE_HEAD $newMERGE_HEAD
 462                set commit_type $newType
 463        }
 464
 465        array unset file_states
 466
 467        if {![$ui_comm edit modified]
 468                || [string trim [$ui_comm get 0.0 end]] eq {}} {
 469                if {[load_message GITGUI_MSG]} {
 470                } elseif {[load_message MERGE_MSG]} {
 471                } elseif {[load_message SQUASH_MSG]} {
 472                }
 473                $ui_comm edit reset
 474                $ui_comm edit modified false
 475        }
 476
 477        if {[is_enabled branch]} {
 478                load_all_heads
 479                populate_branch_menu
 480        }
 481
 482        if {$honor_trustmtime && $repo_config(gui.trustmtime) eq {true}} {
 483                rescan_stage2 {} $after
 484        } else {
 485                set rescan_active 1
 486                set ui_status_value {Refreshing file status...}
 487                set cmd [list git update-index]
 488                lappend cmd -q
 489                lappend cmd --unmerged
 490                lappend cmd --ignore-missing
 491                lappend cmd --refresh
 492                set fd_rf [open "| $cmd" r]
 493                fconfigure $fd_rf -blocking 0 -translation binary
 494                fileevent $fd_rf readable \
 495                        [list rescan_stage2 $fd_rf $after]
 496        }
 497}
 498
 499proc rescan_stage2 {fd after} {
 500        global ui_status_value
 501        global rescan_active buf_rdi buf_rdf buf_rlo
 502
 503        if {$fd ne {}} {
 504                read $fd
 505                if {![eof $fd]} return
 506                close $fd
 507        }
 508
 509        set ls_others [list | git ls-files --others -z \
 510                --exclude-per-directory=.gitignore]
 511        set info_exclude [gitdir info exclude]
 512        if {[file readable $info_exclude]} {
 513                lappend ls_others "--exclude-from=$info_exclude"
 514        }
 515
 516        set buf_rdi {}
 517        set buf_rdf {}
 518        set buf_rlo {}
 519
 520        set rescan_active 3
 521        set ui_status_value {Scanning for modified files ...}
 522        set fd_di [open "| git diff-index --cached -z [PARENT]" r]
 523        set fd_df [open "| git diff-files -z" r]
 524        set fd_lo [open $ls_others r]
 525
 526        fconfigure $fd_di -blocking 0 -translation binary -encoding binary
 527        fconfigure $fd_df -blocking 0 -translation binary -encoding binary
 528        fconfigure $fd_lo -blocking 0 -translation binary -encoding binary
 529        fileevent $fd_di readable [list read_diff_index $fd_di $after]
 530        fileevent $fd_df readable [list read_diff_files $fd_df $after]
 531        fileevent $fd_lo readable [list read_ls_others $fd_lo $after]
 532}
 533
 534proc load_message {file} {
 535        global ui_comm
 536
 537        set f [gitdir $file]
 538        if {[file isfile $f]} {
 539                if {[catch {set fd [open $f r]}]} {
 540                        return 0
 541                }
 542                set content [string trim [read $fd]]
 543                close $fd
 544                regsub -all -line {[ \r\t]+$} $content {} content
 545                $ui_comm delete 0.0 end
 546                $ui_comm insert end $content
 547                return 1
 548        }
 549        return 0
 550}
 551
 552proc read_diff_index {fd after} {
 553        global buf_rdi
 554
 555        append buf_rdi [read $fd]
 556        set c 0
 557        set n [string length $buf_rdi]
 558        while {$c < $n} {
 559                set z1 [string first "\0" $buf_rdi $c]
 560                if {$z1 == -1} break
 561                incr z1
 562                set z2 [string first "\0" $buf_rdi $z1]
 563                if {$z2 == -1} break
 564
 565                incr c
 566                set i [split [string range $buf_rdi $c [expr {$z1 - 2}]] { }]
 567                set p [string range $buf_rdi $z1 [expr {$z2 - 1}]]
 568                merge_state \
 569                        [encoding convertfrom $p] \
 570                        [lindex $i 4]? \
 571                        [list [lindex $i 0] [lindex $i 2]] \
 572                        [list]
 573                set c $z2
 574                incr c
 575        }
 576        if {$c < $n} {
 577                set buf_rdi [string range $buf_rdi $c end]
 578        } else {
 579                set buf_rdi {}
 580        }
 581
 582        rescan_done $fd buf_rdi $after
 583}
 584
 585proc read_diff_files {fd after} {
 586        global buf_rdf
 587
 588        append buf_rdf [read $fd]
 589        set c 0
 590        set n [string length $buf_rdf]
 591        while {$c < $n} {
 592                set z1 [string first "\0" $buf_rdf $c]
 593                if {$z1 == -1} break
 594                incr z1
 595                set z2 [string first "\0" $buf_rdf $z1]
 596                if {$z2 == -1} break
 597
 598                incr c
 599                set i [split [string range $buf_rdf $c [expr {$z1 - 2}]] { }]
 600                set p [string range $buf_rdf $z1 [expr {$z2 - 1}]]
 601                merge_state \
 602                        [encoding convertfrom $p] \
 603                        ?[lindex $i 4] \
 604                        [list] \
 605                        [list [lindex $i 0] [lindex $i 2]]
 606                set c $z2
 607                incr c
 608        }
 609        if {$c < $n} {
 610                set buf_rdf [string range $buf_rdf $c end]
 611        } else {
 612                set buf_rdf {}
 613        }
 614
 615        rescan_done $fd buf_rdf $after
 616}
 617
 618proc read_ls_others {fd after} {
 619        global buf_rlo
 620
 621        append buf_rlo [read $fd]
 622        set pck [split $buf_rlo "\0"]
 623        set buf_rlo [lindex $pck end]
 624        foreach p [lrange $pck 0 end-1] {
 625                merge_state [encoding convertfrom $p] ?O
 626        }
 627        rescan_done $fd buf_rlo $after
 628}
 629
 630proc rescan_done {fd buf after} {
 631        global rescan_active current_diff_path
 632        global file_states repo_config
 633        upvar $buf to_clear
 634
 635        if {![eof $fd]} return
 636        set to_clear {}
 637        close $fd
 638        if {[incr rescan_active -1] > 0} return
 639
 640        prune_selection
 641        unlock_index
 642        display_all_files
 643        if {$current_diff_path ne {}} reshow_diff
 644        uplevel #0 $after
 645}
 646
 647proc prune_selection {} {
 648        global file_states selected_paths
 649
 650        foreach path [array names selected_paths] {
 651                if {[catch {set still_here $file_states($path)}]} {
 652                        unset selected_paths($path)
 653                }
 654        }
 655}
 656
 657######################################################################
 658##
 659## ui helpers
 660
 661proc mapicon {w state path} {
 662        global all_icons
 663
 664        if {[catch {set r $all_icons($state$w)}]} {
 665                puts "error: no icon for $w state={$state} $path"
 666                return file_plain
 667        }
 668        return $r
 669}
 670
 671proc mapdesc {state path} {
 672        global all_descs
 673
 674        if {[catch {set r $all_descs($state)}]} {
 675                puts "error: no desc for state={$state} $path"
 676                return $state
 677        }
 678        return $r
 679}
 680
 681proc escape_path {path} {
 682        regsub -all {\\} $path "\\\\" path
 683        regsub -all "\n" $path "\\n" path
 684        return $path
 685}
 686
 687proc short_path {path} {
 688        return [escape_path [lindex [file split $path] end]]
 689}
 690
 691set next_icon_id 0
 692set null_sha1 [string repeat 0 40]
 693
 694proc merge_state {path new_state {head_info {}} {index_info {}}} {
 695        global file_states next_icon_id null_sha1
 696
 697        set s0 [string index $new_state 0]
 698        set s1 [string index $new_state 1]
 699
 700        if {[catch {set info $file_states($path)}]} {
 701                set state __
 702                set icon n[incr next_icon_id]
 703        } else {
 704                set state [lindex $info 0]
 705                set icon [lindex $info 1]
 706                if {$head_info eq {}}  {set head_info  [lindex $info 2]}
 707                if {$index_info eq {}} {set index_info [lindex $info 3]}
 708        }
 709
 710        if     {$s0 eq {?}} {set s0 [string index $state 0]} \
 711        elseif {$s0 eq {_}} {set s0 _}
 712
 713        if     {$s1 eq {?}} {set s1 [string index $state 1]} \
 714        elseif {$s1 eq {_}} {set s1 _}
 715
 716        if {$s0 eq {A} && $s1 eq {_} && $head_info eq {}} {
 717                set head_info [list 0 $null_sha1]
 718        } elseif {$s0 ne {_} && [string index $state 0] eq {_}
 719                && $head_info eq {}} {
 720                set head_info $index_info
 721        }
 722
 723        set file_states($path) [list $s0$s1 $icon \
 724                $head_info $index_info \
 725                ]
 726        return $state
 727}
 728
 729proc display_file_helper {w path icon_name old_m new_m} {
 730        global file_lists
 731
 732        if {$new_m eq {_}} {
 733                set lno [lsearch -sorted -exact $file_lists($w) $path]
 734                if {$lno >= 0} {
 735                        set file_lists($w) [lreplace $file_lists($w) $lno $lno]
 736                        incr lno
 737                        $w conf -state normal
 738                        $w delete $lno.0 [expr {$lno + 1}].0
 739                        $w conf -state disabled
 740                }
 741        } elseif {$old_m eq {_} && $new_m ne {_}} {
 742                lappend file_lists($w) $path
 743                set file_lists($w) [lsort -unique $file_lists($w)]
 744                set lno [lsearch -sorted -exact $file_lists($w) $path]
 745                incr lno
 746                $w conf -state normal
 747                $w image create $lno.0 \
 748                        -align center -padx 5 -pady 1 \
 749                        -name $icon_name \
 750                        -image [mapicon $w $new_m $path]
 751                $w insert $lno.1 "[escape_path $path]\n"
 752                $w conf -state disabled
 753        } elseif {$old_m ne $new_m} {
 754                $w conf -state normal
 755                $w image conf $icon_name -image [mapicon $w $new_m $path]
 756                $w conf -state disabled
 757        }
 758}
 759
 760proc display_file {path state} {
 761        global file_states selected_paths
 762        global ui_index ui_workdir
 763
 764        set old_m [merge_state $path $state]
 765        set s $file_states($path)
 766        set new_m [lindex $s 0]
 767        set icon_name [lindex $s 1]
 768
 769        set o [string index $old_m 0]
 770        set n [string index $new_m 0]
 771        if {$o eq {U}} {
 772                set o _
 773        }
 774        if {$n eq {U}} {
 775                set n _
 776        }
 777        display_file_helper     $ui_index $path $icon_name $o $n
 778
 779        if {[string index $old_m 0] eq {U}} {
 780                set o U
 781        } else {
 782                set o [string index $old_m 1]
 783        }
 784        if {[string index $new_m 0] eq {U}} {
 785                set n U
 786        } else {
 787                set n [string index $new_m 1]
 788        }
 789        display_file_helper     $ui_workdir $path $icon_name $o $n
 790
 791        if {$new_m eq {__}} {
 792                unset file_states($path)
 793                catch {unset selected_paths($path)}
 794        }
 795}
 796
 797proc display_all_files_helper {w path icon_name m} {
 798        global file_lists
 799
 800        lappend file_lists($w) $path
 801        set lno [expr {[lindex [split [$w index end] .] 0] - 1}]
 802        $w image create end \
 803                -align center -padx 5 -pady 1 \
 804                -name $icon_name \
 805                -image [mapicon $w $m $path]
 806        $w insert end "[escape_path $path]\n"
 807}
 808
 809proc display_all_files {} {
 810        global ui_index ui_workdir
 811        global file_states file_lists
 812        global last_clicked
 813
 814        $ui_index conf -state normal
 815        $ui_workdir conf -state normal
 816
 817        $ui_index delete 0.0 end
 818        $ui_workdir delete 0.0 end
 819        set last_clicked {}
 820
 821        set file_lists($ui_index) [list]
 822        set file_lists($ui_workdir) [list]
 823
 824        foreach path [lsort [array names file_states]] {
 825                set s $file_states($path)
 826                set m [lindex $s 0]
 827                set icon_name [lindex $s 1]
 828
 829                set s [string index $m 0]
 830                if {$s ne {U} && $s ne {_}} {
 831                        display_all_files_helper $ui_index $path \
 832                                $icon_name $s
 833                }
 834
 835                if {[string index $m 0] eq {U}} {
 836                        set s U
 837                } else {
 838                        set s [string index $m 1]
 839                }
 840                if {$s ne {_}} {
 841                        display_all_files_helper $ui_workdir $path \
 842                                $icon_name $s
 843                }
 844        }
 845
 846        $ui_index conf -state disabled
 847        $ui_workdir conf -state disabled
 848}
 849
 850######################################################################
 851##
 852## icons
 853
 854set filemask {
 855#define mask_width 14
 856#define mask_height 15
 857static unsigned char mask_bits[] = {
 858   0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
 859   0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f,
 860   0xfe, 0x1f, 0xfe, 0x1f, 0xfe, 0x1f};
 861}
 862
 863image create bitmap file_plain -background white -foreground black -data {
 864#define plain_width 14
 865#define plain_height 15
 866static unsigned char plain_bits[] = {
 867   0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
 868   0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10, 0x02, 0x10,
 869   0x02, 0x10, 0x02, 0x10, 0xfe, 0x1f};
 870} -maskdata $filemask
 871
 872image create bitmap file_mod -background white -foreground blue -data {
 873#define mod_width 14
 874#define mod_height 15
 875static unsigned char mod_bits[] = {
 876   0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
 877   0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
 878   0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
 879} -maskdata $filemask
 880
 881image create bitmap file_fulltick -background white -foreground "#007000" -data {
 882#define file_fulltick_width 14
 883#define file_fulltick_height 15
 884static unsigned char file_fulltick_bits[] = {
 885   0xfe, 0x01, 0x02, 0x1a, 0x02, 0x0c, 0x02, 0x0c, 0x02, 0x16, 0x02, 0x16,
 886   0x02, 0x13, 0x00, 0x13, 0x86, 0x11, 0x8c, 0x11, 0xd8, 0x10, 0xf2, 0x10,
 887   0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
 888} -maskdata $filemask
 889
 890image create bitmap file_parttick -background white -foreground "#005050" -data {
 891#define parttick_width 14
 892#define parttick_height 15
 893static unsigned char parttick_bits[] = {
 894   0xfe, 0x01, 0x02, 0x03, 0x7a, 0x05, 0x02, 0x09, 0x7a, 0x1f, 0x02, 0x10,
 895   0x7a, 0x14, 0x02, 0x16, 0x02, 0x13, 0x8a, 0x11, 0xda, 0x10, 0x72, 0x10,
 896   0x22, 0x10, 0x02, 0x10, 0xfe, 0x1f};
 897} -maskdata $filemask
 898
 899image create bitmap file_question -background white -foreground black -data {
 900#define file_question_width 14
 901#define file_question_height 15
 902static unsigned char file_question_bits[] = {
 903   0xfe, 0x01, 0x02, 0x02, 0xe2, 0x04, 0xf2, 0x09, 0x1a, 0x1b, 0x0a, 0x13,
 904   0x82, 0x11, 0xc2, 0x10, 0x62, 0x10, 0x62, 0x10, 0x02, 0x10, 0x62, 0x10,
 905   0x62, 0x10, 0x02, 0x10, 0xfe, 0x1f};
 906} -maskdata $filemask
 907
 908image create bitmap file_removed -background white -foreground red -data {
 909#define file_removed_width 14
 910#define file_removed_height 15
 911static unsigned char file_removed_bits[] = {
 912   0xfe, 0x01, 0x02, 0x03, 0x02, 0x05, 0x02, 0x09, 0x02, 0x1f, 0x02, 0x10,
 913   0x1a, 0x16, 0x32, 0x13, 0xe2, 0x11, 0xc2, 0x10, 0xe2, 0x11, 0x32, 0x13,
 914   0x1a, 0x16, 0x02, 0x10, 0xfe, 0x1f};
 915} -maskdata $filemask
 916
 917image create bitmap file_merge -background white -foreground blue -data {
 918#define file_merge_width 14
 919#define file_merge_height 15
 920static unsigned char file_merge_bits[] = {
 921   0xfe, 0x01, 0x02, 0x03, 0x62, 0x05, 0x62, 0x09, 0x62, 0x1f, 0x62, 0x10,
 922   0xfa, 0x11, 0xf2, 0x10, 0x62, 0x10, 0x02, 0x10, 0xfa, 0x17, 0x02, 0x10,
 923   0xfa, 0x17, 0x02, 0x10, 0xfe, 0x1f};
 924} -maskdata $filemask
 925
 926set file_dir_data {
 927#define file_width 18
 928#define file_height 18
 929static unsigned char file_bits[] = {
 930  0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0xf8, 0x03, 0x00,
 931  0x0c, 0x03, 0x00, 0x04, 0xfe, 0x00, 0x06, 0x80, 0x00, 0xff, 0x9f, 0x00,
 932  0x03, 0x98, 0x00, 0x02, 0x90, 0x00, 0x06, 0xb0, 0x00, 0x04, 0xa0, 0x00,
 933  0x0c, 0xe0, 0x00, 0x08, 0xc0, 0x00, 0xf8, 0xff, 0x00, 0x00, 0x00, 0x00,
 934  0x00, 0x00, 0x00, 0x00, 0x00, 0x00};
 935}
 936image create bitmap file_dir -background white -foreground blue \
 937        -data $file_dir_data -maskdata $file_dir_data
 938unset file_dir_data
 939
 940set file_uplevel_data {
 941#define up_width 15
 942#define up_height 15
 943static unsigned char up_bits[] = {
 944  0x80, 0x00, 0xc0, 0x01, 0xe0, 0x03, 0xf0, 0x07, 0xf8, 0x0f, 0xfc, 0x1f,
 945  0xfe, 0x3f, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01, 0xc0, 0x01,
 946  0xc0, 0x01, 0xc0, 0x01, 0x00, 0x00};
 947}
 948image create bitmap file_uplevel -background white -foreground red \
 949        -data $file_uplevel_data -maskdata $file_uplevel_data
 950unset file_uplevel_data
 951
 952set ui_index .vpane.files.index.list
 953set ui_workdir .vpane.files.workdir.list
 954
 955set all_icons(_$ui_index)   file_plain
 956set all_icons(A$ui_index)   file_fulltick
 957set all_icons(M$ui_index)   file_fulltick
 958set all_icons(D$ui_index)   file_removed
 959set all_icons(U$ui_index)   file_merge
 960
 961set all_icons(_$ui_workdir) file_plain
 962set all_icons(M$ui_workdir) file_mod
 963set all_icons(D$ui_workdir) file_question
 964set all_icons(U$ui_workdir) file_merge
 965set all_icons(O$ui_workdir) file_plain
 966
 967set max_status_desc 0
 968foreach i {
 969                {__ "Unmodified"}
 970
 971                {_M "Modified, not staged"}
 972                {M_ "Staged for commit"}
 973                {MM "Portions staged for commit"}
 974                {MD "Staged for commit, missing"}
 975
 976                {_O "Untracked, not staged"}
 977                {A_ "Staged for commit"}
 978                {AM "Portions staged for commit"}
 979                {AD "Staged for commit, missing"}
 980
 981                {_D "Missing"}
 982                {D_ "Staged for removal"}
 983                {DO "Staged for removal, still present"}
 984
 985                {U_ "Requires merge resolution"}
 986                {UU "Requires merge resolution"}
 987                {UM "Requires merge resolution"}
 988                {UD "Requires merge resolution"}
 989        } {
 990        if {$max_status_desc < [string length [lindex $i 1]]} {
 991                set max_status_desc [string length [lindex $i 1]]
 992        }
 993        set all_descs([lindex $i 0]) [lindex $i 1]
 994}
 995unset i
 996
 997######################################################################
 998##
 999## util
1000
1001proc bind_button3 {w cmd} {
1002        bind $w <Any-Button-3> $cmd
1003        if {[is_MacOSX]} {
1004                bind $w <Control-Button-1> $cmd
1005        }
1006}
1007
1008proc scrollbar2many {list mode args} {
1009        foreach w $list {eval $w $mode $args}
1010}
1011
1012proc many2scrollbar {list mode sb top bottom} {
1013        $sb set $top $bottom
1014        foreach w $list {$w $mode moveto $top}
1015}
1016
1017proc incr_font_size {font {amt 1}} {
1018        set sz [font configure $font -size]
1019        incr sz $amt
1020        font configure $font -size $sz
1021        font configure ${font}bold -size $sz
1022}
1023
1024######################################################################
1025##
1026## ui commands
1027
1028set starting_gitk_msg {Starting gitk... please wait...}
1029
1030proc do_gitk {revs} {
1031        global env ui_status_value starting_gitk_msg
1032
1033        # -- Always start gitk through whatever we were loaded with.  This
1034        #    lets us bypass using shell process on Windows systems.
1035        #
1036        set cmd [list [info nameofexecutable]]
1037        lappend cmd [gitexec gitk]
1038        if {$revs ne {}} {
1039                append cmd { }
1040                append cmd $revs
1041        }
1042
1043        if {[catch {eval exec $cmd &} err]} {
1044                error_popup "Failed to start gitk:\n\n$err"
1045        } else {
1046                set ui_status_value $starting_gitk_msg
1047                after 10000 {
1048                        if {$ui_status_value eq $starting_gitk_msg} {
1049                                set ui_status_value {Ready.}
1050                        }
1051                }
1052        }
1053}
1054
1055set is_quitting 0
1056
1057proc do_quit {} {
1058        global ui_comm is_quitting repo_config commit_type
1059
1060        if {$is_quitting} return
1061        set is_quitting 1
1062
1063        if {[winfo exists $ui_comm]} {
1064                # -- Stash our current commit buffer.
1065                #
1066                set save [gitdir GITGUI_MSG]
1067                set msg [string trim [$ui_comm get 0.0 end]]
1068                regsub -all -line {[ \r\t]+$} $msg {} msg
1069                if {(![string match amend* $commit_type]
1070                        || [$ui_comm edit modified])
1071                        && $msg ne {}} {
1072                        catch {
1073                                set fd [open $save w]
1074                                puts -nonewline $fd $msg
1075                                close $fd
1076                        }
1077                } else {
1078                        catch {file delete $save}
1079                }
1080
1081                # -- Stash our current window geometry into this repository.
1082                #
1083                set cfg_geometry [list]
1084                lappend cfg_geometry [wm geometry .]
1085                lappend cfg_geometry [lindex [.vpane sash coord 0] 1]
1086                lappend cfg_geometry [lindex [.vpane.files sash coord 0] 0]
1087                if {[catch {set rc_geometry $repo_config(gui.geometry)}]} {
1088                        set rc_geometry {}
1089                }
1090                if {$cfg_geometry ne $rc_geometry} {
1091                        catch {git config gui.geometry $cfg_geometry}
1092                }
1093        }
1094
1095        destroy .
1096}
1097
1098proc do_rescan {} {
1099        rescan {set ui_status_value {Ready.}}
1100}
1101
1102proc do_commit {} {
1103        commit_tree
1104}
1105
1106proc toggle_or_diff {w x y} {
1107        global file_states file_lists current_diff_path ui_index ui_workdir
1108        global last_clicked selected_paths
1109
1110        set pos [split [$w index @$x,$y] .]
1111        set lno [lindex $pos 0]
1112        set col [lindex $pos 1]
1113        set path [lindex $file_lists($w) [expr {$lno - 1}]]
1114        if {$path eq {}} {
1115                set last_clicked {}
1116                return
1117        }
1118
1119        set last_clicked [list $w $lno]
1120        array unset selected_paths
1121        $ui_index tag remove in_sel 0.0 end
1122        $ui_workdir tag remove in_sel 0.0 end
1123
1124        if {$col == 0} {
1125                if {$current_diff_path eq $path} {
1126                        set after {reshow_diff;}
1127                } else {
1128                        set after {}
1129                }
1130                if {$w eq $ui_index} {
1131                        update_indexinfo \
1132                                "Unstaging [short_path $path] from commit" \
1133                                [list $path] \
1134                                [concat $after {set ui_status_value {Ready.}}]
1135                } elseif {$w eq $ui_workdir} {
1136                        update_index \
1137                                "Adding [short_path $path]" \
1138                                [list $path] \
1139                                [concat $after {set ui_status_value {Ready.}}]
1140                }
1141        } else {
1142                show_diff $path $w $lno
1143        }
1144}
1145
1146proc add_one_to_selection {w x y} {
1147        global file_lists last_clicked selected_paths
1148
1149        set lno [lindex [split [$w index @$x,$y] .] 0]
1150        set path [lindex $file_lists($w) [expr {$lno - 1}]]
1151        if {$path eq {}} {
1152                set last_clicked {}
1153                return
1154        }
1155
1156        if {$last_clicked ne {}
1157                && [lindex $last_clicked 0] ne $w} {
1158                array unset selected_paths
1159                [lindex $last_clicked 0] tag remove in_sel 0.0 end
1160        }
1161
1162        set last_clicked [list $w $lno]
1163        if {[catch {set in_sel $selected_paths($path)}]} {
1164                set in_sel 0
1165        }
1166        if {$in_sel} {
1167                unset selected_paths($path)
1168                $w tag remove in_sel $lno.0 [expr {$lno + 1}].0
1169        } else {
1170                set selected_paths($path) 1
1171                $w tag add in_sel $lno.0 [expr {$lno + 1}].0
1172        }
1173}
1174
1175proc add_range_to_selection {w x y} {
1176        global file_lists last_clicked selected_paths
1177
1178        if {[lindex $last_clicked 0] ne $w} {
1179                toggle_or_diff $w $x $y
1180                return
1181        }
1182
1183        set lno [lindex [split [$w index @$x,$y] .] 0]
1184        set lc [lindex $last_clicked 1]
1185        if {$lc < $lno} {
1186                set begin $lc
1187                set end $lno
1188        } else {
1189                set begin $lno
1190                set end $lc
1191        }
1192
1193        foreach path [lrange $file_lists($w) \
1194                [expr {$begin - 1}] \
1195                [expr {$end - 1}]] {
1196                set selected_paths($path) 1
1197        }
1198        $w tag add in_sel $begin.0 [expr {$end + 1}].0
1199}
1200
1201######################################################################
1202##
1203## config defaults
1204
1205set cursor_ptr arrow
1206font create font_diff -family Courier -size 10
1207font create font_ui
1208catch {
1209        label .dummy
1210        eval font configure font_ui [font actual [.dummy cget -font]]
1211        destroy .dummy
1212}
1213
1214font create font_uibold
1215font create font_diffbold
1216
1217foreach class {Button Checkbutton Entry Label
1218                Labelframe Listbox Menu Message
1219                Radiobutton Text} {
1220        option add *$class.font font_ui
1221}
1222unset class
1223
1224if {[is_Windows] || [is_MacOSX]} {
1225        option add *Menu.tearOff 0
1226}
1227
1228if {[is_MacOSX]} {
1229        set M1B M1
1230        set M1T Cmd
1231} else {
1232        set M1B Control
1233        set M1T Ctrl
1234}
1235
1236proc apply_config {} {
1237        global repo_config font_descs
1238
1239        foreach option $font_descs {
1240                set name [lindex $option 0]
1241                set font [lindex $option 1]
1242                if {[catch {
1243                        foreach {cn cv} $repo_config(gui.$name) {
1244                                font configure $font $cn $cv
1245                        }
1246                        } err]} {
1247                        error_popup "Invalid font specified in gui.$name:\n\n$err"
1248                }
1249                foreach {cn cv} [font configure $font] {
1250                        font configure ${font}bold $cn $cv
1251                }
1252                font configure ${font}bold -weight bold
1253        }
1254}
1255
1256set default_config(merge.summary) false
1257set default_config(merge.verbosity) 2
1258set default_config(user.name) {}
1259set default_config(user.email) {}
1260
1261set default_config(gui.pruneduringfetch) false
1262set default_config(gui.trustmtime) false
1263set default_config(gui.diffcontext) 5
1264set default_config(gui.newbranchtemplate) {}
1265set default_config(gui.fontui) [font configure font_ui]
1266set default_config(gui.fontdiff) [font configure font_diff]
1267set font_descs {
1268        {fontui   font_ui   {Main Font}}
1269        {fontdiff font_diff {Diff/Console Font}}
1270}
1271load_config 0
1272apply_config
1273
1274######################################################################
1275##
1276## feature option selection
1277
1278if {[regexp {^git-(.+)$} [appname] _junk subcommand]} {
1279        unset _junk
1280} else {
1281        set subcommand gui
1282}
1283if {$subcommand eq {gui.sh}} {
1284        set subcommand gui
1285}
1286if {$subcommand eq {gui} && [llength $argv] > 0} {
1287        set subcommand [lindex $argv 0]
1288        set argv [lrange $argv 1 end]
1289}
1290
1291enable_option multicommit
1292enable_option branch
1293enable_option transport
1294
1295switch -- $subcommand {
1296browser -
1297blame {
1298        disable_option multicommit
1299        disable_option branch
1300        disable_option transport
1301}
1302citool {
1303        enable_option singlecommit
1304
1305        disable_option multicommit
1306        disable_option branch
1307        disable_option transport
1308}
1309}
1310
1311######################################################################
1312##
1313## ui construction
1314
1315set ui_comm {}
1316
1317# -- Menu Bar
1318#
1319menu .mbar -tearoff 0
1320.mbar add cascade -label Repository -menu .mbar.repository
1321.mbar add cascade -label Edit -menu .mbar.edit
1322if {[is_enabled branch]} {
1323        .mbar add cascade -label Branch -menu .mbar.branch
1324}
1325if {[is_enabled multicommit] || [is_enabled singlecommit]} {
1326        .mbar add cascade -label Commit -menu .mbar.commit
1327}
1328if {[is_enabled transport]} {
1329        .mbar add cascade -label Merge -menu .mbar.merge
1330        .mbar add cascade -label Fetch -menu .mbar.fetch
1331        .mbar add cascade -label Push -menu .mbar.push
1332}
1333. configure -menu .mbar
1334
1335# -- Repository Menu
1336#
1337menu .mbar.repository
1338
1339.mbar.repository add command \
1340        -label {Browse Current Branch} \
1341        -command {browser::new $current_branch}
1342trace add variable current_branch write ".mbar.repository entryconf [.mbar.repository index last] -label \"Browse \$current_branch\" ;#"
1343.mbar.repository add separator
1344
1345.mbar.repository add command \
1346        -label {Visualize Current Branch} \
1347        -command {do_gitk $current_branch}
1348trace add variable current_branch write ".mbar.repository entryconf [.mbar.repository index last] -label \"Visualize \$current_branch\" ;#"
1349.mbar.repository add command \
1350        -label {Visualize All Branches} \
1351        -command {do_gitk --all}
1352.mbar.repository add separator
1353
1354if {[is_enabled multicommit]} {
1355        .mbar.repository add command -label {Database Statistics} \
1356                -command do_stats
1357
1358        .mbar.repository add command -label {Compress Database} \
1359                -command do_gc
1360
1361        .mbar.repository add command -label {Verify Database} \
1362                -command do_fsck_objects
1363
1364        .mbar.repository add separator
1365
1366        if {[is_Cygwin]} {
1367                .mbar.repository add command \
1368                        -label {Create Desktop Icon} \
1369                        -command do_cygwin_shortcut
1370        } elseif {[is_Windows]} {
1371                .mbar.repository add command \
1372                        -label {Create Desktop Icon} \
1373                        -command do_windows_shortcut
1374        } elseif {[is_MacOSX]} {
1375                .mbar.repository add command \
1376                        -label {Create Desktop Icon} \
1377                        -command do_macosx_app
1378        }
1379}
1380
1381.mbar.repository add command -label Quit \
1382        -command do_quit \
1383        -accelerator $M1T-Q
1384
1385# -- Edit Menu
1386#
1387menu .mbar.edit
1388.mbar.edit add command -label Undo \
1389        -command {catch {[focus] edit undo}} \
1390        -accelerator $M1T-Z
1391.mbar.edit add command -label Redo \
1392        -command {catch {[focus] edit redo}} \
1393        -accelerator $M1T-Y
1394.mbar.edit add separator
1395.mbar.edit add command -label Cut \
1396        -command {catch {tk_textCut [focus]}} \
1397        -accelerator $M1T-X
1398.mbar.edit add command -label Copy \
1399        -command {catch {tk_textCopy [focus]}} \
1400        -accelerator $M1T-C
1401.mbar.edit add command -label Paste \
1402        -command {catch {tk_textPaste [focus]; [focus] see insert}} \
1403        -accelerator $M1T-V
1404.mbar.edit add command -label Delete \
1405        -command {catch {[focus] delete sel.first sel.last}} \
1406        -accelerator Del
1407.mbar.edit add separator
1408.mbar.edit add command -label {Select All} \
1409        -command {catch {[focus] tag add sel 0.0 end}} \
1410        -accelerator $M1T-A
1411
1412# -- Branch Menu
1413#
1414if {[is_enabled branch]} {
1415        menu .mbar.branch
1416
1417        .mbar.branch add command -label {Create...} \
1418                -command do_create_branch \
1419                -accelerator $M1T-N
1420        lappend disable_on_lock [list .mbar.branch entryconf \
1421                [.mbar.branch index last] -state]
1422
1423        .mbar.branch add command -label {Delete...} \
1424                -command do_delete_branch
1425        lappend disable_on_lock [list .mbar.branch entryconf \
1426                [.mbar.branch index last] -state]
1427
1428        .mbar.branch add command -label {Reset...} \
1429                -command merge::reset_hard
1430        lappend disable_on_lock [list .mbar.branch entryconf \
1431                [.mbar.branch index last] -state]
1432}
1433
1434# -- Commit Menu
1435#
1436if {[is_enabled multicommit] || [is_enabled singlecommit]} {
1437        menu .mbar.commit
1438
1439        .mbar.commit add radiobutton \
1440                -label {New Commit} \
1441                -command do_select_commit_type \
1442                -variable selected_commit_type \
1443                -value new
1444        lappend disable_on_lock \
1445                [list .mbar.commit entryconf [.mbar.commit index last] -state]
1446
1447        .mbar.commit add radiobutton \
1448                -label {Amend Last Commit} \
1449                -command do_select_commit_type \
1450                -variable selected_commit_type \
1451                -value amend
1452        lappend disable_on_lock \
1453                [list .mbar.commit entryconf [.mbar.commit index last] -state]
1454
1455        .mbar.commit add separator
1456
1457        .mbar.commit add command -label Rescan \
1458                -command do_rescan \
1459                -accelerator F5
1460        lappend disable_on_lock \
1461                [list .mbar.commit entryconf [.mbar.commit index last] -state]
1462
1463        .mbar.commit add command -label {Add To Commit} \
1464                -command do_add_selection
1465        lappend disable_on_lock \
1466                [list .mbar.commit entryconf [.mbar.commit index last] -state]
1467
1468        .mbar.commit add command -label {Add Existing To Commit} \
1469                -command do_add_all \
1470                -accelerator $M1T-I
1471        lappend disable_on_lock \
1472                [list .mbar.commit entryconf [.mbar.commit index last] -state]
1473
1474        .mbar.commit add command -label {Unstage From Commit} \
1475                -command do_unstage_selection
1476        lappend disable_on_lock \
1477                [list .mbar.commit entryconf [.mbar.commit index last] -state]
1478
1479        .mbar.commit add command -label {Revert Changes} \
1480                -command do_revert_selection
1481        lappend disable_on_lock \
1482                [list .mbar.commit entryconf [.mbar.commit index last] -state]
1483
1484        .mbar.commit add separator
1485
1486        .mbar.commit add command -label {Sign Off} \
1487                -command do_signoff \
1488                -accelerator $M1T-S
1489
1490        .mbar.commit add command -label Commit \
1491                -command do_commit \
1492                -accelerator $M1T-Return
1493        lappend disable_on_lock \
1494                [list .mbar.commit entryconf [.mbar.commit index last] -state]
1495}
1496
1497# -- Merge Menu
1498#
1499if {[is_enabled branch]} {
1500        menu .mbar.merge
1501        .mbar.merge add command -label {Local Merge...} \
1502                -command merge::dialog
1503        lappend disable_on_lock \
1504                [list .mbar.merge entryconf [.mbar.merge index last] -state]
1505        .mbar.merge add command -label {Abort Merge...} \
1506                -command merge::reset_hard
1507        lappend disable_on_lock \
1508                [list .mbar.merge entryconf [.mbar.merge index last] -state]
1509
1510}
1511
1512# -- Transport Menu
1513#
1514if {[is_enabled transport]} {
1515        menu .mbar.fetch
1516
1517        menu .mbar.push
1518        .mbar.push add command -label {Push...} \
1519                -command do_push_anywhere
1520}
1521
1522if {[is_MacOSX]} {
1523        # -- Apple Menu (Mac OS X only)
1524        #
1525        .mbar add cascade -label Apple -menu .mbar.apple
1526        menu .mbar.apple
1527
1528        .mbar.apple add command -label "About [appname]" \
1529                -command do_about
1530        .mbar.apple add command -label "Options..." \
1531                -command do_options
1532} else {
1533        # -- Edit Menu
1534        #
1535        .mbar.edit add separator
1536        .mbar.edit add command -label {Options...} \
1537                -command do_options
1538
1539        # -- Tools Menu
1540        #
1541        if {[file exists /usr/local/miga/lib/gui-miga]
1542                && [file exists .pvcsrc]} {
1543        proc do_miga {} {
1544                global ui_status_value
1545                if {![lock_index update]} return
1546                set cmd [list sh --login -c "/usr/local/miga/lib/gui-miga \"[pwd]\""]
1547                set miga_fd [open "|$cmd" r]
1548                fconfigure $miga_fd -blocking 0
1549                fileevent $miga_fd readable [list miga_done $miga_fd]
1550                set ui_status_value {Running miga...}
1551        }
1552        proc miga_done {fd} {
1553                read $fd 512
1554                if {[eof $fd]} {
1555                        close $fd
1556                        unlock_index
1557                        rescan [list set ui_status_value {Ready.}]
1558                }
1559        }
1560        .mbar add cascade -label Tools -menu .mbar.tools
1561        menu .mbar.tools
1562        .mbar.tools add command -label "Migrate" \
1563                -command do_miga
1564        lappend disable_on_lock \
1565                [list .mbar.tools entryconf [.mbar.tools index last] -state]
1566        }
1567}
1568
1569# -- Help Menu
1570#
1571.mbar add cascade -label Help -menu .mbar.help
1572menu .mbar.help
1573
1574if {![is_MacOSX]} {
1575        .mbar.help add command -label "About [appname]" \
1576                -command do_about
1577}
1578
1579set browser {}
1580catch {set browser $repo_config(instaweb.browser)}
1581set doc_path [file dirname [gitexec]]
1582set doc_path [file join $doc_path Documentation index.html]
1583
1584if {[is_Cygwin]} {
1585        set doc_path [exec cygpath --mixed $doc_path]
1586}
1587
1588if {$browser eq {}} {
1589        if {[is_MacOSX]} {
1590                set browser open
1591        } elseif {[is_Cygwin]} {
1592                set program_files [file dirname [exec cygpath --windir]]
1593                set program_files [file join $program_files {Program Files}]
1594                set firefox [file join $program_files {Mozilla Firefox} firefox.exe]
1595                set ie [file join $program_files {Internet Explorer} IEXPLORE.EXE]
1596                if {[file exists $firefox]} {
1597                        set browser $firefox
1598                } elseif {[file exists $ie]} {
1599                        set browser $ie
1600                }
1601                unset program_files firefox ie
1602        }
1603}
1604
1605if {[file isfile $doc_path]} {
1606        set doc_url "file:$doc_path"
1607} else {
1608        set doc_url {http://www.kernel.org/pub/software/scm/git/docs/}
1609}
1610
1611if {$browser ne {}} {
1612        .mbar.help add command -label {Online Documentation} \
1613                -command [list exec $browser $doc_url &]
1614}
1615unset browser doc_path doc_url
1616
1617# -- Standard bindings
1618#
1619bind .   <Destroy> do_quit
1620bind all <$M1B-Key-q> do_quit
1621bind all <$M1B-Key-Q> do_quit
1622bind all <$M1B-Key-w> {destroy [winfo toplevel %W]}
1623bind all <$M1B-Key-W> {destroy [winfo toplevel %W]}
1624
1625set subcommand_args {}
1626proc usage {} {
1627        puts stderr "usage: $::argv0 $::subcommand $::subcommand_args"
1628        exit 1
1629}
1630
1631# -- Not a normal commit type invocation?  Do that instead!
1632#
1633switch -- $subcommand {
1634browser {
1635        set subcommand_args {rev?}
1636        switch [llength $argv] {
1637        0 {
1638                set current_branch [git symbolic-ref HEAD]
1639                regsub ^refs/((heads|tags|remotes)/)? \
1640                        $current_branch {} current_branch
1641        }
1642        1 {
1643                set current_branch [lindex $argv 0]
1644        }
1645        default usage
1646        }
1647        browser::new $current_branch
1648        return
1649}
1650blame {
1651        set subcommand_args {rev? path?}
1652        set head {}
1653        set path {}
1654        set is_path 0
1655        foreach a $argv {
1656                if {$is_path || [file exists $_prefix$a]} {
1657                        if {$path ne {}} usage
1658                        set path $_prefix$a
1659                        break
1660                } elseif {$a eq {--}} {
1661                        if {$path ne {}} {
1662                                if {$head ne {}} usage
1663                                set head $path
1664                                set path {}
1665                        }
1666                        set is_path 1
1667                } elseif {$head eq {}} {
1668                        if {$head ne {}} usage
1669                        set head $a
1670                } else {
1671                        usage
1672                }
1673        }
1674        unset is_path
1675
1676        if {$head eq {}} {
1677                set current_branch [git symbolic-ref HEAD]
1678                regsub ^refs/((heads|tags|remotes)/)? \
1679                        $current_branch {} current_branch
1680        } else {
1681                set current_branch $head
1682        }
1683
1684        if {$path eq {}} usage
1685        blame::new $head $path
1686        return
1687}
1688citool -
1689gui {
1690        if {[llength $argv] != 0} {
1691                puts -nonewline stderr "usage: $argv0"
1692                if {$subcommand ne {gui} && [appname] ne "git-$subcommand"} {
1693                        puts -nonewline stderr " $subcommand"
1694                }
1695                puts stderr {}
1696                exit 1
1697        }
1698        # fall through to setup UI for commits
1699}
1700default {
1701        puts stderr "usage: $argv0 \[{blame|browser|citool}\]"
1702        exit 1
1703}
1704}
1705
1706# -- Branch Control
1707#
1708frame .branch \
1709        -borderwidth 1 \
1710        -relief sunken
1711label .branch.l1 \
1712        -text {Current Branch:} \
1713        -anchor w \
1714        -justify left
1715label .branch.cb \
1716        -textvariable current_branch \
1717        -anchor w \
1718        -justify left
1719pack .branch.l1 -side left
1720pack .branch.cb -side left -fill x
1721pack .branch -side top -fill x
1722
1723# -- Main Window Layout
1724#
1725panedwindow .vpane -orient vertical
1726panedwindow .vpane.files -orient horizontal
1727.vpane add .vpane.files -sticky nsew -height 100 -width 200
1728pack .vpane -anchor n -side top -fill both -expand 1
1729
1730# -- Index File List
1731#
1732frame .vpane.files.index -height 100 -width 200
1733label .vpane.files.index.title -text {Staged Changes (Will Be Committed)} \
1734        -background green
1735text $ui_index -background white -borderwidth 0 \
1736        -width 20 -height 10 \
1737        -wrap none \
1738        -cursor $cursor_ptr \
1739        -xscrollcommand {.vpane.files.index.sx set} \
1740        -yscrollcommand {.vpane.files.index.sy set} \
1741        -state disabled
1742scrollbar .vpane.files.index.sx -orient h -command [list $ui_index xview]
1743scrollbar .vpane.files.index.sy -orient v -command [list $ui_index yview]
1744pack .vpane.files.index.title -side top -fill x
1745pack .vpane.files.index.sx -side bottom -fill x
1746pack .vpane.files.index.sy -side right -fill y
1747pack $ui_index -side left -fill both -expand 1
1748.vpane.files add .vpane.files.index -sticky nsew
1749
1750# -- Working Directory File List
1751#
1752frame .vpane.files.workdir -height 100 -width 200
1753label .vpane.files.workdir.title -text {Unstaged Changes (Will Not Be Committed)} \
1754        -background red
1755text $ui_workdir -background white -borderwidth 0 \
1756        -width 20 -height 10 \
1757        -wrap none \
1758        -cursor $cursor_ptr \
1759        -xscrollcommand {.vpane.files.workdir.sx set} \
1760        -yscrollcommand {.vpane.files.workdir.sy set} \
1761        -state disabled
1762scrollbar .vpane.files.workdir.sx -orient h -command [list $ui_workdir xview]
1763scrollbar .vpane.files.workdir.sy -orient v -command [list $ui_workdir yview]
1764pack .vpane.files.workdir.title -side top -fill x
1765pack .vpane.files.workdir.sx -side bottom -fill x
1766pack .vpane.files.workdir.sy -side right -fill y
1767pack $ui_workdir -side left -fill both -expand 1
1768.vpane.files add .vpane.files.workdir -sticky nsew
1769
1770foreach i [list $ui_index $ui_workdir] {
1771        $i tag conf in_diff -font font_uibold
1772        $i tag conf in_sel \
1773                -background [$i cget -foreground] \
1774                -foreground [$i cget -background]
1775}
1776unset i
1777
1778# -- Diff and Commit Area
1779#
1780frame .vpane.lower -height 300 -width 400
1781frame .vpane.lower.commarea
1782frame .vpane.lower.diff -relief sunken -borderwidth 1
1783pack .vpane.lower.commarea -side top -fill x
1784pack .vpane.lower.diff -side bottom -fill both -expand 1
1785.vpane add .vpane.lower -sticky nsew
1786
1787# -- Commit Area Buttons
1788#
1789frame .vpane.lower.commarea.buttons
1790label .vpane.lower.commarea.buttons.l -text {} \
1791        -anchor w \
1792        -justify left
1793pack .vpane.lower.commarea.buttons.l -side top -fill x
1794pack .vpane.lower.commarea.buttons -side left -fill y
1795
1796button .vpane.lower.commarea.buttons.rescan -text {Rescan} \
1797        -command do_rescan
1798pack .vpane.lower.commarea.buttons.rescan -side top -fill x
1799lappend disable_on_lock \
1800        {.vpane.lower.commarea.buttons.rescan conf -state}
1801
1802button .vpane.lower.commarea.buttons.incall -text {Add Existing} \
1803        -command do_add_all
1804pack .vpane.lower.commarea.buttons.incall -side top -fill x
1805lappend disable_on_lock \
1806        {.vpane.lower.commarea.buttons.incall conf -state}
1807
1808button .vpane.lower.commarea.buttons.signoff -text {Sign Off} \
1809        -command do_signoff
1810pack .vpane.lower.commarea.buttons.signoff -side top -fill x
1811
1812button .vpane.lower.commarea.buttons.commit -text {Commit} \
1813        -command do_commit
1814pack .vpane.lower.commarea.buttons.commit -side top -fill x
1815lappend disable_on_lock \
1816        {.vpane.lower.commarea.buttons.commit conf -state}
1817
1818# -- Commit Message Buffer
1819#
1820frame .vpane.lower.commarea.buffer
1821frame .vpane.lower.commarea.buffer.header
1822set ui_comm .vpane.lower.commarea.buffer.t
1823set ui_coml .vpane.lower.commarea.buffer.header.l
1824radiobutton .vpane.lower.commarea.buffer.header.new \
1825        -text {New Commit} \
1826        -command do_select_commit_type \
1827        -variable selected_commit_type \
1828        -value new
1829lappend disable_on_lock \
1830        [list .vpane.lower.commarea.buffer.header.new conf -state]
1831radiobutton .vpane.lower.commarea.buffer.header.amend \
1832        -text {Amend Last Commit} \
1833        -command do_select_commit_type \
1834        -variable selected_commit_type \
1835        -value amend
1836lappend disable_on_lock \
1837        [list .vpane.lower.commarea.buffer.header.amend conf -state]
1838label $ui_coml \
1839        -anchor w \
1840        -justify left
1841proc trace_commit_type {varname args} {
1842        global ui_coml commit_type
1843        switch -glob -- $commit_type {
1844        initial       {set txt {Initial Commit Message:}}
1845        amend         {set txt {Amended Commit Message:}}
1846        amend-initial {set txt {Amended Initial Commit Message:}}
1847        amend-merge   {set txt {Amended Merge Commit Message:}}
1848        merge         {set txt {Merge Commit Message:}}
1849        *             {set txt {Commit Message:}}
1850        }
1851        $ui_coml conf -text $txt
1852}
1853trace add variable commit_type write trace_commit_type
1854pack $ui_coml -side left -fill x
1855pack .vpane.lower.commarea.buffer.header.amend -side right
1856pack .vpane.lower.commarea.buffer.header.new -side right
1857
1858text $ui_comm -background white -borderwidth 1 \
1859        -undo true \
1860        -maxundo 20 \
1861        -autoseparators true \
1862        -relief sunken \
1863        -width 75 -height 9 -wrap none \
1864        -font font_diff \
1865        -yscrollcommand {.vpane.lower.commarea.buffer.sby set}
1866scrollbar .vpane.lower.commarea.buffer.sby \
1867        -command [list $ui_comm yview]
1868pack .vpane.lower.commarea.buffer.header -side top -fill x
1869pack .vpane.lower.commarea.buffer.sby -side right -fill y
1870pack $ui_comm -side left -fill y
1871pack .vpane.lower.commarea.buffer -side left -fill y
1872
1873# -- Commit Message Buffer Context Menu
1874#
1875set ctxm .vpane.lower.commarea.buffer.ctxm
1876menu $ctxm -tearoff 0
1877$ctxm add command \
1878        -label {Cut} \
1879        -command {tk_textCut $ui_comm}
1880$ctxm add command \
1881        -label {Copy} \
1882        -command {tk_textCopy $ui_comm}
1883$ctxm add command \
1884        -label {Paste} \
1885        -command {tk_textPaste $ui_comm}
1886$ctxm add command \
1887        -label {Delete} \
1888        -command {$ui_comm delete sel.first sel.last}
1889$ctxm add separator
1890$ctxm add command \
1891        -label {Select All} \
1892        -command {focus $ui_comm;$ui_comm tag add sel 0.0 end}
1893$ctxm add command \
1894        -label {Copy All} \
1895        -command {
1896                $ui_comm tag add sel 0.0 end
1897                tk_textCopy $ui_comm
1898                $ui_comm tag remove sel 0.0 end
1899        }
1900$ctxm add separator
1901$ctxm add command \
1902        -label {Sign Off} \
1903        -command do_signoff
1904bind_button3 $ui_comm "tk_popup $ctxm %X %Y"
1905
1906# -- Diff Header
1907#
1908proc trace_current_diff_path {varname args} {
1909        global current_diff_path diff_actions file_states
1910        if {$current_diff_path eq {}} {
1911                set s {}
1912                set f {}
1913                set p {}
1914                set o disabled
1915        } else {
1916                set p $current_diff_path
1917                set s [mapdesc [lindex $file_states($p) 0] $p]
1918                set f {File:}
1919                set p [escape_path $p]
1920                set o normal
1921        }
1922
1923        .vpane.lower.diff.header.status configure -text $s
1924        .vpane.lower.diff.header.file configure -text $f
1925        .vpane.lower.diff.header.path configure -text $p
1926        foreach w $diff_actions {
1927                uplevel #0 $w $o
1928        }
1929}
1930trace add variable current_diff_path write trace_current_diff_path
1931
1932frame .vpane.lower.diff.header -background orange
1933label .vpane.lower.diff.header.status \
1934        -background orange \
1935        -width $max_status_desc \
1936        -anchor w \
1937        -justify left
1938label .vpane.lower.diff.header.file \
1939        -background orange \
1940        -anchor w \
1941        -justify left
1942label .vpane.lower.diff.header.path \
1943        -background orange \
1944        -anchor w \
1945        -justify left
1946pack .vpane.lower.diff.header.status -side left
1947pack .vpane.lower.diff.header.file -side left
1948pack .vpane.lower.diff.header.path -fill x
1949set ctxm .vpane.lower.diff.header.ctxm
1950menu $ctxm -tearoff 0
1951$ctxm add command \
1952        -label {Copy} \
1953        -command {
1954                clipboard clear
1955                clipboard append \
1956                        -format STRING \
1957                        -type STRING \
1958                        -- $current_diff_path
1959        }
1960lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
1961bind_button3 .vpane.lower.diff.header.path "tk_popup $ctxm %X %Y"
1962
1963# -- Diff Body
1964#
1965frame .vpane.lower.diff.body
1966set ui_diff .vpane.lower.diff.body.t
1967text $ui_diff -background white -borderwidth 0 \
1968        -width 80 -height 15 -wrap none \
1969        -font font_diff \
1970        -xscrollcommand {.vpane.lower.diff.body.sbx set} \
1971        -yscrollcommand {.vpane.lower.diff.body.sby set} \
1972        -state disabled
1973scrollbar .vpane.lower.diff.body.sbx -orient horizontal \
1974        -command [list $ui_diff xview]
1975scrollbar .vpane.lower.diff.body.sby -orient vertical \
1976        -command [list $ui_diff yview]
1977pack .vpane.lower.diff.body.sbx -side bottom -fill x
1978pack .vpane.lower.diff.body.sby -side right -fill y
1979pack $ui_diff -side left -fill both -expand 1
1980pack .vpane.lower.diff.header -side top -fill x
1981pack .vpane.lower.diff.body -side bottom -fill both -expand 1
1982
1983$ui_diff tag conf d_cr -elide true
1984$ui_diff tag conf d_@ -foreground blue -font font_diffbold
1985$ui_diff tag conf d_+ -foreground {#00a000}
1986$ui_diff tag conf d_- -foreground red
1987
1988$ui_diff tag conf d_++ -foreground {#00a000}
1989$ui_diff tag conf d_-- -foreground red
1990$ui_diff tag conf d_+s \
1991        -foreground {#00a000} \
1992        -background {#e2effa}
1993$ui_diff tag conf d_-s \
1994        -foreground red \
1995        -background {#e2effa}
1996$ui_diff tag conf d_s+ \
1997        -foreground {#00a000} \
1998        -background ivory1
1999$ui_diff tag conf d_s- \
2000        -foreground red \
2001        -background ivory1
2002
2003$ui_diff tag conf d<<<<<<< \
2004        -foreground orange \
2005        -font font_diffbold
2006$ui_diff tag conf d======= \
2007        -foreground orange \
2008        -font font_diffbold
2009$ui_diff tag conf d>>>>>>> \
2010        -foreground orange \
2011        -font font_diffbold
2012
2013$ui_diff tag raise sel
2014
2015# -- Diff Body Context Menu
2016#
2017set ctxm .vpane.lower.diff.body.ctxm
2018menu $ctxm -tearoff 0
2019$ctxm add command \
2020        -label {Refresh} \
2021        -command reshow_diff
2022lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2023$ctxm add command \
2024        -label {Copy} \
2025        -command {tk_textCopy $ui_diff}
2026lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2027$ctxm add command \
2028        -label {Select All} \
2029        -command {focus $ui_diff;$ui_diff tag add sel 0.0 end}
2030lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2031$ctxm add command \
2032        -label {Copy All} \
2033        -command {
2034                $ui_diff tag add sel 0.0 end
2035                tk_textCopy $ui_diff
2036                $ui_diff tag remove sel 0.0 end
2037        }
2038lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2039$ctxm add separator
2040$ctxm add command \
2041        -label {Apply/Reverse Hunk} \
2042        -command {apply_hunk $cursorX $cursorY}
2043set ui_diff_applyhunk [$ctxm index last]
2044lappend diff_actions [list $ctxm entryconf $ui_diff_applyhunk -state]
2045$ctxm add separator
2046$ctxm add command \
2047        -label {Decrease Font Size} \
2048        -command {incr_font_size font_diff -1}
2049lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2050$ctxm add command \
2051        -label {Increase Font Size} \
2052        -command {incr_font_size font_diff 1}
2053lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2054$ctxm add separator
2055$ctxm add command \
2056        -label {Show Less Context} \
2057        -command {if {$repo_config(gui.diffcontext) >= 2} {
2058                incr repo_config(gui.diffcontext) -1
2059                reshow_diff
2060        }}
2061lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2062$ctxm add command \
2063        -label {Show More Context} \
2064        -command {
2065                incr repo_config(gui.diffcontext)
2066                reshow_diff
2067        }
2068lappend diff_actions [list $ctxm entryconf [$ctxm index last] -state]
2069$ctxm add separator
2070$ctxm add command -label {Options...} \
2071        -command do_options
2072bind_button3 $ui_diff "
2073        set cursorX %x
2074        set cursorY %y
2075        if {\$ui_index eq \$current_diff_side} {
2076                $ctxm entryconf $ui_diff_applyhunk -label {Unstage Hunk From Commit}
2077        } else {
2078                $ctxm entryconf $ui_diff_applyhunk -label {Stage Hunk For Commit}
2079        }
2080        tk_popup $ctxm %X %Y
2081"
2082unset ui_diff_applyhunk
2083
2084# -- Status Bar
2085#
2086label .status -textvariable ui_status_value \
2087        -anchor w \
2088        -justify left \
2089        -borderwidth 1 \
2090        -relief sunken
2091pack .status -anchor w -side bottom -fill x
2092
2093# -- Load geometry
2094#
2095catch {
2096set gm $repo_config(gui.geometry)
2097wm geometry . [lindex $gm 0]
2098.vpane sash place 0 \
2099        [lindex [.vpane sash coord 0] 0] \
2100        [lindex $gm 1]
2101.vpane.files sash place 0 \
2102        [lindex $gm 2] \
2103        [lindex [.vpane.files sash coord 0] 1]
2104unset gm
2105}
2106
2107# -- Key Bindings
2108#
2109bind $ui_comm <$M1B-Key-Return> {do_commit;break}
2110bind $ui_comm <$M1B-Key-i> {do_add_all;break}
2111bind $ui_comm <$M1B-Key-I> {do_add_all;break}
2112bind $ui_comm <$M1B-Key-x> {tk_textCut %W;break}
2113bind $ui_comm <$M1B-Key-X> {tk_textCut %W;break}
2114bind $ui_comm <$M1B-Key-c> {tk_textCopy %W;break}
2115bind $ui_comm <$M1B-Key-C> {tk_textCopy %W;break}
2116bind $ui_comm <$M1B-Key-v> {tk_textPaste %W; %W see insert; break}
2117bind $ui_comm <$M1B-Key-V> {tk_textPaste %W; %W see insert; break}
2118bind $ui_comm <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2119bind $ui_comm <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2120
2121bind $ui_diff <$M1B-Key-x> {tk_textCopy %W;break}
2122bind $ui_diff <$M1B-Key-X> {tk_textCopy %W;break}
2123bind $ui_diff <$M1B-Key-c> {tk_textCopy %W;break}
2124bind $ui_diff <$M1B-Key-C> {tk_textCopy %W;break}
2125bind $ui_diff <$M1B-Key-v> {break}
2126bind $ui_diff <$M1B-Key-V> {break}
2127bind $ui_diff <$M1B-Key-a> {%W tag add sel 0.0 end;break}
2128bind $ui_diff <$M1B-Key-A> {%W tag add sel 0.0 end;break}
2129bind $ui_diff <Key-Up>     {catch {%W yview scroll -1 units};break}
2130bind $ui_diff <Key-Down>   {catch {%W yview scroll  1 units};break}
2131bind $ui_diff <Key-Left>   {catch {%W xview scroll -1 units};break}
2132bind $ui_diff <Key-Right>  {catch {%W xview scroll  1 units};break}
2133bind $ui_diff <Key-k>         {catch {%W yview scroll -1 units};break}
2134bind $ui_diff <Key-j>         {catch {%W yview scroll  1 units};break}
2135bind $ui_diff <Key-h>         {catch {%W xview scroll -1 units};break}
2136bind $ui_diff <Key-l>         {catch {%W xview scroll  1 units};break}
2137bind $ui_diff <Control-Key-b> {catch {%W yview scroll -1 pages};break}
2138bind $ui_diff <Control-Key-f> {catch {%W yview scroll  1 pages};break}
2139bind $ui_diff <Button-1>   {focus %W}
2140
2141if {[is_enabled branch]} {
2142        bind . <$M1B-Key-n> do_create_branch
2143        bind . <$M1B-Key-N> do_create_branch
2144}
2145
2146bind all <Key-F5> do_rescan
2147bind all <$M1B-Key-r> do_rescan
2148bind all <$M1B-Key-R> do_rescan
2149bind .   <$M1B-Key-s> do_signoff
2150bind .   <$M1B-Key-S> do_signoff
2151bind .   <$M1B-Key-i> do_add_all
2152bind .   <$M1B-Key-I> do_add_all
2153bind .   <$M1B-Key-Return> do_commit
2154foreach i [list $ui_index $ui_workdir] {
2155        bind $i <Button-1>       "toggle_or_diff         $i %x %y; break"
2156        bind $i <$M1B-Button-1>  "add_one_to_selection   $i %x %y; break"
2157        bind $i <Shift-Button-1> "add_range_to_selection $i %x %y; break"
2158}
2159unset i
2160
2161set file_lists($ui_index) [list]
2162set file_lists($ui_workdir) [list]
2163
2164wm title . "[appname] ([reponame]) [file normalize [file dirname [gitdir]]]"
2165focus -force $ui_comm
2166
2167# -- Warn the user about environmental problems.  Cygwin's Tcl
2168#    does *not* pass its env array onto any processes it spawns.
2169#    This means that git processes get none of our environment.
2170#
2171if {[is_Cygwin]} {
2172        set ignored_env 0
2173        set suggest_user {}
2174        set msg "Possible environment issues exist.
2175
2176The following environment variables are probably
2177going to be ignored by any Git subprocess run
2178by [appname]:
2179
2180"
2181        foreach name [array names env] {
2182                switch -regexp -- $name {
2183                {^GIT_INDEX_FILE$} -
2184                {^GIT_OBJECT_DIRECTORY$} -
2185                {^GIT_ALTERNATE_OBJECT_DIRECTORIES$} -
2186                {^GIT_DIFF_OPTS$} -
2187                {^GIT_EXTERNAL_DIFF$} -
2188                {^GIT_PAGER$} -
2189                {^GIT_TRACE$} -
2190                {^GIT_CONFIG$} -
2191                {^GIT_CONFIG_LOCAL$} -
2192                {^GIT_(AUTHOR|COMMITTER)_DATE$} {
2193                        append msg " - $name\n"
2194                        incr ignored_env
2195                }
2196                {^GIT_(AUTHOR|COMMITTER)_(NAME|EMAIL)$} {
2197                        append msg " - $name\n"
2198                        incr ignored_env
2199                        set suggest_user $name
2200                }
2201                }
2202        }
2203        if {$ignored_env > 0} {
2204                append msg "
2205This is due to a known issue with the
2206Tcl binary distributed by Cygwin."
2207
2208                if {$suggest_user ne {}} {
2209                        append msg "
2210
2211A good replacement for $suggest_user
2212is placing values for the user.name and
2213user.email settings into your personal
2214~/.gitconfig file.
2215"
2216                }
2217                warn_popup $msg
2218        }
2219        unset ignored_env msg suggest_user name
2220}
2221
2222# -- Only initialize complex UI if we are going to stay running.
2223#
2224if {[is_enabled transport]} {
2225        load_all_remotes
2226        load_all_heads
2227
2228        populate_branch_menu
2229        populate_fetch_menu
2230        populate_push_menu
2231}
2232
2233# -- Only suggest a gc run if we are going to stay running.
2234#
2235if {[is_enabled multicommit]} {
2236        set object_limit 2000
2237        if {[is_Windows]} {set object_limit 200}
2238        regexp {^([0-9]+) objects,} [git count-objects] _junk objects_current
2239        if {$objects_current >= $object_limit} {
2240                if {[ask_popup \
2241                        "This repository currently has $objects_current loose objects.
2242
2243To maintain optimal performance it is strongly recommended that you compress the database when more than $object_limit loose objects exist.
2244
2245Compress the database now?"] eq yes} {
2246                        do_gc
2247                }
2248        }
2249        unset object_limit _junk objects_current
2250}
2251
2252lock_index begin-read
2253after 1 do_rescan