Merge git://repo.or.cz/git-gui into pt/git-gui
* git://repo.or.cz/git-gui: git-gui: fix size and position of window panes on startup git-gui: mc cannot be used before msgcat has been loaded git-gui: use textconv filter for diff and blame git-gui: Avoid using the <<Copy>> binding as a menu accelerator on win32 git-gui: fix shortcut creation on cygwin git-gui: fix PATH environment for mingw development environment git-gui: fix usage of _gitworktree when creating shortcut for windows git-gui: fix "Explore Working Copy" for Windows again git-gui: fix usage of themed widgets variable git-gui: Handle failure of core.worktree to identify the working directory. git-gui: check whether systems nice command works or disable it
This commit is contained in:
@ -100,12 +100,17 @@ constructor pick {} {
|
||||
$opts insert end [mc "Clone Existing Repository"] link_clone
|
||||
$opts insert end "\n"
|
||||
if {$m_repo ne {}} {
|
||||
if {[tk windowingsystem] eq "win32"} {
|
||||
set key L
|
||||
} else {
|
||||
set key C
|
||||
}
|
||||
$m_repo add command \
|
||||
-command [cb _next clone] \
|
||||
-accelerator $M1T-C \
|
||||
-accelerator $M1T-$key \
|
||||
-label [mc "Clone..."]
|
||||
bind $top <$M1B-c> [cb _next clone]
|
||||
bind $top <$M1B-C> [cb _next clone]
|
||||
bind $top <$M1B-[string tolower $key]> [cb _next clone]
|
||||
bind $top <$M1B-[string toupper $key]> [cb _next clone]
|
||||
}
|
||||
|
||||
$opts tag conf link_open -foreground blue -underline 1
|
||||
|
Reference in New Issue
Block a user