summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: bb1ad51)
raw | patch | inline | side by side (parent: bb1ad51)
author | Shawn O. Pearce <spearce@spearce.org> | |
Sat, 25 Nov 2006 08:38:39 +0000 (03:38 -0500) | ||
committer | Shawn O. Pearce <spearce@spearce.org> | |
Sat, 25 Nov 2006 08:38:39 +0000 (03:38 -0500) |
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
git-gui | patch | blob | history |
index 6035105f8e54d806a627529aa8a6363605819e11..f52dd522c100101cd57f8f5b79a3a5f90712b12b 100755 (executable)
--- a/git-gui
+++ b/git-gui
-font font_ui
}
}
+
.mbar.repository add command -label Quit \
-command do_quit \
-accelerator $M1T-Q \
-accelerator $M1T-A \
-font font_ui
+# -- Branch Menu
+#
if {!$single_commit} {
- # -- Branch Menu
- #
menu .mbar.branch
.mbar.branch add command -label {Create...} \
wm title . "$appname ([file normalize [file dirname $gitdir]])"
focus -force $ui_comm
-# -- Warn the user about environmental problems.
-# Cygwin's Tcl does *not* pass its env array
-# onto any processes it spawns. This means
-# that the git processes get none of our
-# environment. That may not work...
+# -- Warn the user about environmental problems. Cygwin's Tcl
+# does *not* pass its env array onto any processes it spawns.
+# This means that git processes get none of our environment.
#
if {[is_Windows]} {
set ignored_env 0
unset ignored_env msg suggest_user name
}
+# -- Only initialize complex UI if we are going to stay running.
+#
if {!$single_commit} {
load_all_remotes
load_all_heads
+
populate_branch_menu .mbar.branch
populate_fetch_menu .mbar.fetch
populate_pull_menu .mbar.pull
populate_push_menu .mbar.push
}
+
lock_index begin-read
after 1 do_rescan