Index: oup/rewrite/Tools/Template.dfm
===================================================================
--- oup/rewrite/Tools/Template.dfm	(revision 105)
+++ oup/rewrite/Tools/Template.dfm	(revision 106)
@@ -308,4 +308,12 @@
     Left = 72
     Top = 216
+    object popup_separator2: TMenuItem
+      Caption = '-'
+    end
+    object popup_linkshere: TMenuItem
+      Caption = 'What links here?'
+      Enabled = False
+      OnClick = popup_linkshereClick
+    end
     object popup_separator: TMenuItem
       Caption = '-'
Index: oup/rewrite/Tools/Template.pas
===================================================================
--- oup/rewrite/Tools/Template.pas	(revision 105)
+++ oup/rewrite/Tools/Template.pas	(revision 106)
@@ -41,4 +41,6 @@
     combo_connection: TComboBox;
     Bevel1: TBevel;
+    popup_linkshere: TMenuItem;
+    popup_separator2: TMenuItem;
     procedure RecreateExtList;
     procedure UpdateConList;
@@ -62,4 +64,5 @@
     procedure FormActivate(Sender: TObject);
     procedure combo_connectionChange(Sender: TObject);
+    procedure popup_linkshereClick(Sender: TObject);
   private
     FSortBy: TSortType;
@@ -94,5 +97,5 @@
 implementation
 {$R *.dfm}
-uses Main, ConnectionManager, Exporters, Functions;
+uses Main, ConnectionManager, Exporters, Functions, WhatLinksHere;
 
 
@@ -258,4 +261,12 @@
 end;
 
+procedure TForm_ToolTemplate.popup_linkshereClick(Sender: TObject);
+begin
+  Form_WhatLinksHere.ConID := FConnectionID;
+  Form_WhatLinksHere.FileID := FSelectedFile.ID;
+  Form_WhatLinksHere.SenderForm := Self;
+  Form_WhatLinksHere.Show;
+end;
+
 procedure TForm_ToolTemplate.popup_opentool(Sender: TObject);
 var
@@ -335,4 +346,6 @@
         filepopup.Items.Items[i].Enabled := False;
   end;
+  filepopup.Items.Find('What links here?').Enabled :=
+      ConManager.Connection[FConnectionID].Backend = DB_ADB;
 end;
 
@@ -386,6 +399,9 @@
   pt.X := x;
   pt.Y := y;
-//  filelist.ItemIndex := filelist.ItemAtPos(pt, true);
-//  Self.listClick(Self);
+  if Shift = [ssRight] then
+  begin
+    filelist.ItemIndex := filelist.ItemAtPos(pt, true);
+    Self.listClick(Self);
+  end;
 end;