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

AJ: initial GNOME interface directory

Browse Source 
git-svn-id: trunk@1236 -
This commit is contained in:
lazarus 2002-02-09 01:48:09 +00:00
parent ab90235bb0
commit 113fc21c46
6 changed files with 1567 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -464,6 +464,9 @@ lcl/include/winapih.inc svneol=native#text/pascal
lcl/include/wincontrol.inc svneol=native#text/pascal
lcl/interfacebase.pp svneol=native#text/pascal
lcl/interfaces/abstract/interfaces.pp svneol=native#text/pascal
lcl/interfaces/gnome/gnomeint.pp svneol=native#text/pascal
lcl/interfaces/gnome/gnomewinapi.inc svneol=native#text/pascal
lcl/interfaces/gnome/gnomewinapih.inc svneol=native#text/pascal
lcl/interfaces/gtk/dragicons.inc svneol=native#text/pascal
lcl/interfaces/gtk/gdkpixbuf.pp svneol=native#text/pascal
lcl/interfaces/gtk/gtkcallback.inc svneol=native#text/pascal

1416
lcl/interfaces/gnome/Makefile Normal file
View File

File diff suppressed because it is too large Load Diff

35
lcl/interfaces/gnome/Makefile.fpc Normal file
View File

@ -0,0 +1,35 @@
# $Id$
#
# Makefile.fpc for Lazarus for Free Pascal
#
[package]
main=lazarus/lcl
version=0.8a
[require]
packages=rtl fcl gtk
[target]
units=interfaces
implicitunits=gnomeint
[compiler]
options=-gl
unitdir=../../units .
unittargetdir=../../units/gnome
[clean]
files=$(wildcard ../../units/gnome/*$(OEXT)) \
$(wildcard ../../units/gnome/*$(PPUEXT)) \
$(wildcard ../../units/gnome/*$(RSTEXT)) \
$(wildcard *$(OEXT)) $(wildcard *$(PPUEXT)) $(wildcard *$(RSTEXT))
[rules]
.PHONY: cleartarget all
cleartarget:
-$(DEL) ../../units/gnome/interfaces$(PPUEXT) ../../units/interfaces$(PPUEXT)
all: cleartarget interfaces$(PPUEXT)

59
lcl/interfaces/gnome/gnomeint.pp Normal file
View File

@ -0,0 +1,59 @@
{
/***************************************************************************
GNOMEINT.pp - GNOMEInterface Object
-------------------
Initial Revision : Thu Oct 3rd EST 2002
***************************************************************************/
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.LCL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
}
unit GNOMEInt;
{$mode objfpc}
{$LONGSTRINGS ON}
interface
{$ifdef Trace}
{$ASSERTIONS ON}
{$endif}
{off $DEFINE NoGdkPixbufLib}
uses
InterfaceBase, {$Ifndef NoGdkPixbufLib}gdkpixbuf,{$EndIf} gtk, gdk,
glib, SysUtils, LMessages, Classes, Controls, Forms, VclGlobals,
LCLLinux, LCLType, gtkDef, DynHashArray, LazQueue, GraphType,
GraphicsMath, gtkInt;
type
TGnomeObject = class(TGtkObject)
public
{$I gnomewinapih.inc}
end;
implementation
{$I gnomewinapi.inc}
initialization
finalization
end.

34
lcl/interfaces/gnome/gnomewinapi.inc Normal file
View File

@ -0,0 +1,34 @@
{******************************************************************************
All GNOME Winapi implementations.
Initial Revision : Thu Oct 3 1:35:53 2002
!! Keep alphabetical !!
******************************************************************************
Implementation
******************************************************************************
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.LCL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
}
{$IFOPT C-}
// Uncomment for local trace
// {$C+}
// {$DEFINE ASSERT_IS_ON}
{$EndIf}
{$IfDef ASSERT_IS_ON}
{$UNDEF ASSERT_IS_ON}
{$C-}
{$EndIf}

20
lcl/interfaces/gnome/gnomewinapih.inc Normal file
View File

@ -0,0 +1,20 @@
(******************************************************************************
All GNOME Winapi related stuff goes here.
!! Keep this alphabetical !!
******************************************************************************)
{
*****************************************************************************
* *
* This file is part of the Lazarus Component Library (LCL) *
* *
* See the file COPYING.LCL, included in this distribution, *
* for details about the copyright. *
* *
* This program is distributed in the hope that it will be useful, *
* but WITHOUT ANY WARRANTY; without even the implied warranty of *
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. *
* *
*****************************************************************************
}