path: root/lib
diff options
authorShawn O. Pearce <>2007-10-08 05:39:08 (GMT)
committerShawn O. Pearce <>2007-10-10 05:12:18 (GMT)
commit13824e2df23c18eab28b2b9a8c112276a84dd419 (patch)
treebf7e741c54d533b25b34af9bb3abbaa042fc2e97 /lib
parent6bdf5e5f20c792ad0c5d5ba941d7e637aca86d32 (diff)
git-gui: Bind Cmd-, to Preferences on Mac OS X
A Mac OS X UI convention is to have Cmd-, be the accelerator key for the preferences window, which by convention is located in the apple menu under a separator below the about command. We also now call this "Preferences..." as that is the conventional term used in English. Signed-off-by: Shawn O. Pearce <>
Diffstat (limited to 'lib')
1 files changed, 7 insertions, 5 deletions
diff --git a/lib/option.tcl b/lib/option.tcl
index de6bd90..f812e5e 100644
--- a/lib/option.tcl
+++ b/lib/option.tcl
@@ -78,10 +78,6 @@ proc do_options {} {
toplevel $w
wm geometry $w "+[winfo rootx .]+[winfo rooty .]"
- label $w.header -text [mc "Options"] \
- -font font_uibold
- pack $w.header -side top -fill x
frame $w.buttons
button $w.buttons.restore -text [mc "Restore Defaults"] \
-default normal \
@@ -199,7 +195,13 @@ proc do_options {} {
bind $w <Visibility> "grab $w; focus $"
bind $w <Key-Escape> "destroy $w"
bind $w <Key-Return> [list do_save_config $w]
- wm title $w [append "[appname] ([reponame]): " [mc "Options"]]
+ if {[is_MacOSX]} {
+ set t [mc "Preferences"]
+ } else {
+ set t [mc "Options"]
+ }
+ wm title $w "[appname] ([reponame]): $t"
tkwait window $w