diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2013-01-05 17:52:29 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2013-01-05 17:52:29 +0000 |
commit | e42982732ead57e95dcdbe078895479c0ef69e4a (patch) | |
tree | 1be5bc906b1386b5532fbb641a35643ebc85f715 | |
parent | 090b582ad715775847a7405545a57f241e946ada (diff) |
Mac OS X: fix placement of 'Search' menu item in 'Help' menu
svn path=/trunk/scripts/guiplugins/search-plugin/; revision=16823
-rw-r--r-- | search-plugin.tcl | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/search-plugin.tcl b/search-plugin.tcl index c366296..97b255b 100644 --- a/search-plugin.tcl +++ b/search-plugin.tcl @@ -1098,7 +1098,11 @@ proc ::dialog_helpbrowser2::get_info {xpos ypos mytoplevel} { set mymenu .menubar.help # this can be buggy with translated text #set inserthere [$mymenu index [_ "Report a bug"]] - set inserthere 4 +if {$::windowingsystem eq "aqua"} { + set inserthere 3 +} else { + set inserthere 4 +} $mymenu insert $inserthere separator $mymenu insert $inserthere command -label [_ "Search"] \ -command {::dialog_helpbrowser2::open_helpbrowser .helpbrowser2} |