git-gui: Add the Show SSH Key item to the clone dialog.
The user might need to see the key before cloning a repository. This patch makes the relevant menu item available in the Select Repository/Clone dialog. Signed-off-by: Alexander Gavrilov <angavrilov@gmail.com> Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
Alexander Gavrilov committed
Nov 9, 2008 at 18:51 UTC
e29c0d10a201a4ce0c71ddb65faadff533ed2a98
2 files changed
+17
-9
git-gui.sh
+11
-9
@@ -997,6 +997,17 @@ citool {
997
}
998
}
999
1000
+######################################################################
1001
+##
1002
+## execution environment
1003
+
1004
+set have_tk85 [expr {[package vcompare $tk_version "8.5"] >= 0}]
1005
+
1006
+# Suggest our implementation of askpass, if none is set
1007
+if {![info exists env(SSH_ASKPASS)]} {
1008
+ set env(SSH_ASKPASS) [gitexec git-gui--askpass]
1009
+}
1010
+
1011
######################################################################
1012
##
1013
## repository setup
@@ -1073,15 +1084,6 @@ set selected_commit_type new
1084
set nullid "0000000000000000000000000000000000000000"
1085
set nullid2 "0000000000000000000000000000000000000001"
1086
1076
-set have_tk85 [expr {[package vcompare $tk_version "8.5"] >= 0}]
1077
-
1078
-######################################################################
1079
-
1080
-# Suggest our implementation of askpass, if none is set
1081
-if {![info exists env(SSH_ASKPASS)]} {
1082
- set env(SSH_ASKPASS) [gitexec git-gui--askpass]
1083
-}
1084
-
1087
######################################################################
1088
##
1089
## task management
lib/choose_repository.tcl
+6
@@ -43,12 +43,18 @@ constructor pick {} {
43
$w.mbar.apple add command \
44
-label [mc "About %s" [appname]] \
45
-command do_about
46
+ $w.mbar.apple add command \
47
+ -label [mc "Show SSH Key"] \
48
+ -command do_ssh_key
49
} else {
50
$w.mbar add cascade -label [mc Help] -menu $w.mbar.help
51
menu $w.mbar.help
52
$w.mbar.help add command \
53
-label [mc "About %s" [appname]] \
54
-command do_about
55
+ $w.mbar.help add command \
56
+ -label [mc "Show SSH Key"] \
57
+ -command do_ssh_key
58
}
59
60
wm protocol $top WM_DELETE_WINDOW exit