← Back to branch summary

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

« back to all changes in this revision

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

  • Committer: Bazaar Package Importer
  • Author(s): Carlos Laviola
  • Date: 2004-08-12 16:29:37 UTC
  • mfrom: (1.2.1 upstream) (2.1.1 warty)
  • Revision ID: james.westby@ubuntu.com-20040812162937-moo8ulvysp1ln771
Tags: 1.9.4-5
http://bugs.debian.org/265265
fp-compiler: needs ld, adding dependency on binutils.  (Closes: #265265)

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/gtk/gtk/gtkinputdialog.pp
1
 
{
2
 
   $Id: gtkinputdialog.pp,v 1.1 2000/07/13 06:34:04 michael Exp $
3
 
}
4
 
 
5
 
{****************************************************************************
6
 
                                 Interface
7
 
****************************************************************************}
8
 
 
9
 
{$ifdef read_interface}
10
 
 
11
 
  type
12
 
     PGtkInputDialog = ^TGtkInputDialog;
13
 
     TGtkInputDialog = record
14
 
          dialog : TGtkDialog;
15
 
          axis_list : PGtkWidget;
16
 
          axis_listbox : PGtkWidget;
17
 
          mode_optionmenu : PGtkWidget;
18
 
          close_button : PGtkWidget;
19
 
          save_button : PGtkWidget;
20
 
          axis_items : array[0..ord(GDK_AXIS_LAST)-1] of PGtkWidget;
21
 
          current_device : guint32;
22
 
          keys_list : PGtkWidget;
23
 
          keys_listbox : PGtkWidget;
24
 
       end;
25
 
 
26
 
     PGtkInputDialogClass = ^TGtkInputDialogClass;
27
 
     TGtkInputDialogClass = record
28
 
          parent_class : TGtkWindowClass;
29
 
          enable_device : procedure (inputd:PGtkInputDialog; devid:guint32);cdecl;
30
 
          disable_device : procedure (inputd:PGtkInputDialog; devid:guint32);cdecl;
31
 
       end;
32
 
 
33
 
Type
34
 
  GTK_INPUT_DIALOG=PGtkInputDialog;
35
 
  GTK_INPUT_DIALOG_CLASS=PGtkInputDialogClass;
36
 
 
37
 
function  GTK_INPUT_DIALOG_TYPE:TGtkType;cdecl;external gtkdll name 'gtk_input_dialog_get_type';
38
 
function  GTK_IS_INPUT_DIALOG(obj:pointer):boolean;
39
 
function  GTK_IS_INPUT_DIALOG_CLASS(klass:pointer):boolean;
40
 
 
41
 
function  gtk_input_dialog_get_type:TGtkType;cdecl;external gtkdll name 'gtk_input_dialog_get_type';
42
 
function  gtk_input_dialog_new:PGtkWidget;cdecl;external gtkdll name 'gtk_input_dialog_new';
43
 
 
44
 
{$endif read_interface}
45
 
 
46
 
 
47
 
{****************************************************************************
48
 
                              Implementation
49
 
****************************************************************************}
50
 
 
51
 
{$ifdef read_implementation}
52
 
 
53
 
function  GTK_IS_INPUT_DIALOG(obj:pointer):boolean;
54
 
begin
55
 
  GTK_IS_INPUT_DIALOG:=(obj<>nil) and GTK_IS_INPUT_DIALOG_CLASS(PGtkTypeObject(obj)^.klass);
56
 
end;
57
 
 
58
 
function  GTK_IS_INPUT_DIALOG_CLASS(klass:pointer):boolean;
59
 
begin
60
 
  GTK_IS_INPUT_DIALOG_CLASS:=(klass<>nil) and (PGtkTypeClass(klass)^.thetype=GTK_INPUT_DIALOG_TYPE);
61
 
end;
62
 
 
63
 
{$endif read_implementation}
64
 
 
65
 
 
66
 
{
67
 
  $Log: gtkinputdialog.pp,v $
68
 
  Revision 1.1  2000/07/13 06:34:04  michael
69
 
  + Initial import
70
 
 
71
 
  Revision 1.1  1999/11/24 23:36:36  peter
72
 
    * moved to packages dir
73
 
 
74
 
  Revision 1.9  1999/10/06 17:42:49  peter
75
 
    * external is now only in the interface
76
 
    * removed gtk 1.0 support
77
 
 
78
 
  Revision 1.8  1999/07/23 16:12:32  peter
79
 
    * use packrecords C
80
 
 
81
 
  Revision 1.7  1999/05/11 00:38:47  peter
82
 
    * win32 fixes
83
 
 
84
 
  Revision 1.6  1999/05/10 15:19:38  peter
85
 
    * cdecl fixes
86
 
 
87
 
  Revision 1.5  1999/05/10 09:03:17  peter
88
 
    * gtk 1.2 port working
89
 
 
90
 
  Revision 1.4  1998/11/09 10:10:04  peter
91
 
    + C type casts are now correctly handled
92
 
 
93
 
  Revision 1.3  1998/10/21 20:22:42  peter
94
 
    * cdecl, packrecord fixes (from the gtk.tar.gz)
95
 
    * win32 support
96
 
    * gtk.pp,gdk.pp for an all in one unit
97
 
 
98
 
}
99