* Patch and fix for 1313 from Tomáš Gregoric

git-svn-id: trunk@7981 -

components/synedit/synedit.pp

@@ -2269,7 +2269,7 @@ begin
     {$ENDIF}
   end;
   {$IFDEF SYN_LAZARUS}
-  if (X < fGutterWidth) then begin
+  if (X < fGutterWidth) and (Button=mbLeft) then begin
     Include(fStateFlags, sfPossibleGutterClick);
     DoOnGutterClick(X, Y);
   end;

ide/uniteditor.pp

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

lcl/extctrls.pp

@@ -273,6 +273,7 @@ type
     property OnResize;
     property Options;
     property PageIndex;
+    property PopupMenu;
     property ShowTabs;
   end;