paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 18:40:52 +02:00
Code Issues Packages Projects Releases Wiki Activity

Package manager: Change visibility and harmonize names of event handlers.

Browse Source 
git-svn-id: trunk@62909 -
This commit is contained in:
juha 2020-04-07 21:28:46 +00:00
parent 559495ac52
commit b2f327a643
1 changed files with 91 additions and 93 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

184
packager/pkgmanager.pas
View File

@ -80,47 +80,43 @@ type
{ TPkgManager } { TPkgManager }
TPkgManager = class(TBasePkgManager) TPkgManager = class(TBasePkgManager)
// events - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - private
// event handlers - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
// package editor // package editor
function OnPackageEditorAddToProject(Sender: TObject; APackage: TLazPackage; function PackageEditorAddToProject(Sender: TObject; APackage: TLazPackage;
OnlyTestIfPossible: boolean): TModalResult; OnlyTestIfPossible: boolean): TModalResult;
function OnPackageEditorCompilePackage(Sender: TObject; function PackageEditorCompilePackage(Sender: TObject; APackage: TLazPackage;
APackage: TLazPackage;
CompileClean, CompileRequired: boolean): TModalResult; CompileClean, CompileRequired: boolean): TModalResult;
procedure OnPackageEditorCopyMoveFiles(Sender: TObject); procedure PackageEditorCopyMoveFiles(Sender: TObject);
function OnPackageEditorCreateFile(Sender: TObject; function PackageEditorCreateFile(Sender: TObject;
Params: TAddToPkgResult): TModalResult; Params: TAddToPkgResult): TModalResult;
function OnPackageEditorCreateMakefile(Sender: TObject; function PackageEditorCreateMakefile(Sender: TObject;
APackage: TLazPackage): TModalResult;
function PackageEditorCreateFpmakeFile(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
function OnPackageEditorCreateFpmakeFile(Sender: TObject; function PackageEditorDeleteAmbiguousFiles(Sender: TObject;
APackage: TLazPackage): TModalResult;
function OnPackageEditorDeleteAmbiguousFiles(Sender: TObject;
{%H-}APackage: TLazPackage; const Filename: string): TModalResult; {%H-}APackage: TLazPackage; const Filename: string): TModalResult;
procedure OnPackageEditorDragDropTreeView(Sender, Source: TObject; procedure PackageEditorDragDropTreeView(Sender, Source: TObject; X, Y: Integer);
X, Y: Integer); function PackageEditorDragOverTreeView(Sender, Source: TObject; X, Y: Integer;
function OnPackageEditorDragOverTreeView(Sender, Source: TObject; out TargetTVNode: TTreeNode; out TargetTVType: TTreeViewInsertMarkType): boolean;
X, Y: Integer; out TargetTVNode: TTreeNode; function PackageEditorFindInFiles(Sender: TObject; APackage: TLazPackage
out TargetTVType: TTreeViewInsertMarkType): boolean;
function OnPackageEditorFindInFiles(Sender: TObject; APackage: TLazPackage
): TModalResult; ): TModalResult;
function OnPackageEditorInstallPackage(Sender: TObject; function PackageEditorInstallPackage(Sender: TObject;
APackage: TLazPackage): TModalResult;
function PackageEditorOpenPackage(Sender: TObject; APackage: TLazPackage): TModalResult;
function PackageEditorOpenPkgFile(Sender: TObject; PkgFile: TPkgFile): TModalResult;
function PackageEditorPublishPackage(Sender: TObject; APackage: TLazPackage): TModalResult;
function PackageEditorRevertPackage(Sender: TObject; APackage: TLazPackage): TModalResult;
function PackageEditorSavePackage(Sender: TObject; APackage: TLazPackage;
SaveAs: boolean): TModalResult;
function PackageEditorUninstallPackage(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
function OnPackageEditorOpenPackage(Sender: TObject; APackage: TLazPackage): TModalResult; function PackageEditorViewPkgSource(Sender: TObject;
function OnPackageEditorOpenPkgFile(Sender: TObject; PkgFile: TPkgFile): TModalResult; APackage: TLazPackage): TModalResult;
function OnPackageEditorPublishPackage(Sender: TObject; procedure AfterWritePackage(Sender: TObject; Restore: boolean);
APackage: TLazPackage): TModalResult; procedure BeforeReadPackage(Sender: TObject);
function OnPackageEditorRevertPackage(Sender: TObject; APackage: TLazPackage procedure PackageEditorFreeEditor(APackage: TLazPackage);
): TModalResult; procedure PackageEditorGetUnitRegisterInfo(Sender: TObject;
function OnPackageEditorSavePackage(Sender: TObject; APackage: TLazPackage;
SaveAs: boolean): TModalResult;
function OnPackageEditorUninstallPackage(Sender: TObject;
APackage: TLazPackage): TModalResult;
function OnPackageEditorViewPkgSource(Sender: TObject;
APackage: TLazPackage): TModalResult;
procedure OnAfterWritePackage(Sender: TObject; Restore: boolean);
procedure OnBeforeReadPackage(Sender: TObject);
procedure OnPackageEditorFreeEditor(APackage: TLazPackage);
procedure OnPackageEditorGetUnitRegisterInfo(Sender: TObject;
const AFilename: string; out TheUnitName: string; const AFilename: string; out TheUnitName: string;
out HasRegisterProc: boolean); out HasRegisterProc: boolean);
function PackageGraphCheckInterPkgFiles(IDEObject: TObject; function PackageGraphCheckInterPkgFiles(IDEObject: TObject;
@ -153,15 +149,11 @@ type
procedure MainIDEitmPkgNewPackageClick(Sender: TObject); procedure MainIDEitmPkgNewPackageClick(Sender: TObject);
procedure MainIDEitmPackageLinksClicked(Sender: TObject); procedure MainIDEitmPackageLinksClicked(Sender: TObject);
// component palette
procedure IDEComponentPaletteOpenPackage(Sender: TObject);
procedure IDEComponentPaletteOpenUnit(Sender: TObject);
// source editor // source editor
procedure OnOpenPackageForCurrentSrcEditFile(Sender: TObject); procedure OpenPackageForCurrentSrcEditFile(Sender: TObject);
// LCL // LCL
procedure OnApplicationIdle(Sender: TObject; var {%H-}Done: Boolean); procedure ApplicationIdleHandler(Sender: TObject; var {%H-}Done: Boolean);
// misc // misc
procedure GetDependencyOwnerDescription(Dependency: TPkgDependency; procedure GetDependencyOwnerDescription(Dependency: TPkgDependency;
@ -169,13 +161,19 @@ type
procedure GetDependencyOwnerDirectory(Dependency: TPkgDependency; procedure GetDependencyOwnerDirectory(Dependency: TPkgDependency;
out Directory: string); out Directory: string);
procedure PackageFileLoaded(Sender: TObject); procedure PackageFileLoaded(Sender: TObject);
procedure OnCheckInstallPackageList(PkgIDList: TObjectList; procedure CheckInstallPackageListHandler(PkgIDList: TObjectList;
RemoveConflicts: boolean; out Ok: boolean); RemoveConflicts: boolean; out Ok: boolean);
function DoBeforeCompilePackages(aPkgList: TFPList): TModalResult; function DoBeforeCompilePackages(aPkgList: TFPList): TModalResult;
function LoadDependencyList(FirstDependency: TPkgDependency; function LoadDependencyList(FirstDependency: TPkgDependency;
Quiet: boolean): TModalResult; Quiet: boolean): TModalResult;
procedure CreateIDEWindow(Sender: TObject; aFormName: string; procedure CreateIDEWindow(Sender: TObject; aFormName: string;
var AForm: TCustomForm; DoDisableAutoSizing: boolean); var AForm: TCustomForm; DoDisableAutoSizing: boolean);
public
// component palette
procedure IDEComponentPaletteOpenPackage(Sender: TObject);
procedure IDEComponentPaletteOpenUnit(Sender: TObject);
// end event handlers - - - - - - - - - - - - - - - - - - - - - - - - - - -
private private
// helper functions // helper functions
FLastLazarusSrcDir: string; FLastLazarusSrcDir: string;
@ -469,7 +467,7 @@ begin
PkgIDList:=nil; PkgIDList:=nil;
try try
if ShowEditInstallPkgsDialog(PackageGraph.FirstAutoInstallDependency, if ShowEditInstallPkgsDialog(PackageGraph.FirstAutoInstallDependency,
@OnCheckInstallPackageList,PkgIDList,RebuildIDE)<>mrOk @CheckInstallPackageListHandler,PkgIDList,RebuildIDE)<>mrOk
then exit; then exit;
Flags:=[piiifSkipChecks,piiifClear]; Flags:=[piiifSkipChecks,piiifClear];
@ -528,7 +526,7 @@ begin
DoCallNotifyHandler(pihtPackageFileLoaded,Sender); DoCallNotifyHandler(pihtPackageFileLoaded,Sender);
end; end;
procedure TPkgManager.OnCheckInstallPackageList(PkgIDList: TObjectList; procedure TPkgManager.CheckInstallPackageListHandler(PkgIDList: TObjectList;
RemoveConflicts: boolean; out Ok: boolean); RemoveConflicts: boolean; out Ok: boolean);
var var
Flags: TPkgInstallInIDEFlags; Flags: TPkgInstallInIDEFlags;
@ -623,7 +621,7 @@ begin
Result:=mrOk; Result:=mrOk;
end; end;
procedure TPkgManager.OnOpenPackageForCurrentSrcEditFile(Sender: TObject); procedure TPkgManager.OpenPackageForCurrentSrcEditFile(Sender: TObject);
var var
APackage: TIDEPackage; APackage: TIDEPackage;
begin begin
@ -694,20 +692,20 @@ begin
DoOpenPackageFile(PkgFile.LazPackage.Filename,[pofAddToRecent],false); DoOpenPackageFile(PkgFile.LazPackage.Filename,[pofAddToRecent],false);
end; end;
procedure TPkgManager.OnAfterWritePackage(Sender: TObject; Restore: boolean); procedure TPkgManager.AfterWritePackage(Sender: TObject; Restore: boolean);
begin begin
//debugln(['TPkgManager.OnAfterWritePackage ',DbgSName(APackage),' Restore=',Restore]); //debugln(['TPkgManager.OnAfterWritePackage ',DbgSName(APackage),' Restore=',Restore]);
if Restore then if Restore then
(Sender as TPackageIDEOptions).Package.RestoreOptions; (Sender as TPackageIDEOptions).Package.RestoreOptions;
end; end;
procedure TPkgManager.OnBeforeReadPackage(Sender: TObject); procedure TPkgManager.BeforeReadPackage(Sender: TObject);
begin begin
//debugln(['TPkgManager.OnBeforeReadPackage ',DbgSName(APackage)]); //debugln(['TPkgManager.OnBeforeReadPackage ',DbgSName(APackage)]);
(Sender as TPackageIDEOptions).Package.BackupOptions; (Sender as TPackageIDEOptions).Package.BackupOptions;
end; end;
function TPkgManager.OnPackageEditorCompilePackage(Sender: TObject; function TPkgManager.PackageEditorCompilePackage(Sender: TObject;
APackage: TLazPackage; CompileClean, CompileRequired: boolean): TModalResult; APackage: TLazPackage; CompileClean, CompileRequired: boolean): TModalResult;
var var
Flags: TPkgCompileFlags; Flags: TPkgCompileFlags;
@ -719,18 +717,18 @@ begin
Result:=DoCompilePackage(APackage,Flags,false); Result:=DoCompilePackage(APackage,Flags,false);
end; end;
procedure TPkgManager.OnPackageEditorCopyMoveFiles(Sender: TObject); procedure TPkgManager.PackageEditorCopyMoveFiles(Sender: TObject);
begin begin
CopyMoveFiles(Sender); CopyMoveFiles(Sender);
end; end;
function TPkgManager.OnPackageEditorCreateMakefile(Sender: TObject; function TPkgManager.PackageEditorCreateMakefile(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
begin begin
Result:=DoCreatePackageMakefile(APackage,false); Result:=DoCreatePackageMakefile(APackage,false);
end; end;
function TPkgManager.OnPackageEditorCreateFpmakeFile(Sender: TObject; function TPkgManager.PackageEditorCreateFpmakeFile(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
begin begin
Result:=DoCreatePackageFpmakefile(APackage,false); Result:=DoCreatePackageFpmakefile(APackage,false);
@ -779,7 +777,7 @@ end;
ToDo: Use FPC's resource type (.res) ToDo: Use FPC's resource type (.res)
{$ENDIF} {$ENDIF}
function TPkgManager.OnPackageEditorCreateFile(Sender: TObject; function TPkgManager.PackageEditorCreateFile(Sender: TObject;
Params: TAddToPkgResult): TModalResult; Params: TAddToPkgResult): TModalResult;
var var
LE: String; LE: String;
@ -797,7 +795,7 @@ begin
IconLRSFilename:=ChangeFileExt(Params.UnitFilename,'')+'_icon.lrs'; IconLRSFilename:=ChangeFileExt(Params.UnitFilename,'')+'_icon.lrs';
CodeBuf:=CodeToolBoss.CreateFile(IconLRSFilename); CodeBuf:=CodeToolBoss.CreateFile(IconLRSFilename);
if CodeBuf=nil then begin if CodeBuf=nil then begin
debugln(['Error: (lazarus) [TPkgManager.OnPackageEditorCreateFile] file create failed: ',IconLRSFilename]); debugln(['Error: (lazarus) [TPkgManager.PackageEditorCreateFile] file create failed: ',IconLRSFilename]);
exit; exit;
end; end;
FIconLRSSource:=''; FIconLRSSource:='';
@ -872,19 +870,19 @@ begin
end; end;
end; end;
function TPkgManager.OnPackageEditorDeleteAmbiguousFiles(Sender: TObject; function TPkgManager.PackageEditorDeleteAmbiguousFiles(Sender: TObject;
APackage: TLazPackage; const Filename: string): TModalResult; APackage: TLazPackage; const Filename: string): TModalResult;
begin begin
Result:=BuildBoss.DeleteAmbiguousFiles(Filename); Result:=BuildBoss.DeleteAmbiguousFiles(Filename);
end; end;
procedure TPkgManager.OnPackageEditorDragDropTreeView(Sender, Source: TObject; procedure TPkgManager.PackageEditorDragDropTreeView(Sender, Source: TObject;
X, Y: Integer); X, Y: Integer);
begin begin
FilesEditDragDrop(Sender, Source, X, Y); FilesEditDragDrop(Sender, Source, X, Y);
end; end;
function TPkgManager.OnPackageEditorDragOverTreeView(Sender, Source: TObject; function TPkgManager.PackageEditorDragOverTreeView(Sender, Source: TObject;
X, Y: Integer; out TargetTVNode: TTreeNode; X, Y: Integer; out TargetTVNode: TTreeNode;
out TargetTVType: TTreeViewInsertMarkType): boolean; out TargetTVType: TTreeViewInsertMarkType): boolean;
var var
@ -898,31 +896,31 @@ begin
aDependencyCount, aDirectoryCount, TargetTVNode, TargetTVType); aDependencyCount, aDirectoryCount, TargetTVNode, TargetTVType);
end; end;
function TPkgManager.OnPackageEditorFindInFiles(Sender: TObject; function TPkgManager.PackageEditorFindInFiles(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
begin begin
Result:=ShowFindInPackageFilesDlg(APackage); Result:=ShowFindInPackageFilesDlg(APackage);
end; end;
function TPkgManager.OnPackageEditorAddToProject(Sender: TObject; function TPkgManager.PackageEditorAddToProject(Sender: TObject;
APackage: TLazPackage; OnlyTestIfPossible: boolean): TModalResult; APackage: TLazPackage; OnlyTestIfPossible: boolean): TModalResult;
begin begin
Result:=AddProjectDependency(Project1,APackage,OnlyTestIfPossible); Result:=AddProjectDependency(Project1,APackage,OnlyTestIfPossible);
end; end;
function TPkgManager.OnPackageEditorInstallPackage(Sender: TObject; function TPkgManager.PackageEditorInstallPackage(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
begin begin
Result:=DoInstallPackage(APackage); Result:=DoInstallPackage(APackage);
end; end;
function TPkgManager.OnPackageEditorPublishPackage(Sender: TObject; function TPkgManager.PackageEditorPublishPackage(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
begin begin
Result:=DoPublishPackage(APackage,[],true); Result:=DoPublishPackage(APackage,[],true);
end; end;
function TPkgManager.OnPackageEditorRevertPackage(Sender: TObject; function TPkgManager.PackageEditorRevertPackage(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
begin begin
if (not FilenameIsAbsolute(APackage.Filename)) if (not FilenameIsAbsolute(APackage.Filename))
@ -931,25 +929,25 @@ begin
Result:=DoOpenPackageFile(APackage.Filename,[pofRevert],false); Result:=DoOpenPackageFile(APackage.Filename,[pofRevert],false);
end; end;
function TPkgManager.OnPackageEditorUninstallPackage(Sender: TObject; function TPkgManager.PackageEditorUninstallPackage(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
begin begin
Result:=DoUninstallPackage(APackage,[],false); Result:=DoUninstallPackage(APackage,[],false);
end; end;
function TPkgManager.OnPackageEditorOpenPkgFile(Sender: TObject; function TPkgManager.PackageEditorOpenPkgFile(Sender: TObject;
PkgFile: TPkgFile): TModalResult; PkgFile: TPkgFile): TModalResult;
begin begin
Result:=DoOpenPkgFile(PkgFile); Result:=DoOpenPkgFile(PkgFile);
end; end;
procedure TPkgManager.OnPackageEditorFreeEditor(APackage: TLazPackage); procedure TPkgManager.PackageEditorFreeEditor(APackage: TLazPackage);
begin begin
APackage.Editor:=nil; APackage.Editor:=nil;
PackageGraph.ClosePackage(APackage); PackageGraph.ClosePackage(APackage);
end; end;
procedure TPkgManager.OnPackageEditorGetUnitRegisterInfo(Sender: TObject; procedure TPkgManager.PackageEditorGetUnitRegisterInfo(Sender: TObject;
const AFilename: string; out TheUnitName: string; out HasRegisterProc: boolean); const AFilename: string; out TheUnitName: string; out HasRegisterProc: boolean);
begin begin
DoGetUnitRegisterInfo(AFilename,TheUnitName,HasRegisterProc,true); DoGetUnitRegisterInfo(AFilename,TheUnitName,HasRegisterProc,true);
@ -961,13 +959,13 @@ begin
Result:=CheckInterPkgFiles(IDEObject,PkgList,FilesChanged); Result:=CheckInterPkgFiles(IDEObject,PkgList,FilesChanged);
end; end;
function TPkgManager.OnPackageEditorOpenPackage(Sender: TObject; function TPkgManager.PackageEditorOpenPackage(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
begin begin
Result:=DoOpenPackage(APackage,[],false); Result:=DoOpenPackage(APackage,[],false);
end; end;
function TPkgManager.OnPackageEditorSavePackage(Sender: TObject; function TPkgManager.PackageEditorSavePackage(Sender: TObject;
APackage: TLazPackage; SaveAs: boolean): TModalResult; APackage: TLazPackage; SaveAs: boolean): TModalResult;
begin begin
if SaveAs then if SaveAs then
@ -976,7 +974,7 @@ begin
Result:=DoSavePackage(APackage,[]); Result:=DoSavePackage(APackage,[]);
end; end;
function TPkgManager.OnPackageEditorViewPkgSource(Sender: TObject; function TPkgManager.PackageEditorViewPkgSource(Sender: TObject;
APackage: TLazPackage): TModalResult; APackage: TLazPackage): TModalResult;
begin begin
Result:=DoOpenPackageSource(APackage); Result:=DoOpenPackageSource(APackage);
@ -1105,7 +1103,7 @@ begin
end; end;
end; end;
procedure TPkgManager.OnApplicationIdle(Sender: TObject; var Done: Boolean); procedure TPkgManager.ApplicationIdleHandler(Sender: TObject; var Done: Boolean);
begin begin
if PackageGraph = nil then Exit; if PackageGraph = nil then Exit;
if MainIDE.ToolStatus<>itNone then exit; if MainIDE.ToolStatus<>itNone then exit;
@ -2964,30 +2962,30 @@ begin
// package editors // package editors
PackageEditors:=TPackageEditors.Create; PackageEditors:=TPackageEditors.Create;
PackageEditors.OnAddToProject:=@OnPackageEditorAddToProject; PackageEditors.OnAddToProject:=@PackageEditorAddToProject;
PackageEditors.OnAfterWritePackage:=@OnAfterWritePackage; PackageEditors.OnAfterWritePackage:=@AfterWritePackage;
PackageEditors.OnBeforeReadPackage:=@OnBeforeReadPackage; PackageEditors.OnBeforeReadPackage:=@BeforeReadPackage;
PackageEditors.OnCompilePackage:=@OnPackageEditorCompilePackage; PackageEditors.OnCompilePackage:=@PackageEditorCompilePackage;
PackageEditors.OnCopyMoveFiles:=@OnPackageEditorCopyMoveFiles; PackageEditors.OnCopyMoveFiles:=@PackageEditorCopyMoveFiles;
PackageEditors.OnCreateFpmakeFile:=@OnPackageEditorCreateFpmakeFile; PackageEditors.OnCreateFpmakeFile:=@PackageEditorCreateFpmakeFile;
PackageEditors.OnCreateMakefile:=@OnPackageEditorCreateMakefile; PackageEditors.OnCreateMakefile:=@PackageEditorCreateMakefile;
PackageEditors.OnCreateNewFile:=@OnPackageEditorCreateFile; PackageEditors.OnCreateNewFile:=@PackageEditorCreateFile;
PackageEditors.OnDeleteAmbiguousFiles:=@OnPackageEditorDeleteAmbiguousFiles; PackageEditors.OnDeleteAmbiguousFiles:=@PackageEditorDeleteAmbiguousFiles;
PackageEditors.OnDragDropTreeView:=@OnPackageEditorDragDropTreeView; PackageEditors.OnDragDropTreeView:=@PackageEditorDragDropTreeView;
PackageEditors.OnDragOverTreeView:=@OnPackageEditorDragOverTreeView; PackageEditors.OnDragOverTreeView:=@PackageEditorDragOverTreeView;
PackageEditors.OnShowFindInFiles:=@OnPackageEditorFindInFiles; PackageEditors.OnShowFindInFiles:=@PackageEditorFindInFiles;
PackageEditors.OnFreeEditor:=@OnPackageEditorFreeEditor; PackageEditors.OnFreeEditor:=@PackageEditorFreeEditor;
PackageEditors.OnGetIDEFileInfo:=@MainIDE.GetIDEFileState; PackageEditors.OnGetIDEFileInfo:=@MainIDE.GetIDEFileState;
PackageEditors.OnGetUnitRegisterInfo:=@OnPackageEditorGetUnitRegisterInfo; PackageEditors.OnGetUnitRegisterInfo:=@PackageEditorGetUnitRegisterInfo;
PackageEditors.OnInstallPackage:=@OnPackageEditorInstallPackage; PackageEditors.OnInstallPackage:=@PackageEditorInstallPackage;
PackageEditors.OnOpenFile:=@MainIDE.DoOpenMacroFile; PackageEditors.OnOpenFile:=@MainIDE.DoOpenMacroFile;
PackageEditors.OnOpenPackage:=@OnPackageEditorOpenPackage; PackageEditors.OnOpenPackage:=@PackageEditorOpenPackage;
PackageEditors.OnOpenPkgFile:=@OnPackageEditorOpenPkgFile; PackageEditors.OnOpenPkgFile:=@PackageEditorOpenPkgFile;
PackageEditors.OnPublishPackage:=@OnPackageEditorPublishPackage; PackageEditors.OnPublishPackage:=@PackageEditorPublishPackage;
PackageEditors.OnRevertPackage:=@OnPackageEditorRevertPackage; PackageEditors.OnRevertPackage:=@PackageEditorRevertPackage;
PackageEditors.OnSavePackage:=@OnPackageEditorSavePackage; PackageEditors.OnSavePackage:=@PackageEditorSavePackage;
PackageEditors.OnUninstallPackage:=@OnPackageEditorUninstallPackage; PackageEditors.OnUninstallPackage:=@PackageEditorUninstallPackage;
PackageEditors.OnViewPackageSource:=@OnPackageEditorViewPkgSource; PackageEditors.OnViewPackageSource:=@PackageEditorViewPkgSource;
// package macros // package macros
CodeToolBoss.DefineTree.MacroFunctions.AddExtended( CodeToolBoss.DefineTree.MacroFunctions.AddExtended(
@ -3007,7 +3005,7 @@ begin
LazPackageDescriptors.AddDefaultPackageDescriptors; LazPackageDescriptors.AddDefaultPackageDescriptors;
// idle handler // idle handler
Application.AddOnIdleHandler(@OnApplicationIdle,true); Application.AddOnIdleHandler(@ApplicationIdleHandler,true);
end; end;
destructor TPkgManager.Destroy; destructor TPkgManager.Destroy;
@ -3136,7 +3134,7 @@ begin
GetPackageOfCurrentSourceEditor(APackage); GetPackageOfCurrentSourceEditor(APackage);
if APackage<>nil then if APackage<>nil then
AddMenuItemProc(Format(lisOpenPackage2, [APackage.Name]), true, AddMenuItemProc(Format(lisOpenPackage2, [APackage.Name]), true,
@OnOpenPackageForCurrentSrcEditFile); @OpenPackageForCurrentSrcEditFile);
end; end;
procedure TPkgManager.TranslateResourceStrings; procedure TPkgManager.TranslateResourceStrings;