From 756638323344416b623f80862db572bcc2ffcd60 Mon Sep 17 00:00:00 2001
From: mattias <nc-gaertnma@netcologne.de>
Date: Wed, 12 Mar 2008 11:45:16 +0000
Subject: [PATCH] IDE: Src Editor: popup menu: added dynamic item to open
 unit.s file

git-svn-id: trunk@14500 -
---
 ide/uniteditor.pp | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/ide/uniteditor.pp b/ide/uniteditor.pp
index f586187a63..522009df12 100644
--- a/ide/uniteditor.pp
+++ b/ide/uniteditor.pp
@@ -455,6 +455,7 @@ type
     procedure OnPopupMenuOpenPFile(Sender: TObject);
     procedure OnPopupMenuOpenLFMFile(Sender: TObject);
     procedure OnPopupMenuOpenLRSFile(Sender: TObject);
+    procedure OnPopupMenuOpenSFile(Sender: TObject);
     procedure OnPopupMenuOpenFile(Sender: TObject);
     procedure ShowUnitInfo(Sender: TObject);
     procedure SrcPopUpMenuPopup(Sender: TObject);
@@ -3969,6 +3970,10 @@ begin
           AddContextPopupMenuItem(
             'Open '+ChangeFileExt(ExtractFileName(CurFilename),'.lrs'),
             true,@OnPopupMenuOpenLRSFile);
+        if FileExists(ChangeFileExt(CurFilename,'.s')) then
+          AddContextPopupMenuItem(
+            'Open '+ChangeFileExt(ExtractFileName(CurFilename),'.s'),
+            true,@OnPopupMenuOpenSFile);
       end;
       if (CompareFileExt(CurFilename,'.lfm',true)=0) then begin
         if FileExists(ChangeFileExt(CurFilename,'.pas')) then
@@ -5018,6 +5023,13 @@ begin
     [ofOnlyIfExists,ofAddToRecent,ofRegularFile,ofUseCache,ofDoNotLoadResource]);
 end;
 
+procedure TSourceNotebook.OnPopupMenuOpenSFile(Sender: TObject);
+begin
+  MainIDEInterface.DoOpenEditorFile(ChangeFileExt(GetActiveSE.Filename,'.s'),
+    Notebook.PageIndex+1,
+    [ofOnlyIfExists,ofAddToRecent,ofRegularFile,ofUseCache,ofDoNotLoadResource]);
+end;
+
 procedure TSourceNotebook.OnPopupMenuOpenFile(Sender: TObject);
 var
   AFilename: String;