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