paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-24 07:30:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Show message when downloading package

Browse Source 
git-svn-id: trunk@16935 -
This commit is contained in:
joost 2011-02-18 22:03:38 +00:00
parent 8db33f71c7
commit 445dd5fc91
2 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
utils/fppkg/pkgdownload.pp
View File

@ -169,6 +169,7 @@ begin
with DownloaderClass.Create(nil) do with DownloaderClass.Create(nil) do
try try
Log(vlCommands,SLogDownloading,[PackageRemoteArchive(P),PackageLocalArchive(P)]); Log(vlCommands,SLogDownloading,[PackageRemoteArchive(P),PackageLocalArchive(P)]);
pkgglobals.Log(vlProgres,SProgrDownloadPackage,[P.Name, P.Version.AsString]);
Download(PackageRemoteArchive(P),PackageLocalArchive(P)); Download(PackageRemoteArchive(P),PackageLocalArchive(P));
finally finally
Free; Free;

1
utils/fppkg/pkgmessages.pp
View File

@ -113,6 +113,7 @@ Resourcestring
SProgrReinstallDependent = 'Re-install packages which are dependent on just installed packages'; SProgrReinstallDependent = 'Re-install packages which are dependent on just installed packages';
SProgrInstallDependencies = 'Install dependencies'; SProgrInstallDependencies = 'Install dependencies';
SProgrDependenciesInstalled= 'Dependencies installed'; SProgrDependenciesInstalled= 'Dependencies installed';
SProgrDownloadPackage = 'Downloading package %s version %s';
implementation implementation