From 08eafcbdfac7848e6a83cc67d30f03ebb323cbc8 Mon Sep 17 00:00:00 2001
From: paul <paul@lazarus-ide.org>
Date: Fri, 22 May 2009 02:50:24 +0000
Subject: [PATCH] ide: source editor: don't replace notebook menu with
 sourcemenu if notebook can show own popupmenu (mostly for gtk, gtk2)

git-svn-id: trunk@20113 -
---
 ide/sourceeditor.pp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ide/sourceeditor.pp b/ide/sourceeditor.pp
index 13308d05dc..e7c7b1c707 100644
--- a/ide/sourceeditor.pp
+++ b/ide/sourceeditor.pp
@@ -4061,7 +4061,8 @@ Begin
           else
             Pages.Add('unit1');
           PageIndex := 0;   // Set it to the first page
-          PopupMenu := SrcPopupMenu;
+          if not (nbcPageListPopup in GetCapabilities) then
+            PopupMenu := SrcPopupMenu;
           if EditorOpts.ShowTabCloseButtons then
             Options:=Options+[nboShowCloseButtons]
           else