* [PATCH] gitk: add option to perform 'git fetch' command
@ 2021-01-22 15:16 Vladimir Chigarev via GitGitGadget
2021-04-07 19:43 ` Johannes Schindelin
0 siblings, 1 reply; 3+ messages in thread
From: Vladimir Chigarev via GitGitGadget @ 2021-01-22 15:16 UTC (permalink / raw)
To: git; +Cc: Vladimir Chigarev, Vladimir Chigarev
From: Vladimir Chigarev <chiga17@mail.ru>
There wasn't ability to perform 'git fetch' from gitk tool.
Add 'Fetch' option to 'File' menu.
Bind it to 'F7' key.
Signed-off-by: Vladimir Chigarev <chiga17@mail.ru>
---
gitk: add option to perform 'git fetch' command
There wasn't ability to perform 'git fetch' from gitk tool. Add 'Fetch'
option to 'File' menu. Bind it to 'F7' key.
Published-As: https://github.com/gitgitgadget/git/releases/tag/pr-git-872%2Fchiga17%2Fgitk-fetch-option-v1
Fetch-It-Via: git fetch https://github.com/gitgitgadget/git pr-git-872/chiga17/gitk-fetch-option-v1
Pull-Request: https://github.com/git/git/pull/872
gitk-git/gitk | 31 +++++++++++++++++++++++++++++++
1 file changed, 31 insertions(+)
diff --git a/gitk-git/gitk b/gitk-git/gitk
index 23d9dd1fe0d..1756385886f 100755
--- a/gitk-git/gitk
+++ b/gitk-git/gitk
@@ -499,6 +499,34 @@ proc getcommits {selid} {
}
}
+proc fetch {} {
+ global bgcolor NS fetch_output
+
+ set fetch_output {}
+ if {[catch {exec sh -c "git fetch -v 2>&1"} fetch_output]} {
+ }
+
+ set w .about
+ if {[winfo exists $w]} {
+ raise $w
+ return
+ }
+ ttk_toplevel $w
+ wm title $w [mc "Fetch"]
+ make_transient $w .
+ message $w.m -text [mc " $fetch_output "] \
+ -justify left -aspect 600 -border 2 -bg $bgcolor -relief groove
+ pack $w.m -side top -fill x -padx 2 -pady 2
+ ${NS}::button $w.ok -text [mc "Close"] -command "destroy $w" -default active
+ pack $w.ok -side bottom
+ bind $w <Visibility> "focus $w.ok"
+ bind $w <Key-Escape> "destroy $w"
+ bind $w <Key-Return> "destroy $w"
+ tk::PlaceWindow $w widget .
+
+ reloadcommits
+}
+
proc updatecommits {} {
global curview vcanopt vorigargs vfilelimit viewinstances
global viewactive viewcomplete tclencoding
@@ -2089,6 +2117,7 @@ proc makewindow {} {
mc "&File" cascade {
{mc "&Update" command updatecommits -accelerator F5}
{mc "&Reload" command reloadcommits -accelerator Shift-F5}
+ {mc "&Fetch" command fetch -accelerator F7}
{mc "Reread re&ferences" command rereadrefs}
{mc "&List references" command showrefs -accelerator F2}
{xx "" separator}
@@ -2609,6 +2638,7 @@ proc makewindow {} {
bindkey f nextfile
bind . <F5> updatecommits
bindmodfunctionkey Shift 5 reloadcommits
+ bind . <F7> fetch
bind . <F2> showrefs
bindmodfunctionkey Shift 4 {newview 0}
bind . <F4> edit_or_newview
@@ -3125,6 +3155,7 @@ proc keys {} {
[mc "<%s-KP-> Decrease font size" $M1T]
[mc "<%s-minus> Decrease font size" $M1T]
[mc "<F5> Update"]
+[mc "<F7> Fetch"]
" \
-justify left -bg $bgcolor -border 2 -relief groove
pack $w.m -side top -fill both -padx 2 -pady 2
base-commit: 72c4083ddf91b489b7b7b812df67ee8842177d98
--
gitgitgadget
^ permalink raw reply related [flat|nested] 3+ messages in thread
* Re: [PATCH] gitk: add option to perform 'git fetch' command
2021-01-22 15:16 [PATCH] gitk: add option to perform 'git fetch' command Vladimir Chigarev via GitGitGadget
@ 2021-04-07 19:43 ` Johannes Schindelin
[not found] ` <CAGyQznWL_X+-2jyfJCOkTGsp5Ucd3aomQ0Rf5W4nSo8sEz9d5Q@mail.gmail.com>
0 siblings, 1 reply; 3+ messages in thread
From: Johannes Schindelin @ 2021-04-07 19:43 UTC (permalink / raw)
To: Paul Mackerras, Vladimir Chigarev via GitGitGadget
Cc: git, Vladimir Chigarev, Vladimir Chigarev
[Cc:ing Paul, the gitk maintainer]
Paul, this patch has been stuck on the Git mailing list for a few months.
Could I ask you whether there is a chance that you could review it?
Thanks,
Johannes
On Fri, 22 Jan 2021, Vladimir Chigarev via GitGitGadget wrote:
> From: Vladimir Chigarev <chiga17@mail.ru>
>
> There wasn't ability to perform 'git fetch' from gitk tool.
> Add 'Fetch' option to 'File' menu.
> Bind it to 'F7' key.
>
> Signed-off-by: Vladimir Chigarev <chiga17@mail.ru>
> ---
> gitk: add option to perform 'git fetch' command
>
> There wasn't ability to perform 'git fetch' from gitk tool. Add 'Fetch'
> option to 'File' menu. Bind it to 'F7' key.
>
> Published-As: https://github.com/gitgitgadget/git/releases/tag/pr-git-872%2Fchiga17%2Fgitk-fetch-option-v1
> Fetch-It-Via: git fetch https://github.com/gitgitgadget/git pr-git-872/chiga17/gitk-fetch-option-v1
> Pull-Request: https://github.com/git/git/pull/872
>
> gitk-git/gitk | 31 +++++++++++++++++++++++++++++++
> 1 file changed, 31 insertions(+)
>
> diff --git a/gitk-git/gitk b/gitk-git/gitk
> index 23d9dd1fe0d..1756385886f 100755
> --- a/gitk-git/gitk
> +++ b/gitk-git/gitk
> @@ -499,6 +499,34 @@ proc getcommits {selid} {
> }
> }
>
> +proc fetch {} {
> + global bgcolor NS fetch_output
> +
> + set fetch_output {}
> + if {[catch {exec sh -c "git fetch -v 2>&1"} fetch_output]} {
> + }
> +
> + set w .about
> + if {[winfo exists $w]} {
> + raise $w
> + return
> + }
> + ttk_toplevel $w
> + wm title $w [mc "Fetch"]
> + make_transient $w .
> + message $w.m -text [mc " $fetch_output "] \
> + -justify left -aspect 600 -border 2 -bg $bgcolor -relief groove
> + pack $w.m -side top -fill x -padx 2 -pady 2
> + ${NS}::button $w.ok -text [mc "Close"] -command "destroy $w" -default active
> + pack $w.ok -side bottom
> + bind $w <Visibility> "focus $w.ok"
> + bind $w <Key-Escape> "destroy $w"
> + bind $w <Key-Return> "destroy $w"
> + tk::PlaceWindow $w widget .
> +
> + reloadcommits
> +}
> +
> proc updatecommits {} {
> global curview vcanopt vorigargs vfilelimit viewinstances
> global viewactive viewcomplete tclencoding
> @@ -2089,6 +2117,7 @@ proc makewindow {} {
> mc "&File" cascade {
> {mc "&Update" command updatecommits -accelerator F5}
> {mc "&Reload" command reloadcommits -accelerator Shift-F5}
> + {mc "&Fetch" command fetch -accelerator F7}
> {mc "Reread re&ferences" command rereadrefs}
> {mc "&List references" command showrefs -accelerator F2}
> {xx "" separator}
> @@ -2609,6 +2638,7 @@ proc makewindow {} {
> bindkey f nextfile
> bind . <F5> updatecommits
> bindmodfunctionkey Shift 5 reloadcommits
> + bind . <F7> fetch
> bind . <F2> showrefs
> bindmodfunctionkey Shift 4 {newview 0}
> bind . <F4> edit_or_newview
> @@ -3125,6 +3155,7 @@ proc keys {} {
> [mc "<%s-KP-> Decrease font size" $M1T]
> [mc "<%s-minus> Decrease font size" $M1T]
> [mc "<F5> Update"]
> +[mc "<F7> Fetch"]
> " \
> -justify left -bg $bgcolor -border 2 -relief groove
> pack $w.m -side top -fill both -padx 2 -pady 2
>
> base-commit: 72c4083ddf91b489b7b7b812df67ee8842177d98
> --
> gitgitgadget
>
>
^ permalink raw reply [flat|nested] 3+ messages in thread
end of thread, other threads:[~2021-11-05 7:35 UTC | newest]
Thread overview: 3+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2021-01-22 15:16 [PATCH] gitk: add option to perform 'git fetch' command Vladimir Chigarev via GitGitGadget
2021-04-07 19:43 ` Johannes Schindelin
[not found] ` <CAGyQznWL_X+-2jyfJCOkTGsp5Ucd3aomQ0Rf5W4nSo8sEz9d5Q@mail.gmail.com>
2021-11-05 7:35 ` Paul Mackerras
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.