← Back to branch summary

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

« back to all changes in this revision

Viewing changes to fpcsrc/packages/amunits/src/utilunits/systemvartags.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/amunits/src/utilunits/systemvartags.pas
 
1
{
 
2
    This file is part of the Free Pascal run time library.
 
3
 
 
4
    A file in Amiga system run time library.
 
5
    Copyright (c) 1998-2003 by Nils Sjoholm
 
6
    member of the Amiga RTL development team.
 
7
 
 
8
    See the file COPYING.FPC, included in this distribution,
 
9
    for details about the copyright.
 
10
 
 
11
    This program is distributed in the hope that it will be useful,
 
12
    but WITHOUT ANY WARRANTY; without even the implied warranty of
 
13
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
 
14
 
 
15
 **********************************************************************}
 
16
 
 
17
{$mode objfpc}
 
18
 
 
19
{$I useamigasmartlink.inc}
 
20
{$ifdef use_amiga_smartlink}
 
21
    {$smartlink on}
 
22
{$endif use_amiga_smartlink}
 
23
 
 
24
unit systemvartags;
 
25
 
 
26
interface
 
27
 
 
28
uses exec,amigados, amigaguide, asl, bullet, intuition, datatypes ,
 
29
     gadtools, graphics, locale, lowlevel, realtime,
 
30
     workbench, utility, tagsarray;
 
31
 
 
32
{    As of today boolean and char doesn't function in
 
33
     array of const. Use ltrue and lfalse instead. You
 
34
     can just cast a char.
 
35
 
 
36
     Added the define use_amiga_smartlink.
 
37
     13 Jan 2003.
 
38
 
 
39
     Changed integer > smallint.
 
40
     Moved ltrue and lfalse to exec.
 
41
     10 Feb 2003.
 
42
 
 
43
     nils.sjoholm@mailbox.swipnet.se
 
44
}
 
45
 
 
46
 
 
47
{
 
48
     This is functions and procedures with array of const.
 
49
     For use with fpc 1.0 and above.
 
50
}
 
51
 
 
52
{ functions from amigados. }
 
53
FUNCTION AllocDosObjectTags(type_ : ULONG; Const argv : Array of Const) : POINTER;
 
54
FUNCTION CreateNewProcTags(Const argv : Array of Const) : pProcess;
 
55
FUNCTION NewLoadSegTags(file_ : pCHAR; Const argv : Array of Const) : LONGINT;
 
56
FUNCTION SystemTags(command : pCHAR; Const argv : Array of Const) : LONGINT;
 
57
   {  This one as well, an overlay function }
 
58
FUNCTION SystemTags(command : string; Const argv : Array of Const) : LONGINT;
 
59
 
 
60
{ functions from amigaguide. }
 
61
FUNCTION AddAmigaGuideHost(h : pHook; name : pCHAR; Const argv : Array Of Const) : POINTER;
 
62
FUNCTION OpenAmigaGuide(nag : pNewAmigaGuide; Const argv : Array Of Const) : POINTER;
 
63
FUNCTION OpenAmigaGuideAsync(nag : pNewAmigaGuide; Const argv : Array Of Const) : POINTER;
 
64
FUNCTION RemoveAmigaGuideHost(hh : POINTER; Const argv : Array Of Const) : LONGINT;
 
65
FUNCTION SendAmigaGuideCmd(cl : POINTER; cmd : pCHAR; Const argv : Array Of Const) : LONGINT;
 
66
FUNCTION SendAmigaGuideContext(cl : POINTER; Const argv : Array Of Const) : LONGINT;
 
67
FUNCTION SetAmigaGuideAttrs(cl : POINTER; Const argv : Array Of Const) : LONGINT;
 
68
FUNCTION SetAmigaGuideContext(cl : POINTER; id : ULONG; Const argv : Array Of Const) : LONGINT;
 
69
 
 
70
{ functions from asl. }
 
71
FUNCTION AllocAslRequestTags(reqType : ULONG; Const argv : Array Of Const) : POINTER;
 
72
FUNCTION AslRequestTags(requester : POINTER; Const argv : Array Of Const) : BOOLEAN;
 
73
 
 
74
{ functions from bullet }
 
