git-gui: update shortcut tools to use _gitworktree

Signed-off-by: Giuseppe Bilotta <giuseppe.bilotta@gmail.com>
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>

diff --git a/lib/shortcut.tcl b/lib/shortcut.tcl
index 2f20eb39c0e25d68e4e6b46fe3b14a46b84ae83e..79c1888e11d210eed962eebdf67793a7367dff5a 100644 (file)
--- a/lib/shortcut.tcl
+++ b/lib/shortcut.tcl
@@ -2,6 +2,7 @@
 # Copyright (C) 2006, 2007 Shawn Pearce
 
 proc do_windows_shortcut {} {
 # Copyright (C) 2006, 2007 Shawn Pearce
 
 proc do_windows_shortcut {} {

+       global _gitworktree

        set fn [tk_getSaveFile \
                -parent . \
                -title [append "[appname] ([reponame]): " [mc "Create Desktop Icon"]] \
        set fn [tk_getSaveFile \
                -parent . \
                -title [append "[appname] ([reponame]): " [mc "Create Desktop Icon"]] \


@@ -15,7 +16,7 @@ proc do_windows_shortcut {} {
                                        [info nameofexecutable] \
                                        [file normalize $::argv0] \
                                        ] \
                                        [info nameofexecutable] \
                                        [file normalize $::argv0] \
                                        ] \

-                                       [file dirname [file normalize [gitdir]]]
+                                       [file normalize [$_gitworktree]]

                        } err]} {
                        error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"]
                }
                        } err]} {
                        error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"]
                }


@@ -23,7 +24,7 @@ proc do_windows_shortcut {} {
 }
 
 proc do_cygwin_shortcut {} {
 }
 
 proc do_cygwin_shortcut {} {

-       global argv0
+       global argv0 _gitworktree

 
        if {[catch {
                set desktop [exec cygpath \
 
        if {[catch {
                set desktop [exec cygpath \


@@ -56,7 +57,7 @@ proc do_cygwin_shortcut {} {
                                        $sh -c \
                                        "CHERE_INVOKING=1 source /etc/profile;[sq $me] &" \
                                        ] \
                                        $sh -c \
                                        "CHERE_INVOKING=1 source /etc/profile;[sq $me] &" \
                                        ] \

-                                       [file dirname [file normalize [gitdir]]]
+                                       [file normalize [$_gitworktree]]

                        } err]} {
                        error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"]
                }
                        } err]} {
                        error_popup [strcat [mc "Cannot write shortcut:"] "\n\n$err"]
                }