paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-13 13:50:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

ide: source editor: don't replace notebook menu with sourcemenu if notebook can show own popupmenu (mostly for gtk, gtk2)

Browse Source 
git-svn-id: trunk@20113 -
This commit is contained in:
paul 2009-05-22 02:50:24 +00:00
parent b7c121c677
commit 08eafcbdfa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
ide/sourceeditor.pp
View File

@ -4061,7 +4061,8 @@ Begin
else else
Pages.Add('unit1'); Pages.Add('unit1');
PageIndex := 0; // Set it to the first page PageIndex := 0; // Set it to the first page
PopupMenu := SrcPopupMenu; if not (nbcPageListPopup in GetCapabilities) then
PopupMenu := SrcPopupMenu;
if EditorOpts.ShowTabCloseButtons then if EditorOpts.ShowTabCloseButtons then
Options:=Options+[nboShowCloseButtons] Options:=Options+[nboShowCloseButtons]
else else