paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-13 19:19:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

implemented package links, automatic package loading

Browse Source 
git-svn-id: trunk@2930 -
This commit is contained in:
mattias 2002-08-18 08:56:16 +00:00
parent 314ed2ca5e
commit f1b308771f
1 changed files with 10 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
ide/main.pp
View File

@ -924,7 +924,7 @@ var
MsgResult: integer;
begin
// check packages
if (PkgBoss.DoSaveAllPackages([pfAskBeforeSaving])<>mrOk)
if (PkgBoss.DoSaveAllPackages([psfAskBeforeSaving])<>mrOk)
or (PkgBoss.DoCloseAllPackageEditors<>mrOk) then begin
CanClose:=false;
exit;
@ -7901,10 +7901,10 @@ var ActiveSrcEdit: TSourceEditor;
begin
if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[ctfSwitchToFormSource])
then exit;
{ $IFDEF IDE_DEBUG}
{$IFDEF IDE_DEBUG}
writeln('');
writeln('[TMainIDE.OnPropHookShowMethod] ************ "',AMethodName,'" ',ActiveUnitInfo.Filename);
{ $ENDIF}
{$ENDIF}
if CodeToolBoss.JumpToPublishedMethodBody(ActiveUnitInfo.Source,
ActiveUnitInfo.Form.ClassName,AMethodName,
@ -7926,19 +7926,19 @@ var ActiveSrcEdit: TSourceEditor;
begin
if not BeginCodeTool(ActiveSrcEdit,ActiveUnitInfo,[ctfSwitchToFormSource])
then exit;
{ $IFDEF IDE_DEBUG}
{$IFDEF IDE_DEBUG}
writeln('');
writeln('[TMainIDE.OnPropHookRenameMethod] ************');
{ $ENDIF}
{$ENDIF}
FOpenEditorsOnCodeToolChange:=true;
try
// create published method
r:=CodeToolBoss.RenamePublishedMethod(ActiveUnitInfo.Source,
ActiveUnitInfo.Form.ClassName,CurName,NewName);
{ $IFDEF IDE_DEBUG}
{$IFDEF IDE_DEBUG}
writeln('');
writeln('[TMainIDE.OnPropHookRenameMethod] ************2 ',r);
{ $ENDIF}
{$ENDIF}
ApplyCodeToolChanges;
if r then begin
FormEditor1.JITFormList.RenameMethod(TForm(ActiveUnitInfo.Form),
@ -8265,6 +8265,9 @@ end.
{ =============================================================================
$Log$
Revision 1.521 2003/04/13 22:39:19 mattias
implemented package links, automatic package loading
Revision 1.520 2003/04/13 13:45:04 mattias
implemented broken dependencies dialog