mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-07 09:55:54 +02:00
cody: find gdb line: open source editor
git-svn-id: trunk@44951 -
This commit is contained in:
parent
a32057acc8
commit
c6fb2f7bee
@ -89,7 +89,8 @@ var
|
||||
begin
|
||||
CodyFindGDBLineDialog:=TCodyFindGDBLineDialog.Create(nil);
|
||||
try
|
||||
CodyFindGDBLineDialog.ShowModal;
|
||||
if CodyFindGDBLineDialog.ShowModal<>mrOk then exit;
|
||||
LazarusIDE.DoOpenFileAndJumpToPos(CodyFindGDBLineDialog.SrcFilename,CodyFindGDBLineDialog.SrcXY,-1,-1,-1,[]);
|
||||
finally
|
||||
CodyFindGDBLineDialog.Free;
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user