← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/gtk2/gtk+/gtk/gtktextmarkprivate.inc

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/gtk2/gtk+/gtk/gtktextmarkprivate.inc
1
 
// included by gtk2.pas
2
 
 
3
 
{$IFDEF read_forward_definitions}
4
 
{$ENDIF read_forward_definitions}
5
 
 
6
 
//------------------------------------------------------------------------------
7
 
 
8
 
{$IFDEF read_interface_types}
9
 
{
10
 
   The data structure below defines line segments that represent
11
 
   marks.  There is one of these for each mark in the text.
12
 
  }
13
 
   PGtkTextMarkBody = ^TGtkTextMarkBody;
14
 
   TGtkTextMarkBody = record
15
 
        obj : PGtkTextMark;
16
 
        name : Pgchar;
17
 
        tree : PGtkTextBTree;
18
 
        line : PGtkTextLine;
19
 
        flag0 : word;
20
 
     end;
21
 
{$ENDIF read_interface_types}
22
 
 
23
 
//------------------------------------------------------------------------------
24
 
 
25
 
{$IFDEF read_interface_rest}
26
 
const
27
 
   bm_TGtkTextMarkBody_visible = $1;
28
 
   bp_TGtkTextMarkBody_visible = 0;
29
 
   bm_TGtkTextMarkBody_not_deleteable = $2;
30
 
   bp_TGtkTextMarkBody_not_deleteable = 1;
31
 
 
32
 
function visible(var a : TGtkTextMarkBody) : guint; overload;
33
 
procedure set_visible(var a : TGtkTextMarkBody; __visible : guint); overload;
34
 
function not_deleteable(var a : TGtkTextMarkBody) : guint;
35
 
procedure set_not_deleteable(var a : TGtkTextMarkBody; __not_deleteable : guint);
36
 
 
37
 
 
38
 
function _gtk_mark_segment_new(tree:PGtkTextBTree; left_gravity:gboolean; name:Pgchar):PGtkTextLineSegment; cdecl; external gtklib;
39
 
{$ENDIF read_interface_rest}
40
 
 
41
 
//------------------------------------------------------------------------------
42
 
 
43
 
{$IFDEF read_implementation}
44
 
function visible(var a : TGtkTextMarkBody) : guint;
45
 
begin
46
 
   visible:=(a.flag0 and bm_TGtkTextMarkBody_visible) shr bp_TGtkTextMarkBody_visible;
47
 
end;
48
 
 
49
 
procedure set_visible(var a : TGtkTextMarkBody; __visible : guint);
50
 
begin
51
 
   a.flag0:=a.flag0 or ((__visible shl bp_TGtkTextMarkBody_visible) and bm_TGtkTextMarkBody_visible);
52
 
end;
53
 
 
54
 
function not_deleteable(var a : TGtkTextMarkBody) : guint;
55
 
begin
56
 
   not_deleteable:=(a.flag0 and bm_TGtkTextMarkBody_not_deleteable) shr bp_TGtkTextMarkBody_not_deleteable;
57
 
end;
58
 
 
59
 
procedure set_not_deleteable(var a : TGtkTextMarkBody; __not_deleteable : guint);
60
 
begin
61
 
   a.flag0:=a.flag0 or ((__not_deleteable shl bp_TGtkTextMarkBody_not_deleteable) and bm_TGtkTextMarkBody_not_deleteable);
62
 
end;
63
 
 
64
 
{$ENDIF read_implementation}
65
 
// included by gtk2.pas
66