75
FUNCTION ObtainInfo(glyphEngine : pGlyphEngine; Const argv : Array Of Const) : ULONG;
 
76
FUNCTION ReleaseInfo(glyphEngine : pGlyphEngine; Const argv : Array Of Const) : ULONG;
 
77
FUNCTION SetInfo(glyphEngine : pGlyphEngine; Const argv : Array Of Const) : ULONG;
 
78
 
 
79
{ functions from datatypes }
 
80
FUNCTION GetDTAttrs(o : pObject_; Const argv : Array Of Const) : ULONG;
 
81
FUNCTION NewDTObject(name : POINTER; Const argv : Array Of Const): POINTER;
 
82
FUNCTION ObtainDataType(typ : ULONG; handle : POINTER; Const argv : Array Of Const) : pDataType;
 
83
PROCEDURE RefreshDTObject(o : pObject_; win : pWindow; req : pRequester; Const argv : Array Of Const);
 
84
FUNCTION SetDTAttrs(o : pObject_; win : pWindow; req : pRequester; Const argv : Array Of Const) : ULONG;
 
85
 
 
86
{ functions from gadtools }
 
87
FUNCTION CreateGadget(kind : ULONG; gad : pGadget; ng : pNewGadget; Const argv : Array Of Const) : pGadget;
 
88
FUNCTION CreateMenus(newmenu : pNewMenu; Const argv : Array Of Const) : pMenu;
 
89
PROCEDURE DrawBevelBox(rport : pRastPort; left : LONGINT; top : LONGINT; width : LONGINT; height : LONGINT; Const argv : Array Of Const);
 
90
FUNCTION GetVisualInfo(screen : pScreen; Const argv : Array Of Const) : POINTER;
 
91
FUNCTION GT_GetGadgetAttrs(gad : pGadget; win : pWindow; req : pRequester; Const argv : Array Of Const) : LONGINT;
 
92
PROCEDURE GT_SetGadgetAttrs(gad : pGadget; win : pWindow; req : pRequester; Const argv : Array Of Const);
 
93
FUNCTION LayoutMenuItems(firstitem : pMenuItem; vi : POINTER; Const argv : Array Of Const) : BOOLEAN;
 
94
FUNCTION LayoutMenus(firstmenu : pMenu; vi : POINTER; Const argv : Array Of Const) : BOOLEAN;
 
95
 
 
96
{ functions from graphics }
 
97
FUNCTION AllocSpriteData(bm : pBitMap; Const argv : Array Of Const) : pExtSprite;
 
98
FUNCTION BestModeID(Const argv : Array Of Const) : ULONG;
 
99
FUNCTION ChangeExtSprite(vp : pViewPort; oldsprite : pExtSprite; newsprite : pExtSprite; Const argv : Array Of Const) : LONGINT;
 
100
FUNCTION ExtendFontTags(font : pTextFont; Const argv : Array Of Const) : ULONG;
 
101
FUNCTION GetExtSprite(ss : pExtSprite; Const argv : Array Of Const) : LONGINT;
 
102
PROCEDURE GetRPAttrs(rp : pRastPort; Const argv : Array Of Const);
 
103
FUNCTION ObtainBestPen(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG; Const argv : Array Of Const) : LONGINT;
 
104
PROCEDURE SetRPAttrs(rp : pRastPort; Const argv : Array Of Const);
 
105
FUNCTION VideoControlTags(colorMap : pColorMap; Const argv : Array Of Const) : BOOLEAN;
 
106
FUNCTION WeighTAMatchTags(reqTextAttr : pTextAttr; targetTextAttr : pTextAttr; Const argv : Array Of Const) : smallint;
 
107
 
 
108
{ functions from intuition. }
 
109
FUNCTION OpenScreenTags(newScreen : pNewScreen; tagList : array of const) : pScreen;
 
110
FUNCTION OpenWindowTags(newWindow : pNewWindow; tagList : array of const) : pWindow;
 
111
FUNCTION NewObject(classPtr : pIClass; classID : pCHAR; Const argv : Array Of Const) : POINTER;
 
112
FUNCTION SetGadgetAttrs(gadget : pGadget; window : pWindow; requester : pRequester; Const argv : Array Of Const) : ULONG;
 
