mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-14 09:59:20 +02:00
AJ: initial GNOME interface directory
git-svn-id: trunk@1236 -
This commit is contained in:
parent
ab90235bb0
commit
113fc21c46
3
.gitattributes
vendored
3
.gitattributes
vendored
@ -464,6 +464,9 @@ lcl/include/winapih.inc svneol=native#text/pascal
|
|||||||
lcl/include/wincontrol.inc svneol=native#text/pascal
|
lcl/include/wincontrol.inc svneol=native#text/pascal
|
||||||
lcl/interfacebase.pp svneol=native#text/pascal
|
lcl/interfacebase.pp svneol=native#text/pascal
|
||||||
lcl/interfaces/abstract/interfaces.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/dragicons.inc svneol=native#text/pascal
|
||||||
lcl/interfaces/gtk/gdkpixbuf.pp svneol=native#text/pascal
|
lcl/interfaces/gtk/gdkpixbuf.pp svneol=native#text/pascal
|
||||||
lcl/interfaces/gtk/gtkcallback.inc svneol=native#text/pascal
|
lcl/interfaces/gtk/gtkcallback.inc svneol=native#text/pascal
|
||||||
|
1416
lcl/interfaces/gnome/Makefile
Normal file
1416
lcl/interfaces/gnome/Makefile
Normal file
File diff suppressed because it is too large
Load Diff
35
lcl/interfaces/gnome/Makefile.fpc
Normal file
35
lcl/interfaces/gnome/Makefile.fpc
Normal 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
59
lcl/interfaces/gnome/gnomeint.pp
Normal 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
34
lcl/interfaces/gnome/gnomewinapi.inc
Normal 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
20
lcl/interfaces/gnome/gnomewinapih.inc
Normal 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. *
|
||||||
|
* *
|
||||||
|
*****************************************************************************
|
||||||
|
}
|
||||||
|
|
Loading…
Reference in New Issue
Block a user