From e42982732ead57e95dcdbe078895479c0ef69e4a Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Sat, 5 Jan 2013 17:52:29 +0000
Subject: Mac OS X: fix placement of 'Search' menu item in 'Help' menu

svn path=/trunk/scripts/guiplugins/search-plugin/; revision=16823
---
 search-plugin.tcl | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'search-plugin.tcl')

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}
-- 
cgit v1.2.1