paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-31 16:21:45 +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> </UsageOptions>
<PublishOptions> <PublishOptions>
<Version Value="2"/> <Version Value="2"/>
<DestinationDirectory Value="$(TestDir)/publishedpackage/"/> <DestinationDirectory Value="$(TestDir)/gtkopengl/"/>
<CommandAfter Value="/bin/tar -cz -C $(TestDir) -f /tmp/gtkopengl.tgz gtkopengl/"/> <CommandAfter Value="/bin/tar -cz -C $(TestDir) -f /tmp/gtkopengl.tgz gtkopengl/"/>
<UseExcludeFileFilter Value="True"/> <UseExcludeFileFilter Value="True"/>
</PublishOptions> </PublishOptions>

5
ide/project.pp
View File

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

5
ide/projectdefs.pas
View File

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

3
ide/publishmodule.pas
View File

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

4
ide/publishprojectdlg.pas
View File

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