113
FUNCTION NewObject(classPtr : pIClass; classID : string; Const argv : array of const ) : POINTER;
 
114
 
 
115
{ from locale }
 
116
FUNCTION OpenCatalog(locale : pLocale; name : pCHAR; Const argv : Array Of Const) : pCatalog;
 
117
 
 
118
{ functions from lowlevel }
 
119
FUNCTION SetJoyPortAttrs(portNumber : ULONG; Const argv : Array Of Const) : BOOLEAN;
 
120
FUNCTION SystemControl(Const argv : Array Of Const) : ULONG;
 
121
 
 
122
{ functions from realtime }
 
123
FUNCTION CreatePlayer(Const argv : Array Of Const) : pPlayer;
 
124
FUNCTION GetPlayerAttrs(player : pPlayer; Const argv : Array Of Const) : ULONG;
 
125
FUNCTION SetPlayerAttrs(player : pPlayer; Const argv : Array Of Const) : BOOLEAN;
 
126
 
 
127
{ from utility }
 
128
function AllocNamedObject(name : STRPTR; Const argv : Array Of Const) : pNamedObject;
 
129
 
 
130
{ functions from workbench }
 
131
FUNCTION AddAppMenuItem(id : ULONG; userdata : ULONG; text_ : pCHAR; msgport : pMsgPort; Const argv : Array Of Const) : pAppMenuItem;
 
132
FUNCTION AddAppWindow(id : ULONG; userdata : ULONG; window : pWindow; msgport : pMsgPort; Const argv : Array Of Const) : pAppWindow;
 
133
 
 
134
implementation
 
135
 
 
136
uses pastoc;
 
137
 
 
138
FUNCTION AllocDosObjectTags(type_ : ULONG; Const argv : Array of Const) : POINTER;
 
139
begin
 
140
     AllocDosObjectTags := AllocDosObjectTagList(type_, readintags(argv));
 
141
end;
 
142
 
 
143
FUNCTION CreateNewProcTags(Const argv : Array of Const) : pProcess;
 
144
begin
 
145
     CreateNewProcTags := CreateNewProcTagList(readintags(argv));
 
146
end;
 
147
 
 
148
FUNCTION NewLoadSegTags(file_ : pCHAR; Const argv : Array of Const) : LONGINT;
 
149
begin
 
150
     NewLoadSegTags := NewLoadSegTagList(file_,readintags(argv));
 
151
end;
 
152
 
 
153
FUNCTION SystemTags(command : pCHAR; Const argv : Array of Const) : LONGINT;
 
154
begin
 
155
     SystemTags := SystemTagList(command,readintags(argv));
 
156
end;
 
157
 
 
158
FUNCTION SystemTags(command : string; Const argv : Array of Const) : LONGINT;
 
159
begin
 
160
     SystemTags := SystemTagList(command,readintags(argv));
 
161
end;
 
162
 
 
163
FUNCTION OpenScreenTags(newScreen : pNewScreen; tagList : array of const) : pScreen;
 
164
begin
 
165
    OpenScreenTags := OpenScreenTagList(newScreen, readintags(tagList));
 
166
end;
 
167
 
 
168
FUNCTION OpenWindowTags(newWindow : pNewWindow; tagList : array of const) : pWindow;
 
169
begin
 
170
    OpenWindowTags := OpenWindowTagList(newWindow, readintags(tagList));
 
171
end;
 
172
 
 
173
FUNCTION NewObject(classPtr : pIClass; classID : pCHAR; Const argv : Array Of Const) : POINTER;
 
174
begin
 
175
    NewObject := NewObjectA(classPtr,classID, readintags(argv));
 
176
end;
 
177
 
 
178
FUNCTION NewObject(classPtr : pIClass; classID : string; Const argv : array of const ) : POINTER;
 
179
begin
 
180
      NewObject := NewObjectA(classPtr,pas2c(classID),readintags(argv));
 
181
end;
 
182
 
 
183
FUNCTION SetGadgetAttrs(gadget : pGadget; window : pWindow; requester : pRequester; Const argv : Array Of Const) : ULONG;
 
184
begin
 
185
    SetGadgetAttrs := SetGadgetAttrsA(gadget,window,requester,readintags(argv));
 
186
end;
 
