+ SetTBreak method added

git-svn-id: trunk@15890 -

ide/fpdebug.pas

@@ -58,6 +58,7 @@ type
 {$endif SUPPORT_REMOTE}
     constructor Init;
     procedure SetExe(const exefn:string);
+    procedure SetTBreak(tbreakstring : string);
     procedure SetWidth(AWidth : longint);
     procedure SetSourceDirs;
     destructor  Done;
@@ -683,6 +684,13 @@ begin
     end;
 end;
 
+    
+procedure TDebugController.SetTBreak(tbreakstring : string);
+begin
+  Command('tbreak '+tbreakstring);
+  TBreakNumber:=Last_breakpoint_number;
+end;
+
 procedure TDebugController.SetWidth(AWidth : longint);
 begin
   WindowWidth:=AWidth;