git-gui.sh

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