187
 
 
188
FUNCTION AddAmigaGuideHost(h : pHook; name : pCHAR; Const argv : Array Of Const) : POINTER;
 
189
begin
 
190
    AddAmigaGuideHost := AddAmigaGuideHostA(h,name,readintags(argv));
 
191
end;
 
192
 
 
193
FUNCTION OpenAmigaGuide(nag : pNewAmigaGuide; Const argv : Array Of Const) : POINTER;
 
194
begin
 
195
    OpenAmigaGuide := OpenAmigaGuideA(nag,readintags(argv));
 
196
end;
 
197
 
 
198
FUNCTION OpenAmigaGuideAsync(nag : pNewAmigaGuide; Const argv : Array Of Const) : POINTER;
 
199
begin
 
200
    OpenAmigaGuideAsync := OpenAmigaGuideAsyncA(nag,readintags(argv));
 
201
end;
 
202
 
 
203
FUNCTION RemoveAmigaGuideHost(hh : POINTER; Const argv : Array Of Const) : LONGINT;
 
204
begin
 
205
    RemoveAmigaGuideHost := RemoveAmigaGuideHostA(hh,readintags(argv));
 
206
end;
 
207
 
 
208
FUNCTION SendAmigaGuideCmd(cl : POINTER; cmd : pCHAR; Const argv : Array Of Const) : LONGINT;
 
209
begin
 
210
    SendAmigaGuideCmd := SendAmigaGuideCmdA(cl,cmd,readintags(argv));
 
211
end;
 
212
 
 
213
FUNCTION SendAmigaGuideContext(cl : POINTER; Const argv : Array Of Const) : LONGINT;
 
214
begin
 
215
    SendAmigaGuideContext := SendAmigaGuideContextA(cl,readintags(argv));
 
216
end;
 
217
 
 
218
FUNCTION SetAmigaGuideAttrs(cl : POINTER; Const argv : Array Of Const) : LONGINT;
 
219
begin
 
220
    SetAmigaGuideAttrs := SetAmigaGuideAttrsA(cl,readintags(argv));
 
221
end;
 
222
 
 
223
FUNCTION SetAmigaGuideContext(cl : POINTER; id : ULONG; Const argv : Array Of Const) : LONGINT;
 
224
begin
 
225
    SetAmigaGuideContext := SetAmigaGuideContextA(cl,id,readintags(argv));
 
226
end;
 
227
 
 
228
FUNCTION AllocAslRequestTags(reqType : ULONG; Const argv : Array Of Const) : POINTER;
 
229
begin
 
230
    AllocAslRequestTags := AllocAslRequest(reqType,readintags(argv));
 
231
end;
 
232
 
 
233
FUNCTION AslRequestTags(requester : POINTER; Const argv : Array Of Const) : BOOLEAN;
 
234
begin
 
235
    AslRequestTags := AslRequest(requester,readintags(argv));
 
236
end;
 
237
 
 
238
FUNCTION ObtainInfo(glyphEngine : pGlyphEngine; Const argv : Array Of Const) : ULONG;
 
239
begin
 
240
    ObtainInfo := ObtainInfoA(glyphEngine,readintags(argv));
 
241
end;
 
242
 
 
243
FUNCTION ReleaseInfo(glyphEngine : pGlyphEngine; Const argv : Array Of Const) : ULONG;
 
244
begin
 
245
    ReleaseInfo := releaseInfoA(glyphEngine,readintags(argv));
 
246
end;
 
247
 
 
248
FUNCTION SetInfo(glyphEngine : pGlyphEngine; Const argv : Array Of Const) : ULONG;
 
249
begin
 
250
    SetInfo := SetInfoA(glyphEngine,readintags(argv));
 
251
end;
 
252
 
 
253
FUNCTION GetDTAttrs(o : pObject_; Const argv : Array Of Const) : ULONG;
 
254
begin
 
255
    GetDTAttrs := GetDTAttrsA(o,readintags(argv));
 
256
end;
 
257
 
 
258
FUNCTION NewDTObject(name : POINTER; Const argv : Array Of Const): POINTER;
 
259
begin
 
260
    NewDTObject := NewDTObjectA(name,readintags(argv));
 
261
end;
 
