>From 1829aa454f8aad89fca460b0f3f86ecda6ca8556 Mon Sep 17 00:00:00 2001 From: Barry Roberts Date: Tue, 6 May 2008 11:31:52 -0600 Subject: [PATCH] Add a simple "git pull" to the menu. --- git-gui/git-gui.sh | 3 +++ git-gui/lib/transport.tcl | 9 +++++++++ 2 files changed, 12 insertions(+), 0 deletions(-) diff --git a/git-gui/git-gui.sh b/git-gui/git-gui.sh index 7c25bb9..49c8580 100755 --- a/git-gui/git-gui.sh +++ b/git-gui/git-gui.sh @@ -2110,6 +2110,9 @@ if {[is_enabled transport]} { .mbar.remote add command \ -label [mc "Delete..."] \ -command remote_branch_delete::dialog + .mbar.remote add command \ + -label [mc "Pull..."] \ + -command do_pull } if {[is_MacOSX]} { diff --git a/git-gui/lib/transport.tcl b/git-gui/lib/transport.tcl index 8e6a9d0..30f1015 100644 --- a/git-gui/lib/transport.tcl +++ b/git-gui/lib/transport.tcl @@ -182,3 +182,12 @@ proc do_push_anywhere {} { wm title $w [append "[appname] ([reponame]): " [mc "Push"]] tkwait window $w } + +proc do_pull {} { + set w [console::new \ + [mc "pull "] \ + [mc "Pulling changes from default"]] + set cmd [list git pull] + lappend cmd -v + console::exec $w $cmd +} -- 1.5.5.1.116.ge4b9c