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

reduced output

Browse Source 
git-svn-id: trunk@4149 -
This commit is contained in:
mattias 2003-05-12 14:47:45 +00:00
parent 4fbdd8f2b6
commit dff0b1e08e
5 changed files with 16 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/gtk/gtkglarea/gtkopengl.lpk
View File

@ -44,7 +44,7 @@
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<DestinationDirectory Value="$(TestDir)/publishedpackage/"/>
<DestinationDirectory Value="$(TestDir)/gtkopengl/"/>
<CommandAfter Value="/bin/tar -cz -C $(TestDir) -f /tmp/gtkopengl.tgz gtkopengl/"/>
<UseExcludeFileFilter Value="True"/>
</PublishOptions>

5
ide/project.pp
View File

@ -1330,8 +1330,10 @@ begin
xmlconfig.SetValue('ProjectOptions/General/TargetFileExt/Value'
,TargetFileExt);
xmlconfig.SetDeleteValue('ProjectOptions/General/Title/Value', Title,'');
if not (pfSaveOnlyProjectUnits in Flags) then begin
fJumpHistory.DeleteInvalidPositions;
fJumpHistory.SaveToXMLConfig(xmlconfig,'ProjectOptions/');
end;
SaveUnits;
@ -2661,6 +2663,9 @@ end.
{
$Log$
Revision 1.119 2003/05/12 14:47:45 mattias
reduced output
Revision 1.118 2003/05/12 13:11:34 mattias
implemented publish package

5
ide/projectdefs.pas
View File

@ -42,7 +42,10 @@ uses
type
TOnLoadSaveFilename = procedure(var Filename:string; Load:boolean) of object;
TProjectWriteFlag = (pwfDontSaveClosedUnits, pwfSaveOnlyProjectUnits);
TProjectWriteFlag = (
pwfDontSaveClosedUnits,
pwfSaveOnlyProjectUnits
);
TProjectWriteFlags = set of TProjectWriteFlag;
TNewUnitType = (

3
ide/publishmodule.pas
View File

@ -309,7 +309,8 @@ procedure TPublishModuleOptions.SaveToXMLConfig(XMLConfig: TXMLConfig;
const APath: string);
begin
XMLConfig.SetValue(APath+'Version/Value',PublishModulOptsVersion);
XMLConfig.SetValue(APath+'DestinationDirectory/Value',GetDefaultDestinationDir);
XMLConfig.SetDeleteValue(APath+'DestinationDirectory/Value',
DestinationDirectory,GetDefaultDestinationDir);
XMLConfig.SetDeleteValue(APath+'CommandAfter/Value',CommandAfter,'');
XMLConfig.SetDeleteValue(APath+'IgnoreBinaries/Value',IgnoreBinaries,true);
XMLConfig.SetDeleteValue(APath+'UseIncludeFileFilter/Value',

4
ide/publishprojectdlg.pas
View File

@ -225,8 +225,8 @@ begin
// command after
List:=InputHistories.HistoryLists.GetList(hlPublishProjectCommandsAfter,true);
List.AppendEntry('/bin/tar czf project.tgz -C $(TestDir) publishedproject');
List.AppendEntry('/bin/tar czf package.tgz -C $(TestDir) publishedpackage');
List.AppendEntry('/bin/tar czf $(TestDir)/project.tgz -C $(TestDir) publishedproject');
List.AppendEntry('/bin/tar czf $(TestDir)/package.tgz -C $(TestDir) publishedpackage');
CommandAfterCombobox.Items.Assign(List);
// file filter