262
 
 
263
FUNCTION ObtainDataType(typ : ULONG; handle : POINTER; Const argv : Array Of Const) : pDataType;
 
264
begin
 
265
    ObtainDataType := ObtainDataTypeA(typ,handle,readintags(argv));
 
266
end;
 
267
PROCEDURE RefreshDTObject(o : pObject_; win : pWindow; req : pRequester; Const argv : Array Of Const);
 
268
begin
 
269
    RefreshDTObjectA(o,win,req,readintags(argv));
 
270
end;
 
271
 
 
272
FUNCTION SetDTAttrs(o : pObject_; win : pWindow; req : pRequester; Const argv : Array Of Const) : ULONG;
 
273
begin
 
274
    SetDTAttrs := SetDTAttrsA(o,win,req,readintags(argv));
 
275
end;
 
276
 
 
277
FUNCTION CreateGadget(kind : ULONG; gad : pGadget; ng : pNewGadget; Const argv : Array Of Const) : pGadget;
 
278
begin
 
279
    CreateGadget := CreateGadgetA(kind,gad,ng,readintags(argv));
 
280
end;
 
281
 
 
282
FUNCTION CreateMenus(newmenu : pNewMenu; Const argv : Array Of Const) : pMenu;
 
283
begin
 
284
    CreateMenus := CreateMenusA(newmenu,readintags(argv));
 
285
end;
 
286
 
 
287
PROCEDURE DrawBevelBox(rport : pRastPort; left : LONGINT; top : LONGINT; width : LONGINT; height : LONGINT; Const argv : Array Of Const);
 
288
begin
 
289
    DrawBevelBoxA(rport,left,top,width,height,readintags(argv));
 
290
end;
 
291
 
 
292
FUNCTION GetVisualInfo(screen : pScreen; Const argv : Array Of Const) : POINTER;
 
293
begin
 
294
    GetVisualInfo := GetVisualInfoA(screen,readintags(argv));
 
295
end;
 
296
 
 
297
FUNCTION GT_GetGadgetAttrs(gad : pGadget; win : pWindow; req : pRequester; Const argv : Array Of Const) : LONGINT;
 
298
begin
 
299
    GT_GetGadgetAttrs := GT_GetGadgetAttrsA(gad,win,req,readintags(argv));
 
300
end;
 
301
 
 
302
PROCEDURE GT_SetGadgetAttrs(gad : pGadget; win : pWindow; req : pRequester; Const argv : Array Of Const);
 
303
begin
 
304
    GT_SetGadgetAttrsA(gad,win,req,readintags(argv));
 
305
end;
 
306
 
 
307
FUNCTION LayoutMenuItems(firstitem : pMenuItem; vi : POINTER; Const argv : Array Of Const) : BOOLEAN;
 
308
begin
 
309
    LayoutMenuItems := LayoutMenuItemsA(firstitem,vi,readintags(argv));
 
310
end;
 
311
 
 
312
FUNCTION LayoutMenus(firstmenu : pMenu; vi : POINTER; Const argv : Array Of Const) : BOOLEAN;
 
313
begin
 
314
    LayoutMenus := LayoutMenusA(firstmenu,vi,readintags(argv));
 
315
end;
 
316
 
 
317
FUNCTION AllocSpriteData(bm : pBitMap; Const argv : Array Of Const) : pExtSprite;
 
318
begin
 
319
    AllocSpriteData := AllocSpriteDataA(bm,readintags(argv));
 
320
end;
 
321
 
 
322
FUNCTION BestModeID(Const argv : Array Of Const) : ULONG;
 
323
begin
 
324
    BestModeID := BestModeIDA(readintags(argv));
 
325
end;
 
326
 
 
327
FUNCTION ChangeExtSprite(vp : pViewPort; oldsprite : pExtSprite; newsprite : pExtSprite; Const argv : Array Of Const) : LONGINT;
 
328
begin
 
329
    ChangeExtSprite := ChangeExtSpriteA(vp,oldsprite,newsprite,readintags(argv));
 
330
end;
 
331
 
 
332
FUNCTION ExtendFontTags(font : pTextFont; Const argv : Array Of Const) : ULONG;
 
333
begin
 
334
    ExtendFontTags := ExtendFont(font,readintags(argv));
 
