--- oup/rewrite/Tools/Template.pas	2007/02/20 20:43:29	101
+++ oup/current/Tools/Template.pas	2007/02/25 17:20:22	113
@@ -40,6 +40,8 @@ type
     Label3: TLabel;
     combo_connection: TComboBox;
     Bevel1: TBevel;
+    popup_linkshere: TMenuItem;
+    popup_separator2: TMenuItem;
     procedure RecreateExtList;
     procedure UpdateConList;
     procedure LoadFileNames;
@@ -61,6 +63,7 @@ type
     procedure btn_sortClick(Sender: TObject);
     procedure FormActivate(Sender: TObject);
     procedure combo_connectionChange(Sender: TObject);
+    procedure popup_linkshereClick(Sender: TObject);
   private
     FSortBy: TSortType;
     FOnNewFileSelected: TNewFileSelectedEvent;
@@ -93,7 +96,7 @@ procedure AddToolListEntry(context, name
 
 implementation
 {$R *.dfm}
-uses Main, ConnectionManager, Exporters, Functions;
+uses Main, ConnectionManager, Exporters, Functions, WhatLinksHere;
 
 
 procedure TForm_ToolTemplate.UpdateConList;
@@ -116,7 +119,7 @@ begin
         datatype := 'OUP-DB: '
       else
         datatype := 'Unknown: ';
-      boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ')';
+      boxstring := datatype + fn + ' (Level: ' + IntToStr(level) + ') [' + IntToStr(ConManager.ConnectionByIndex[i].ConnectionID) + ']';
       combo_connection.Items.Add(boxstring);
       if ConManager.ConnectionByIndex[i].ConnectionID = FConnectionID then
         combo_connection.ItemIndex := combo_connection.Items.Count - 1;
@@ -149,6 +152,7 @@ begin
   begin
     combo_extension.Items.Add('_All files_ (' +
       IntToStr(ConManager.Connection[FConnectionID].GetFileCount) + ')');
+    exts := nil;
     exts := ConManager.Connection[FConnectionID].GetExtensionsList(EF_ExtCount);
     for i := 0 to exts.Count - 1 do
       if Length(FAllowedExts) > 0 then
@@ -173,7 +177,6 @@ var
   no_zero_bytes: Boolean;
   pattern: String;
   files: TStrings;
-  i: Integer;
 begin
   if FConnectionID > -1 then
   begin
@@ -188,6 +191,7 @@ begin
       else
         Extension := '';
 
+    files := nil;
     files := ConManager.Connection[FConnectionID].GetFilesList(extension, pattern, no_zero_bytes, FSortBy);
 
     filelist.Visible := False;
@@ -257,6 +261,14 @@ begin
   end;
 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
   sender_name, context: String;
@@ -271,11 +283,12 @@ end;
 procedure TForm_ToolTemplate.combo_connectionChange(Sender: TObject);
 var
   name: String;
-  nstart, nend: Integer;
-  i: Integer;
 begin
   if combo_connection.ItemIndex >= 0 then
-    FConnectionID := combo_connection.ItemIndex
+  begin
+    name := combo_connection.Items.Strings[combo_connection.ItemIndex];
+    FConnectionID := StrToInt(MidStr(name, Pos('[', name) + 1, Pos(']', name) - Pos('[', name)  - 1));
+  end
   else
     FConnectionID := -1;
   RecreateExtList;
@@ -331,6 +344,8 @@ begin
       if Pos(ext, ToolList[i].exts) = 0 then
         filepopup.Items.Items[i].Enabled := False;
   end;
+  filepopup.Items.Find('What links here?').Enabled :=
+      ConManager.Connection[FConnectionID].Backend = DB_ADB;
 end;
 
 procedure TForm_ToolTemplate.check_zerobyteClick(Sender: TObject);
@@ -382,8 +397,11 @@ var
 begin
   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;