← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/packages/univint/src/AXActionConstants.pas

  • 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/univint/src/AXActionConstants.pas
 
1
{
 
2
 *  AXActionConstants.h
 
3
 *  HIServices
 
4
 *
 
5
 *  Created by John Louch on Wed Feb 25 2004.
 
6
 *  Copyright (c) 2004 Apple Computer, Inc. All rights reserved.
 
7
 *
 
8
 }
 
9
 
 
10
{        Pascal Translation:  Gale R Paeper, <gpaeper@empirenet.com>, 2006 }
 
11
 
 
12
{
 
13
    Modified for use with Free Pascal
 
14
    Version 210
 
15
    Please report any bugs to <gpc@microbizz.nl>
 
16
}
 
17
 
 
18
{$mode macpas}
 
19
{$packenum 1}
 
20
{$macro on}
 
21
{$inline on}
 
22
{$calling mwpascal}
 
23
 
 
24
unit AXActionConstants;
 
25
interface
 
26
{$setc UNIVERSAL_INTERFACES_VERSION := $0342}
 
27
{$setc GAP_INTERFACES_VERSION := $0210}
 
28
 
 
29
{$ifc not defined USE_CFSTR_CONSTANT_MACROS}
 
30
    {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
 
31
{$endc}
 
32
 
 
33
{$ifc defined CPUPOWERPC and defined CPUI386}
 
34
        {$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
 
35
{$endc}
 
36
{$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
 
37
        {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
 
38
{$endc}
 
39
 
 
40
{$ifc not defined __ppc__ and defined CPUPOWERPC}
 
41
        {$setc __ppc__ := 1}
 
42
{$elsec}
 
43
        {$setc __ppc__ := 0}
 
44
{$endc}
 
45
{$ifc not defined __i386__ and defined CPUI386}
 
46
        {$setc __i386__ := 1}
 
47
{$elsec}
 
48
        {$setc __i386__ := 0}
 
49
{$endc}
 
50
 
 
51
{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
 
52
        {$error Conflicting definitions for __ppc__ and __i386__}
 
53
{$endc}
 
54
 
 
55
{$ifc defined __ppc__ and __ppc__}
 
56
        {$setc TARGET_CPU_PPC := TRUE}
 
57
        {$setc TARGET_CPU_X86 := FALSE}
 
58
{$elifc defined __i386__ and __i386__}
 
59
        {$setc TARGET_CPU_PPC := FALSE}
 
60
        {$setc TARGET_CPU_X86 := TRUE}
 
61
{$elsec}
 
62
        {$error Neither __ppc__ nor __i386__ is defined.}
 
63
{$endc}
 
64
{$setc TARGET_CPU_PPC_64 := FALSE}
 
65
 
 
66
{$ifc defined FPC_BIG_ENDIAN}
 
67
        {$setc TARGET_RT_BIG_ENDIAN := TRUE}
 
68
        {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
 
69
{$elifc defined FPC_LITTLE_ENDIAN}
 
70
        {$setc TARGET_RT_BIG_ENDIAN := FALSE}
 
71
        {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
 
72
{$elsec}
 
73
        {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
 
74
{$endc}
 
75
{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
 
76
{$setc CALL_NOT_IN_CARBON := FALSE}
 
77
{$setc OLDROUTINENAMES := FALSE}
 
78
{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
 
79
{$setc OPAQUE_UPP_TYPES := TRUE}
 
80
{$setc OTCARBONAPPLICATION := TRUE}
 
81
{$setc OTKERNEL := FALSE}
 
82
{$setc PM_USE_SESSION_APIS := TRUE}
 
83
{$setc TARGET_API_MAC_CARBON := TRUE}
 
84
{$setc TARGET_API_MAC_OS8 := FALSE}
 
85
{$setc TARGET_API_MAC_OSX := TRUE}
 
86
{$setc TARGET_CARBON := TRUE}
 
87
{$setc TARGET_CPU_68K := FALSE}
 
88
{$setc TARGET_CPU_MIPS := FALSE}
 
89
{$setc TARGET_CPU_SPARC := FALSE}
 
90
{$setc TARGET_OS_MAC := TRUE}
 
91
{$setc TARGET_OS_UNIX := FALSE}
 
92
{$setc TARGET_OS_WIN32 := FALSE}
 
93
{$setc TARGET_RT_MAC_68881 := FALSE}
 
94
{$setc TARGET_RT_MAC_CFM := FALSE}
 
95
{$setc TARGET_RT_MAC_MACHO := TRUE}
 
96
{$setc TYPED_FUNCTION_POINTERS := TRUE}
 
97
{$setc TYPE_BOOL := FALSE}
 
98
{$setc TYPE_EXTENDED := FALSE}
 
99
{$setc TYPE_LONGLONG := TRUE}
 
100
uses MacTypes;
 
101
{$ALIGN POWER}
 
102
 
 
103
 
 
104
{
 
105
        TBD: Explain general philosophy on whether to expose an action or not.
 
106
        Our initial philopsophy is to not to have an action where there is a menu item
 
107
        or button that does the same thing.
 
108
}
 
109
 
 
110
// standard actions
 
111
{$ifc USE_CFSTR_CONSTANT_MACROS}
 
112
{$definec kAXPressAction CFSTRP('AXPress')}
 
113
{$endc}
 
114
{$ifc USE_CFSTR_CONSTANT_MACROS}
 
115
{$definec kAXIncrementAction CFSTRP('AXIncrement')}
 
116
{$endc}
 
117
{$ifc USE_CFSTR_CONSTANT_MACROS}
 
118
{$definec kAXDecrementAction CFSTRP('AXDecrement')}
 
119
{$endc}
 
120
{$ifc USE_CFSTR_CONSTANT_MACROS}
 
121
{$definec kAXConfirmAction CFSTRP('AXConfirm')}
 
122
{$endc}
 
123
{$ifc USE_CFSTR_CONSTANT_MACROS}
 
124
{$definec kAXCancelAction CFSTRP('AXCancel')}
 
125
{$endc}
 
126
 
 
127
// new actions
 
128
{$ifc USE_CFSTR_CONSTANT_MACROS}
 
129
{$definec kAXRaiseAction CFSTRP('AXRaise')}
 
130
{$endc}
 
131
{$ifc USE_CFSTR_CONSTANT_MACROS}
 
132
{$definec kAXShowMenuAction CFSTRP('AXShowMenu')}
 
133
{$endc}
 
134
 
 
135
// obsolete actions will be removed soon
 
136
{$ifc USE_CFSTR_CONSTANT_MACROS}
 
137
{$definec kAXPickAction CFSTRP('AXPick')}
 
138
{$endc}
 
139
 
 
140
 
 
141
end.