← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to packages/extra/palmunits/rect.pp

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/palmunits/rect.pp
1
 
(******************************************************************************
2
 
 *
3
 
 * Copyright (c) 1994-2000 Palm, Inc. or its subsidiaries.
4
 
 * All rights reserved.
5
 
 *
6
 
 * File: Rect.h
7
 
 *
8
 
 * Release: Palm OS SDK 4.0 (63220)
9
 
 *
10
 
 * Description:
11
 
 *   This file defines rectangle structures and routines.
12
 
 *
13
 
 * History:
14
 
 *    November 3, 1994  Created by Roger Flores
15
 
 *       Name  Date     Description
16
 
 *       ----  ----     -----------
17
 
 *       bob   2/9/99   Use Coord abstraction, fix up consts
18
 
 *
19
 
 *****************************************************************************)
20
 
{$MACRO ON}
21
 
 
22
 
unit rect;
23
 
 
24
 
interface
25
 
 
26
 
uses palmos, coretraps; 
27
 
 
28
 
type
29
 
  AbsRectType = record
30
 
    left: Coord;
31
 
    top: Coord;
32
 
    right: Coord;
33
 
    bottom: Coord;
34
 
  end;
35
 
 
36
 
  PointType = record
37
 
    x: Coord;
38
 
    y: Coord;
39
 
  end;
40
 
  PointPtr = ^PointType;
41
 
 
42
 
  RectangleType = record
43
 
    topLeft: PointType;
44
 
    extent: PointType;
45
 
  end;
46
 
 
47
 
  RectanglePtr = ^RectangleType;
48
 
 
49
 
procedure RctSetRectangle(var rP: RectangleType; left, top, width, height: Coord); syscall sysTrapRctSetRectangle;
50
 
 
51
 
procedure RctCopyRectangle({const} var srcRectP: RectangleType; var dstRectP: RectangleType); syscall sysTrapRctCopyRectangle;
52
 
 
53
 
procedure RctInsetRectangle(var rP: RectangleType; insetAmt: Coord); syscall sysTrapRctInsetRectangle;
54
 
 
55
 
procedure RctOffsetRectangle(var rP: RectangleType; deltaX, deltaY: Coord); syscall sysTrapRctOffsetRectangle;
56
 
 
57
 
function RctPtInRectangle(x, y: Coord; {const} var rP: RectangleType): Boolean; syscall sysTrapRctPtInRectangle;
58
 
 
59
 
procedure RctGetIntersection({const} var r1P, r2P: RectangleType; var r3P: RectangleType); syscall sysTrapRctGetIntersection;
60
 
 
61
 
implementation
62
 
 
63
 
end.
 
 
b'\\ No newline at end of file'