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 /search-plugin.tcl | |
| parent | 090b582ad715775847a7405545a57f241e946ada (diff) | |
Mac OS X: fix placement of 'Search' menu item in 'Help' menu
svn path=/trunk/scripts/guiplugins/search-plugin/; revision=16823
Diffstat (limited to 'search-plugin.tcl')
| -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} |