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

made compiling gtk2 interface easier

Browse Source 
git-svn-id: trunk@2462 -
This commit is contained in:
mattias 2002-08-17 23:41:23 +00:00
parent 6920ebca1e
commit 39e3eb11ed
3 changed files with 53 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -591,6 +591,7 @@ lcl/interfaces/gtk/interfaces.pp svneol=native#text/pascal
lcl/interfaces/gtk/keymap.pp svneol=native#text/pascal lcl/interfaces/gtk/keymap.pp svneol=native#text/pascal
lcl/interfaces/gtk/tnotebook_close_tab.xpm -text svneol=native#image/x-xpixmap lcl/interfaces/gtk/tnotebook_close_tab.xpm -text svneol=native#image/x-xpixmap
lcl/interfaces/gtk2/gtk2int.pas svneol=native#text/pascal lcl/interfaces/gtk2/gtk2int.pas svneol=native#text/pascal
lcl/interfaces/gtk2/gtk2interface.lpk svneol=native#text/pascal
lcl/interfaces/gtk2/interfaces.pas svneol=native#text/pascal lcl/interfaces/gtk2/interfaces.pas svneol=native#text/pascal
lcl/interfaces/qt/build.sh -text svneol=native#application/x-sh lcl/interfaces/qt/build.sh -text svneol=native#application/x-sh
lcl/interfaces/qt/include/lpushbt.h svneol=native#text/plain lcl/interfaces/qt/include/lpushbt.h svneol=native#text/plain

5
lcl/interfaces/gtk/gtkproc.inc
View File

@ -108,7 +108,7 @@ end;
The GTK_IS_XXX macro functions in the fpc gtk1.x bindings are not correct. The GTK_IS_XXX macro functions in the fpc gtk1.x bindings are not correct.
They just test the highest level. They just test the highest level.
This function checks just like the real C macros. This function checks as the real C macros.
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
function GtkWidgetIsA(Widget: PGtkWidget; AType: TGtkType): boolean; function GtkWidgetIsA(Widget: PGtkWidget; AType: TGtkType): boolean;
begin begin
@ -4072,6 +4072,9 @@ end;
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.173 2003/05/26 20:05:21 mattias
made compiling gtk2 interface easier
Revision 1.172 2003/05/19 08:16:33 mattias Revision 1.172 2003/05/19 08:16:33 mattias
fixed allocation of dc backcolor fixed allocation of dc backcolor

48
lcl/interfaces/gtk2/gtk2interface.lpk Normal file
View File

@ -0,0 +1,48 @@
<?xml version="1.0"?>
<CONFIG>
<Package>
<Name Value="GTK2Interface"/>
<Files Count="3">
<Item1>
<Filename Value="interfaces.pas"/>
<UnitName Value="Interfaces"/>
</Item1>
<Item2>
<Filename Value="gtk2int.pas"/>
<UnitName Value="Gtk2Int"/>
</Item2>
<Item3>
<Filename Value="/home/mattias/pascal/wichtig/lazarus/lcl/interfaces/gtk/gtkint.pp"/>
<UnitName Value="GtkInt"/>
</Item3>
</Files>
<Type Value="RunAndDesignTime"/>
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="gtk2forLazarus"/>
</Item1>
<Item2>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>
<CompilerOptions>
<SearchPaths>
<OtherUnitFiles Value="../gtk/;../../units"/>
<UnitOutputDirectory Value="../../units/gtk2"/>
<LCLWidgetType Value="gtk"/>
</SearchPaths>
<Other>
<CustomOptions Value="-dGTK2"/>
<CompilerPath Value="$(CompPath)"/>
</Other>
</CompilerOptions>
</CONFIG>