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

fixes for fpc 1.1

Browse Source 
git-svn-id: trunk@3932 -
This commit is contained in:
mattias 2003-03-15 13:26:07 +00:00
parent 87fe34c5dc
commit ed32183912
8 changed files with 63 additions and 127 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/comctrls.pp
View File

@ -161,8 +161,8 @@ type
procedure SetCaption(const AValue : String);
// Procedure SetSubItems(Value : TStrings);
function GetIndex : Integer;
function GetSubItemImages(aIndex: Integer): Integer;
procedure SetSubItemImages(aIndex: Integer; const AValue: Integer);
function GetSubItemImages(AnIndex: Integer): Integer;
procedure SetSubItemImages(AnIndex: Integer; const AValue: Integer);
protected
Procedure ItemChanged(sender : TObject); //called by the onchange of the tstringlist in TListItem
function IsEqual(Item : TListItem) : Boolean;
@ -181,7 +181,7 @@ type
property Owner : TListItems read FOwner;
property Selected: Boolean index 3 read GetState write SetState;
property SubItems : TStrings read FSubItems write FSubItems;//SetSubItems;
property SubItemImages[Index: Integer]: Integer
property SubItemImages[AnIndex: Integer]: Integer
read GetSubItemImages write SetSubItemImages;
end;
@ -1724,6 +1724,9 @@ end.
{ =============================================================================
$Log$
Revision 1.67 2003/03/15 13:26:07 mattias
fixes for fpc 1.1
Revision 1.66 2003/03/11 07:46:43 mattias
more localization for gtk- and win32-interface and lcl

15
lcl/include/listitem.inc
View File

@ -59,10 +59,10 @@ end;
{------------------------------------------------------------------------------}
{ TListItem SetSubItemImages }
{------------------------------------------------------------------------------}
procedure TListItem.SetSubItemImages(aIndex: Integer; const AValue: Integer);
procedure TListItem.SetSubItemImages(AnIndex: Integer; const AValue: Integer);
begin
if (aIndex >= 0) and (aIndex < SubItems.Count) then
SubItems.Objects[aIndex] := TObject(Pointer(aValue));
if (AnIndex >= 0) and (AnIndex < SubItems.Count) then
SubItems.Objects[AnIndex] := TObject(Pointer(aValue));
end;
{------------------------------------------------------------------------------}
@ -125,10 +125,10 @@ end;
{------------------------------------------------------------------------------}
{ TListItem GetSubItemImages }
{------------------------------------------------------------------------------}
function TListItem.GetSubItemImages(aIndex: Integer): Integer;
function TListItem.GetSubItemImages(ANIndex: Integer): Integer;
begin
if (aIndex >= 0) and (aIndex < SubItems.Count) then
Result := Integer(SubItems.Objects[aIndex])
if (AnIndex >= 0) and (AnIndex < SubItems.Count) then
Result := Integer(SubItems.Objects[AnIndex])
else
Result := -1;
end;
@ -147,6 +147,9 @@ end;
{ =============================================================================
$Log$
Revision 1.15 2003/03/15 13:26:07 mattias
fixes for fpc 1.1
Revision 1.14 2003/02/24 19:00:42 mattias
added TlistView.SubItem improvements from Olivier Guilbaud

15
tools/install/README
View File

@ -12,15 +12,22 @@ Creating the fpcsrc tgz:
There are two ways to do it and so there are two scripts. The first downloads
the fpc cvs and packs it. The second uses an existing fpc cvs directory,
copies it, remove unnecessary files and packs it. The second script is
therefore much faster, but it may miss removing all old, unnecessary files.
therefore much faster, but it may miss removing every old, unnecessary files.
The download and pack script:
The script create_fpc_snapshot_tgz.sh makes a cvs export of the
fpc FIXES_1_0_0 branch and compress it to fpcsrc-1.0.7-1.tgz.
The script create_fpc_snapshot_tgz.sh makes a cvs export of the fpc.
For the current 1.0.7 use
./create_fpc_snapshot_tgz.sh fpcsrc-1.0.7-20030315.tgz -r FIXES_1_0_0
For the the 1.1 from december 25, 2002 use
./create_fpc_snapshot_tgz.sh fpcsrc-1.1-20021225.tgz -D 25/12/02
The copy and pack script:
The script create_fpc_tgz_from_local_dir.sh needs as parameter the fpc cvs
directory and compress it to fpcsrc-1.0.7-1.tgz.
directory and compress it to a tgz. For example
./create_fpc_tgz_from_local_dir.sh ~/pascal/fpc fpc-1.0.7.tgz
Creating the lazarus tgz:

22
tools/install/create_fpc_snapshot_tgz.sh
View File

@ -3,14 +3,27 @@
#set -x
set -e
OutputFile=fpcsrc-1.0.7-1.tgz
OutputFile=$1
shift
CVSParams=$@
echo "downloading fpc branch cvs FIXES_1_0_0 ..."
Usage="$0 outputfilename [cvs params]"
if [ "x$OutputFile" = "x" ]; then
echo $Usage
exit
fi
if [ "x$CVSParams" = "x" ]; then
CVSParams="-r FIXES_1_0_0"
fi
echo downloading cvs $CVSParams ...
cd /tmp
rm -rf /tmp/fpc
export CVSROOT=:pserver:cvs@cvs.freepascal.org:/FPC/CVS
echo "The password is: cvs"
cvs login
cvs -z3 export -r FIXES_1_0_0 fpc
cvs -z3 export $CVSParams fpc
# pack
echo "creating tgz ..."
@ -19,8 +32,5 @@ cd -
mv /tmp/fpc_src.tgz $OutputFile
rm -rf /tmp/fpc
echo ""
echo "NOTE: DON'T FORGET TO PUT THE $OutputFile INTO /usr/src/redhat/SOURCES/"
# end.

16
tools/install/create_fpc_tgz_from_local_dir.sh
View File

@ -4,14 +4,24 @@ set -e
#set -x
FPCSrcDir=$1
OutputFile=fpcsrc-1.0.7-1.tgz
OutputFile=$2
fpcsrc-1.0.7-1.tgz
Usage="Usage: $0 <fpc_source_directory> <outputfile>"
if [ "x$FPCSrcDir" = "x" ]; then
echo "Usage: $0 <fpc_source_directory>"
echo $Usage
exit
fi
if [ "x$OutputFile" = "x" ]; then
echo $Usage
exit
fi
if [ ! -d $FPCSrcDir/compiler ]; then
echo "The directory does not look like a fpc source directory (fpc/)"
echo "The directory $FPCSrcDir does not look like a fpc source directory (fpc/)"
exit
fi

13
tools/install/create_lazarus_snapshot_tgz.sh
View File

@ -3,7 +3,13 @@
#set -x
set -e
OutFile=lazarus-0.8.5-1.tgz
OutputFile=$1
Usage="$0 outputfilename"
if [ "x$OutputFile" = "x" ]; then
echo $Usage
exit
fi
echo "downloading lazarus cvs ..."
cd /tmp
@ -15,11 +21,8 @@ cvs -z3 export -r HEAD lazarus
echo "packing ..."
tar cvzf lazarus.tgz lazarus
cd -
mv /tmp/lazarus.tgz $OutFile
mv /tmp/lazarus.tgz $OutputFile
rm -rf /tmp/lazarus
echo ""
echo "NOTE: DON'T FORGET TO PUT THE $OutFile INTO /usr/src/redhat/SOURCES/"
# end.

46
tools/install/fpcsrc-1.0.7-1.spec
View File

@ -1,46 +0,0 @@
Name: fpcsrc
Version: 1.0.7
Release: 1
Copyright: GPL
Group: Development/Languages
Source: %{name}-%{version}-%{release}.tgz
Summary: FreePascal sources 1.0.7
Packager: Mattias Gaertner (gaertner@informatik.uni-koeln.de)
URL: http://www.freepascal.org/
BuildRoot: %{_tmppath}/fpcsrc-build
%description
The Free Pascal Compiler is a Turbo Pascal 7.0 and Delphi compatible 32bit
Pascal Compiler. It comes with fully TP 7.0 compatible run-time library.
Some extensions are added to the language, like function overloading. Shared
libraries can be linked. Basic Delphi support is already implemented (classes,
exceptions, ansistrings, RTTI). This package contains the sources for the
commandline compiler and utils. Provided units are the runtime library (RTL),
free component library (FCL), gtk, ncurses, zlib, mysql, postgres, ibase
bindings and many more.
%prep
%setup -c
%build
%install
if [ %{buildroot} != "/" ]; then
rm -rf %{buildroot}
fi
mkdir -p %{buildroot}%{_datadir}/fpcsrc
cp -a fpc/* %{buildroot}%{_datadir}/fpcsrc/
%clean
if [ %{buildroot} != "/" ]; then
rm -rf %{buildroot}
fi
%files
%defattr(-,root,root)
%{_datadir}/fpcsrc
%changelog

54
tools/install/lazarus-0.8.5-1.spec
View File

@ -1,54 +0,0 @@
Name: lazarus
Version: 0.8.5
Release: 1
Copyright: GPL
Group: Development/Tools
Source: %{name}-%{version}.tgz
Summary: Lazarus Component Library and IDE
Packager: Mattias Gaertner (gaertner@informatik.uni-koeln.de)
URL: http://www.lazarus.freepascal.org/
BuildRoot: %{_tmppath}/lazarus-build
BuildRequires: fpc >= 1.0.7
Requires: fpcsrc >= 1.0.7
Conflicts: fpcsrc >= 1.1
%define lazdir %{_datadir}/lazarus
%description
Lazarus is a free RAD tool for freepascal using the lazarus component library.
%prep
%setup -c
%build
cd lazarus
make
%install
if [ %{buildroot} != "/" ]; then
rm -rf %{buildroot}
fi
mkdir -p %{buildroot}%{_datadir}/lazarus
mkdir -p %{buildroot}%{_bindir}
mkdir -p %{buildroot}%{_datadir}/pixmaps
mkdir -p %{buildroot}%{_datadir}/gnome/apps/Development
cp -a lazarus/* %{buildroot}%{_datadir}/lazarus/
install -m 644 lazarus/images/ide_icon48x48.png %{buildroot}%{_datadir}/pixmaps/lazarus.png
install -m 644 lazarus/gnome.ide.desktop %{buildroot}%{_datadir}/gnome/apps/Development/lazarus.desktop
ln -sf %{lazdir}/lazarus %{buildroot}%{_bindir}/lazarus
%clean
if [ %{buildroot} != "/" ]; then
rm -rf %{buildroot}
fi
%files
%defattr(-,root,root)
%{_datadir}/lazarus
%{_bindir}/lazarus
%{_datadir}/pixmaps/lazarus.png
%{_datadir}/gnome/apps/Development/lazarus.desktop
%changelog