335
end;
 
336
 
 
337
FUNCTION GetExtSprite(ss : pExtSprite; Const argv : Array Of Const) : LONGINT;
 
338
begin
 
339
    GetExtSprite := GetExtSpriteA(ss,readintags(argv));
 
340
end;
 
341
 
 
342
PROCEDURE GetRPAttrs(rp : pRastPort; Const argv : Array Of Const);
 
343
begin
 
344
    GetRPAttrsA(rp,readintags(argv));
 
345
end;
 
346
 
 
347
FUNCTION ObtainBestPen(cm : pColorMap; r : ULONG; g : ULONG; b : ULONG; Const argv : Array Of Const) : LONGINT;
 
348
begin
 
349
    ObtainBestPen := ObtainBestPenA(cm,r,g,b,readintags(argv));
 
350
end;
 
351
 
 
352
PROCEDURE SetRPAttrs(rp : pRastPort; Const argv : Array Of Const);
 
353
begin
 
354
    SetRPAttrsA(rp,readintags(argv));
 
355
end;
 
356
 
 
357
FUNCTION VideoControlTags(colorMap : pColorMap; Const argv : Array Of Const) : BOOLEAN;
 
358
begin
 
359
    VideoControlTags := VideoControl(colorMap,readintags(argv));
 
360
end;
 
361
 
 
362
FUNCTION WeighTAMatchTags(reqTextAttr : pTextAttr; targetTextAttr : pTextAttr; Const argv : Array Of Const) : smallint;
 
363
begin
 
364
    WeighTAMatchTags := WeighTAMatch(reqTextAttr,targetTextAttr,readintags(argv));
 
365
end;
 
366
 
 
367
FUNCTION OpenCatalog(locale : pLocale; name : pCHAR; Const argv : Array Of Const) : pCatalog;
 
368
begin
 
369
    OpenCatalog := OpenCatalogA(locale,name,readintags(argv));
 
370
end;
 
371
 
 
372
FUNCTION SetJoyPortAttrs(portNumber : ULONG; Const argv : Array Of Const) : BOOLEAN;
 
373
begin
 
374
    SetJoyPortAttrs := SetJoyPortAttrsA(portNumber,readintags(argv));
 
375
end;
 
376
 
 
377
FUNCTION SystemControl(Const argv : Array Of Const) : ULONG;
 
378
begin
 
379
    SystemControl := SystemControlA(readintags(argv));
 
380
end;
 
381
 
 
382
FUNCTION CreatePlayer(Const argv : Array Of Const) : pPlayer;
 
383
begin
 
384
    CreatePlayer := CreatePlayerA(readintags(argv));
 
385
end;
 
386
 
 
387
FUNCTION GetPlayerAttrs(player : pPlayer; Const argv : Array Of Const) : ULONG;
 
388
begin
 
389
    GetPlayerAttrs := GetPlayerAttrsA(player,readintags(argv));
 
390
end;
 
391
 
 
392
FUNCTION SetPlayerAttrs(player : pPlayer; Const argv : Array Of Const) : BOOLEAN;
 
393
begin
 
394
    SetPlayerAttrs := SetPlayerAttrsA(player,readintags(argv));
 
395
end;
 
396
 
 
397
function AllocNamedObject(name : STRPTR; Const argv : Array Of Const) : pNamedObject;
 
398
begin
 
399
    AllocNamedObject := AllocNamedObjectA(name,readintags(argv));
 
400
end;
 
401
 
 
402
FUNCTION AddAppMenuItem(id : ULONG; userdata : ULONG; text_ : pCHAR; msgport : pMsgPort; Const argv : Array Of Const) : pAppMenuItem;
 
403
begin
 
404
    AddAppMenuItem := AddAppMenuItemA(id,userdata,text_,msgport,readintags(argv));
 
405
end;
 
406
 
 
407
FUNCTION AddAppWindow(id : ULONG; userdata : ULONG; window : pWindow; msgport : pMsgPort; Const argv : Array Of Const) : pAppWindow;
 
408
begin
 
409
    AddAppWindow := AddAppWindowA(id,userdata,window,msgport,readintags(argv));
 
410
end;
 
411
 
 
412
 
 
413
 
 
414
end.