← Back to branch summary

~ubuntu-branches/ubuntu/dapper/fpc/dapper

« back to all changes in this revision

Viewing changes to packages/gtk/gtk/gtkvseparator.pp

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2001-08-29 23:15:17 UTC
  • Revision ID: james.westby@ubuntu.com-20010829231517-thxsp7ctuab584ia
Tags: upstream-1.0.4
Import upstream version 1.0.4

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/gtk/gtk/gtkvseparator.pp
 
1
{
 
2
   $Id: gtkvseparator.pp,v 1.1 2000/07/13 06:34:08 michael Exp $
 
3
}
 
4
 
 
5
{****************************************************************************
 
6
                                 Interface
 
7
****************************************************************************}
 
8
 
 
9
{$ifdef read_interface}
 
10
 
 
11
  type
 
12
     PGtkVSeparator = ^TGtkVSeparator;
 
13
     TGtkVSeparator = record
 
14
          separator : TGtkSeparator;
 
15
       end;
 
16
 
 
17
     PGtkVSeparatorClass = ^TGtkVSeparatorClass;
 
18
     TGtkVSeparatorClass = record
 
19
          parent_class : TGtkSeparatorClass;
 
20
       end;
 
21
 
 
22
Type
 
23
  GTK_VSEPARATOR=PGtkVSeparator;
 
24
  GTK_VSEPARATOR_CLASS=PGtkVSeparatorClass;
 
25
 
 
26
function  GTK_VSEPARATOR_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_vseparator_get_type';
 
27
function  GTK_IS_VSEPARATOR(obj:pointer):boolean;
 
28
function  GTK_IS_VSEPARATOR_CLASS(klass:pointer):boolean;
 
29
 
 
30
function  gtk_vseparator_get_type:TGtkType;cdecl;external gtkdll name 'gtk_vseparator_get_type';
 
31
function  gtk_vseparator_new:PGtkWidget;cdecl;external gtkdll name 'gtk_vseparator_new';
 
32
 
 
33
{$endif read_interface}
 
34
 
 
35
 
 
36
{****************************************************************************
 
37
                              Implementation
 
38
****************************************************************************}
 
39
 
 
40
{$ifdef read_implementation}
 
41
 
 
42
function  GTK_IS_VSEPARATOR(obj:pointer):boolean;
 
43
begin
 
44
  GTK_IS_VSEPARATOR:=(obj<>nil) and GTK_IS_VSEPARATOR_CLASS(PGtkTypeObject(obj)^.klass);
 
45
end;
 
46
 
 
47
function  GTK_IS_VSEPARATOR_CLASS(klass:pointer):boolean;
 
48
begin
 
49
  GTK_IS_VSEPARATOR_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_VSEPARATOR_TYPE);
 
50
end;
 
51
 
 
52
{$endif read_implementation}
 
53
 
 
54
 
 
55
{
 
56
  $Log: gtkvseparator.pp,v $
 
57
  Revision 1.1  2000/07/13 06:34:08  michael
 
58
  + Initial import
 
59
 
 
60
  Revision 1.1  1999/11/24 23:36:37  peter
 
61
    * moved to packages dir
 
62
 
 
63
  Revision 1.10  1999/10/06 17:42:51  peter
 
64
    * external is now only in the interface
 
65
    * removed gtk 1.0 support
 
66
 
 
67
  Revision 1.9  1999/07/23 16:13:28  peter
 
68
    * use packrecords C
 
69
 
 
70
  Revision 1.8  1999/05/11 00:39:49  peter
 
71
    * win32 fixes
 
72
 
 
73
  Revision 1.7  1999/05/10 15:20:49  peter
 
74
    * cdecl fixes
 
75
 
 
76
  Revision 1.6  1999/05/10 09:04:13  peter
 
77
    * gtk 1.2 port working
 
78
 
 
79
  Revision 1.5  1999/05/07 15:10:25  peter
 
80
    * more fixes
 
81
 
 
82
  Revision 1.4  1998/11/09 10:10:50  peter
 
83
    + C type casts are now correctly handled
 
84
 
 
85
  Revision 1.3  1998/10/21 20:23:32  peter
 
86
    * cdecl, packrecord fixes (from the gtk.tar.gz)
 
87
    * win32 support
 
88
    * gtk.pp,gdk.pp for an all in one unit
 
89
 
 
90
}
 
91