paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 21:59:47 +02:00
Code Issues Packages Projects Releases Wiki Activity

AROS: syscall-ified ASL, GadTools and MUI from AROS branch

Browse Source 
git-svn-id: trunk@28646 -
This commit is contained in:
marcus 2014-09-12 21:28:29 +00:00
parent 739c66291d
commit 4c3e25549d
6 changed files with 4938 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
.gitattributes vendored
View File

@ -1129,9 +1129,11 @@ packages/arosunits/Makefile.fpc.fpcmake svneol=native#text/plain
packages/arosunits/fpmake.pp svneol=native#text/plain
packages/arosunits/src/agraphics.pas svneol=native#text/plain
packages/arosunits/src/amigados.pas svneol=native#text/plain
packages/arosunits/src/asl.pas svneol=native#text/plain
packages/arosunits/src/clipboard.pas svneol=native#text/plain
packages/arosunits/src/diskfont.pas svneol=native#text/plain
packages/arosunits/src/exec.pas svneol=native#text/plain
packages/arosunits/src/gadtools.pas svneol=native#text/plain
packages/arosunits/src/hardware.pas svneol=native#text/plain
packages/arosunits/src/icon.pas svneol=native#text/plain
packages/arosunits/src/iffparse.pas svneol=native#text/plain
@ -1140,6 +1142,7 @@ packages/arosunits/src/intuition.pas svneol=native#text/plain
packages/arosunits/src/keymap.pas svneol=native#text/plain
packages/arosunits/src/layers.pas svneol=native#text/plain
packages/arosunits/src/longarray.pas svneol=native#text/plain
packages/arosunits/src/mui.pas svneol=native#text/plain
packages/arosunits/src/tagsarray.pas svneol=native#text/plain
packages/arosunits/src/timer.pas svneol=native#text/plain
packages/arosunits/src/utility.pas svneol=native#text/plain

2
packages/arosunits/Makefile.fpc.fpcmake
View File

@ -9,7 +9,7 @@ version=2.7.1
[target]
units= agraphics amigados exec hardware inputevent intuition keymap layers \
longarray tagsarray timer utility diskfont iffparse clipboard \
workbench icon
workbench icon gadtools asl mui
[compiler]
includedir=src

3
packages/arosunits/fpmake.pp
View File

@ -48,6 +48,9 @@ begin
T:=P.Targets.AddUnit('clipboard.pas');
T:=P.Targets.AddUnit('workbench.pas');
T:=P.Targets.AddUnit('icon.pas');
T:=P.Targets.AddUnit('gadtools.pas');
T:=P.Targets.AddUnit('asl.pas');
T:=P.Targets.AddUnit('mui.pas');
{$ifndef ALLPACKAGES}
Run;

555
packages/arosunits/src/asl.pas Normal file
View File

@ -0,0 +1,555 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2014 by Free Pascal development team
asl.library functions
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit asl;
{$mode objfpc}
interface
uses
exec, utility, workbench, agraphics, tagsarray;
{************************************************************************}
CONST
ASLNAME: PChar = 'asl.library';
ASL_TB = TAG_USER+$80000;
{************************************************************************}
{ Types of requesters known to ASL, used as arguments to AllocAslRequest() }
ASL_FileRequest = 0;
ASL_FontRequest = 1;
ASL_ScreenModeRequest = 2;
{****************************************************************************
*
* ASL File Requester data structures and constants
*
* This structure must only be allocated by asl.library amd is READ-ONLY!
* Control of the various fields is provided via tags when the requester
* is created with AllocAslRequest() and when it is displayed via
* AslRequest()
}
type
PFileRequester = ^TFileRequester;
TFileRequester = record
rf_Reserved0 : array[0..3] of Byte;
rf_File : STRPTR; { Filename pointer }
rf_Dir : STRPTR; { Directory name pointer }
rf_Reserved1 : array[0..9] of Byte;
rf_LeftEdge : SmallInt;
rf_TopEdge : SmallInt; { Preferred window pos }
rf_Width : SmallInt;
rf_Height : SmallInt; { Preferred window size }
rf_Reserved2 : array[0..1] of Byte;
rf_NumArgs : LongInt; { A-la WB Args, FOR multiselects }
rf_ArgList : PWBArgList;
rf_UserData : Pointer; { Applihandle (you may write!!) }
rf_Reserved3 : array[0..7] of Byte;
rf_Pat : STRPTR; { Pattern match pointer }
END; { note - more reserved fields follow }
{ File requester tag values, used by AllocAslRequest() and AslRequest() }
const
{ Window control }
ASLFR_Window = ASL_TB+2 ; { Parent window }
ASLFR_Screen = ASL_TB+40; { Screen to open on if no window }
ASLFR_PubScreenName = ASL_TB+41; { Name of public screen }
ASLFR_PrivateIDCMP = ASL_TB+42; { Allocate private IDCMP? }
ASLFR_IntuiMsgFunc = ASL_TB+70; { function to handle IntuiMessages }
ASLFR_SleepWindow = ASL_TB+43; { Block input in ASLFR_Window? }
ASLFR_UserData = ASL_TB+52; { What to put in fr_UserData }
ASLFR_PopToFront = ASL_TB+131; { Make the requester window visible }
ASLFR_Activate = ASL_TB+132; { Activate the requester window when }
{ Text display }
ASLFR_TextAttr = ASL_TB+51; { Text font to use for gadget text }
ASLFR_Locale = ASL_TB+50; { Locale ASL should use for text }
ASLFR_TitleText = ASL_TB+1 ; { Title of requester }
ASLFR_PositiveText = ASL_TB+18; { Positive gadget text }
ASLFR_NegativeText = ASL_TB+19; { Negative gadget text }
{ Initial settings }
ASLFR_InitialLeftEdge= ASL_TB+3 ; { Initial requester coordinates }
ASLFR_InitialTopEdge = ASL_TB+4 ;
ASLFR_InitialWidth = ASL_TB+5 ; { Initial requester dimensions }
ASLFR_InitialHeight = ASL_TB+6 ;
ASLFR_InitialFile = ASL_TB+8 ; { Initial contents of File gadget }
ASLFR_InitialDrawer = ASL_TB+9 ; { Initial contents of Drawer gadg. }
ASLFR_InitialPattern = ASL_TB+10; { Initial contents of Pattern gadg.}
ASLFR_InitialShowVolumes = ASL_TB+130; { Initially, show the volume list (V44) }
{ Options }
ASLFR_Flags1 = ASL_TB+20; { Option flags }
ASLFR_Flags2 = ASL_TB+22; { Additional option flags }
ASLFR_DoSaveMode = ASL_TB+44; { Being used for saving? }
ASLFR_DoMultiSelect = ASL_TB+45; { Do multi-select? }
ASLFR_DoPatterns = ASL_TB+46; { Display a Pattern gadget? }
{ Filtering }
ASLFR_DrawersOnly = ASL_TB+47; { Don't display files? }
ASLFR_FilterFunc = ASL_TB+49; { function to filter files }
ASLFR_RejectIcons = ASL_TB+60; { Display .info files? }
ASLFR_RejectPattern = ASL_TB+61; { Don't display files matching pat }
ASLFR_AcceptPattern = ASL_TB+62; { Accept only files matching pat }
ASLFR_FilterDrawers = ASL_TB+63; { Also filter drawers with patterns}
ASLFR_HookFunc = ASL_TB+7 ; { Combined callback function }
{ Sorting }
ASLFR_SetSortBy = ASL_TB+124; { Sort criteria (name, date, size) }
ASLFR_GetSortBy = ASL_TB+125;
ASLFR_SetSortDrawers = ASL_TB+126; { Placement of drawers in the list }
ASLFR_GetSortDrawers = ASL_TB+127;
ASLFR_SetSortOrder = ASL_TB+128; { Order (ascending or descending) }
ASLFR_GetSortOrder = ASL_TB+129;
{ Flag bits for the ASLFR_Flags1 tag }
FRB_FILTERFUNC = 7;
FRB_INTUIFUNC = 6;
FRB_DOSAVEMODE = 5;
FRB_PRIVATEIDCMP = 4;
FRB_DOMULTISELECT = 3;
FRB_DOPATTERNS = 0;
FRF_FILTERFUNC = 128;
FRF_INTUIFUNC = 64;
FRF_DOSAVEMODE = 32;
FRF_PRIVATEIDCMP = 16;
FRF_DOMULTISELECT = 8;
FRF_DOPATTERNS = 1;
{ Flag bits for the ASLFR_Flags2 tag }
FRB_DRAWERSONLY = 0;
FRB_FILTERDRAWERS = 1;
FRB_REJECTICONS = 2;
FRF_DRAWERSONLY = 1;
FRF_FILTERDRAWERS = 2;
FRF_REJECTICONS = 4;
{ Sort criteria for the ASLFR_SetSortBy/ASLFR_GetSortBy tags }
ASLFRSORTBY_Name = 0;
ASLFRSORTBY_Date = 1;
ASLFRSORTBY_Size = 2;
{ Drawer placement for the ASLFR_SetSortDrawers/ASLFR_GetSortDrawers tags }
ASLFRSORTDRAWERS_First = 0;
ASLFRSORTDRAWERS_Mix = 1;
ASLFRSORTDRAWERS_Last = 2;
{ Sort order for the ASLFR_SetSortOrder/ASLFR_GetSortOrder tags }
ASLFRSORTORDER_Ascend = 0;
ASLFRSORTORDER_Descend = 1;
{****************************************************************************
*
* ASL Font Requester data structures and constants
*
* This structure must only be allocated by asl.library amd is READ-ONLY!
* Control of the various fields is provided via tags when the requester
* is created with AllocAslRequest() and when it is displayed via
* AslRequest()
}
Type
PFontRequester = ^TFontRequester;
TFontRequester = record
fo_Reserved0 : array[0..7] of Byte;
fo_Attr : TTextAttr; { Returned TextAttr }
fo_FrontPen : Byte; { Returned front pen }
fo_BackPen : Byte; { Returned back pen }
fo_DrawMode : Byte; { Returned drawing mode }
fo_Reserved1 : Byte;
fo_UserData : Pointer; { You can store your own data here }
fo_LeftEdge : smallint; { Coordinates Of requester on Exit }
fo_TopEdge : smallint;
fo_Width : smallint;
fo_Height : smallint;
fo_TAttr : tTTextAttr; { Returned TTextAttr }
end;
{ Font requester tag values, used by AllocAslRequest() AND AslRequest() }
const
{ Window control }
ASLFO_Window = ASL_TB+2 ; { Parent window }
ASLFO_Screen = ASL_TB+40; { Screen to open on if no window }
ASLFO_PubScreenName = ASL_TB+41; { Name of public screen }
ASLFO_PrivateIDCMP = ASL_TB+42; { Allocate private IDCMP? }
ASLFO_IntuiMsgFunc = ASL_TB+70; { function to handle IntuiMessages }
ASLFO_SleepWindow = ASL_TB+43; { Block input in ASLFO_Window? }
ASLFO_UserData = ASL_TB+52; { What to put in fo_UserData }
ASLFO_PopToFront = ASL_TB+131; { Make the requester window visible
* when it opens (V44)
}
ASLFO_Activate = ASL_TB+132; { Activate the requester window when
* it opens (V45).
}
{ Text display }
ASLFO_TextAttr = ASL_TB+51; { Text font to use for gadget text }
ASLFO_Locale = ASL_TB+50; { Locale ASL should use for text }
ASLFO_TitleText = ASL_TB+1 ; { Title of requester }
ASLFO_PositiveText = ASL_TB+18; { Positive gadget text }
ASLFO_NegativeText = ASL_TB+19; { Negative gadget text }
{ Initial settings }
ASLFO_InitialLeftEdge= ASL_TB+3 ; { Initial requester coordinates }
ASLFO_InitialTopEdge = ASL_TB+4 ;
ASLFO_InitialWidth = ASL_TB+5 ; { Initial requester dimensions }
ASLFO_InitialHeight = ASL_TB+6 ;
ASLFO_InitialName = ASL_TB+10; { Initial contents of Name gadget }
ASLFO_InitialSize = ASL_TB+11; { Initial contents of Size gadget }
ASLFO_InitialStyle = ASL_TB+12; { Initial font style }
ASLFO_InitialFlags = ASL_TB+13; { Initial font flags for TextAttr }
ASLFO_InitialFrontPen= ASL_TB+14; { Initial front pen }
ASLFO_InitialBackPen = ASL_TB+15; { Initial back pen }
ASLFO_InitialDrawMode= ASL_TB+59; { Initial draw mode }
{ Options }
ASLFO_Flags = ASL_TB+20; { Option flags }
ASLFO_DoFrontPen = ASL_TB+44; { Display Front color selector? }
ASLFO_DoBackPen = ASL_TB+45; { Display Back color selector? }
ASLFO_DoStyle = ASL_TB+46; { Display Style checkboxes? }
ASLFO_DoDrawMode = ASL_TB+47; { Display DrawMode cycle gadget? }
ASLFO_SampleText = ASL_TB+133; { Text to display in font sample area (V45) }
{ Filtering }
ASLFO_FixedWidthOnly = ASL_TB+48; { Only allow fixed-width fonts? }
ASLFO_MinHeight = ASL_TB+16; { Minimum font height to display }
ASLFO_MaxHeight = ASL_TB+17; { Maximum font height to display }
ASLFO_FilterFunc = ASL_TB+49; { function to filter fonts }
ASLFO_HookFunc = ASL_TB+7 ; { Combined callback function }
ASLFO_MaxFrontPen = ASL_TB+66; { Max # of colors in front palette }
ASLFO_MaxBackPen = ASL_TB+67; { Max # of colors in back palette }
{ Custom additions }
ASLFO_ModeList = ASL_TB+21; { Substitute list for drawmodes }
ASLFO_FrontPens = ASL_TB+64; { Color table for front pen palette}
ASLFO_BackPens = ASL_TB+65; { Color table for back pen palette }
{ Flag bits for ASLFO_Flags tag }
FOB_DOFRONTPEN = 0;
FOB_DOBACKPEN = 1;
FOB_DOSTYLE = 2;
FOB_DODRAWMODE = 3;
FOB_FIXEDWIDTHONLY= 4;
FOB_PRIVATEIDCMP = 5;
FOB_INTUIFUNC = 6;
FOB_FILTERFUNC = 7;
FOF_DOFRONTPEN = 1;
FOF_DOBACKPEN = 2;
FOF_DOSTYLE = 4;
FOF_DODRAWMODE = 8;
FOF_FIXEDWIDTHONLY = 16;
FOF_PRIVATEIDCMP = 32;
FOF_INTUIFUNC = 64;
FOF_FILTERFUNC = 128;
{****************************************************************************
*
* ASL Screen Mode Requester data structures and constants
*
* This structure must only be allocated by asl.library and is READ-ONLY!
* Control of the various fields is provided via tags when the requester
* is created with AllocAslRequest() and when it is displayed via
* AslRequest()
}
type
PScreenModeRequester = ^TScreenModeRequester;
TScreenModeRequester = record
sm_DisplayID : LongWord; { Display mode ID }
sm_DisplayWidth : LongWord; { Width Of display IN pixels }
sm_DisplayHeight : LongWord; { Height Of display IN pixels }
sm_DisplayDepth : Word; { Number OF bit-planes OF display }
sm_OverscanType : Word; { TYPE OF overscan OF display }
sm_AutoScroll : Boolean; { Display should auto-scroll? }
sm_BitMapWidth : LongWord; { Used TO create your own BitMap }
sm_BitMapHeight : LongWord;
sm_LeftEdge : smallint; { Coordinates OF requester on Exit }
sm_TopEdge : smallint;
sm_Width : smallint;
sm_Height : smallint;
sm_InfoOpened : Boolean; { Info window opened on exit? }
sm_InfoLeftEdge : smallint; { Last coordinates OF Info window }
sm_InfoTopEdge : smallint;
sm_InfoWidth : smallint;
sm_InfoHeight : smallint;
sm_UserData : Pointer; { You can store your own data here }
end;
{ An Exec list of custom modes can be added to the list of available modes.
* The DimensionInfo structure must be completely initialized, including the
* Header. See <graphics/displayinfo.h>. Custom mode ID's must be in the range
* $FFFF0000..$FFFFFFFF. Regular properties which apply to your custom modes
* can be added in the dn_PropertyFlags field. Custom properties are not
* allowed.
}
PDisplayMode = ^TDisplayMode;
TDisplayMode = record
dm_Node : TNode; { see ln_Name }
dm_DimensionInfo : tDimensionInfo; { mode description }
dm_PropertyFlags : LongWord; { applicable properties }
end;
{ ScreenMode requester tag values, used by AllocAslRequest() and AslRequest() }
const
{ Window control }
ASLSM_Window = ASL_TB+2 ; { Parent window }
ASLSM_Screen = ASL_TB+40; { Screen to open on if no window }
ASLSM_PubScreenName = ASL_TB+41; { Name of public screen }
ASLSM_PrivateIDCMP = ASL_TB+42; { Allocate private IDCMP? }
ASLSM_IntuiMsgFunc = ASL_TB+70; { function to handle IntuiMessages }
ASLSM_SleepWindow = ASL_TB+43; { Block input in ASLSM_Window? }
ASLSM_UserData = ASL_TB+52; { What to put in sm_UserData }
ASLSM_PopToFront = ASL_TB+131; { Make the requester window visible
* when it opens (V44)
}
ASLSM_Activate = ASL_TB+132; { Activate the requester window when
* it opens (V45).
}
{ Text display }
ASLSM_TextAttr = ASL_TB+51; { Text font to use for gadget text }
ASLSM_Locale = ASL_TB+50; { Locale ASL should use for text }
ASLSM_TitleText = ASL_TB+1 ; { Title of requester }
ASLSM_PositiveText = ASL_TB+18; { Positive gadget text }
ASLSM_NegativeText = ASL_TB+19; { Negative gadget text }
{ Initial settings }
ASLSM_InitialLeftEdge = ASL_TB+3 ; { Initial requester coordinates }
ASLSM_InitialTopEdge = ASL_TB+4 ;
ASLSM_InitialWidth = ASL_TB+5 ; { Initial requester dimensions }
ASLSM_InitialHeight = ASL_TB+6 ;
ASLSM_InitialDisplayID = ASL_TB+100; { Initial display mode id }
ASLSM_InitialDisplayWidth = ASL_TB+101; { Initial display width }
ASLSM_InitialDisplayHeight = ASL_TB+102; { Initial display height }
ASLSM_InitialDisplayDepth = ASL_TB+103; { Initial display depth }
ASLSM_InitialOverscanType = ASL_TB+104; { Initial type of overscan }
ASLSM_InitialAutoScroll = ASL_TB+105; { Initial autoscroll setting }
ASLSM_InitialInfoOpened = ASL_TB+106; { Info wndw initially opened? }
ASLSM_InitialInfoLeftEdge = ASL_TB+107; { Initial Info window coords. }
ASLSM_InitialInfoTopEdge = ASL_TB+108;
{ Options }
ASLSM_DoWidth = ASL_TB+109; { Display Width gadget? }
ASLSM_DoHeight = ASL_TB+110; { Display Height gadget? }
ASLSM_DoDepth = ASL_TB+111; { Display Depth gadget? }
ASLSM_DoOverscanType = ASL_TB+112; { Display Overscan Type gadget? }
ASLSM_DoAutoScroll = ASL_TB+113; { Display AutoScroll gadget? }
{ Filtering }
ASLSM_PropertyFlags = ASL_TB+114; { Must have these Property flags }
ASLSM_PropertyMask = ASL_TB+115; { Only these should be looked at }
ASLSM_MinWidth = ASL_TB+116; { Minimum display width to allow }
ASLSM_MaxWidth = ASL_TB+117; { Maximum display width to allow }
ASLSM_MinHeight = ASL_TB+118; { Minimum display height to allow }
ASLSM_MaxHeight = ASL_TB+119; { Maximum display height to allow }
ASLSM_MinDepth = ASL_TB+120; { Minimum display depth }
ASLSM_MaxDepth = ASL_TB+121; { Maximum display depth }
ASLSM_FilterFunc = ASL_TB+122; { function to filter mode id's }
{ Custom additions }
ASLSM_CustomSMList = ASL_TB+123; { Exec list of struct DisplayMode }
{***************************************************************************}
ASL_LAST_TAG = ASL_TB+133;
{***************************************************************************}
{ This defines the rendezvous data for setting and querying asl.library's
* defaults for the window size and the file requester sort order. The name
* of the semaphore is given below; it exists only with asl.library V45 and
* IPrefs V45 and beyond.
}
ASL_SEMAPHORE_NAME : Pchar = 'asl.library';
type
PAslSemaphore = ^TAslSemaphore;
TAslSemaphore = record
as_Semaphore : TSignalSemaphore;
as_Version : Word; { Must be >= 45 }
as_Size : LongWord; { Size of this data structure. }
as_SortBy : Byte; { File requester defaults; name, date or size }
as_SortDrawers : Byte; { File requester defaults; first, mix or last }
as_SortOrder : Byte; { File requester defaults; ascending or descending }
as_SizePosition : Byte; { See below }
as_RelativeLeft : Smallint;{ Window position offset }
as_RelativeTop : Smallint;
as_RelativeWidth : Byte; { Window size factor; this is
* a percentage of the parent
* window/screen width.
}
as_RelativeHeight : Byte;
end;
const
{ Default position of the ASL window. }
ASLPOS_DefaultPosition = 0; { Position is calculated according to the builtin rules. }
ASLPOS_CenterWindow = 1; { Centred within the bounds of the parent window. }
ASLPOS_CenterScreen = 2; { Centred within the bounds of the parent screen. }
ASLPOS_WindowPosition = 3; { Relative to the top left corner of the parent window,
* using the offset values provided in the
* as_RelativeLeft/as_RelativeTop members.
}
ASLPOS_ScreenPosition = 4; { Relative to the top left corner of the parent screen,
* using the offset values provided in the
* as_RelativeLeft/as_RelativeTop members.
}
ASLPOS_CenterMouse = 5; { Directly below the mouse pointer. }
ASLPOS_MASK = $0F;
{ Default size of the ASL window. }
ASLSIZE_DefaultSize = (0 shl 4); { Size is calculated according to the builtin rules. }
ASLSIZE_RelativeSize = (1 shl 4); { Size is relative to the size of the parent
* window or screen, using the values provided in
* the as_RelativeWidth/as_RelativeHeight members.
* The as_RelativeWidth/as_RelativeHeight values are
* taken as percentage, i.e. a value of "50" stands for
* 50% of the width/height of the parent window/screen.
}
ASLSIZE_MASK = $30;
{ Other options. }
ASLOPTION_ASLOverrides = (1 shl 6); { ASL determines placement and size of requester
* windows; application's choice is ignored.
}
{****************************************************************************
*
* Obsolete ASL definitions, here for source code compatibility only.
* Please do NOT use in new code.
*
* define ASL_V38_NAMES_ONLY to remove these older names
}
{$define ASL_V38_NAMES_ONLY}
{$ifndef ASL_V38_NAMES_ONLY}
Const
ASL_Dummy = (TAG_USER + $80000);
ASL_Hail = ASL_Dummy+1 ;
ASL_Window = ASL_Dummy+2 ;
ASL_LeftEdge = ASL_Dummy+3 ;
ASL_TopEdge = ASL_Dummy+4 ;
ASL_Width = ASL_Dummy+5 ;
ASL_Height = ASL_Dummy+6 ;
ASL_HookFunc = ASL_Dummy+7 ;
ASL_File = ASL_Dummy+8 ;
ASL_Dir = ASL_Dummy+9 ;
ASL_FontName = ASL_Dummy+10;
ASL_FontHeight = ASL_Dummy+11;
ASL_FontStyles = ASL_Dummy+12;
ASL_FontFlags = ASL_Dummy+13;
ASL_FrontPen = ASL_Dummy+14;
ASL_BackPen = ASL_Dummy+15;
ASL_MinHeight = ASL_Dummy+16;
ASL_MaxHeight = ASL_Dummy+17;
ASL_OKText = ASL_Dummy+18;
ASL_CancelText = ASL_Dummy+19;
ASL_FuncFlags = ASL_Dummy+20;
ASL_ModeList = ASL_Dummy+21;
ASL_ExtFlags1 = ASL_Dummy+22;
ASL_Pattern = ASL_FontName;
{ remember what I said up there? Do not use these anymore! }
FILB_DOWILDFUNC = 7;
FILB_DOMSGFUNC = 6;
FILB_SAVE = 5;
FILB_NEWIDCMP = 4;
FILB_MULTISELECT = 3;
FILB_PATGAD = 0;
FILF_DOWILDFUNC = 128;
FILF_DOMSGFUNC = 64;
FILF_SAVE = 32;
FILF_NEWIDCMP = 16;
FILF_MULTISELECT = 8;
FILF_PATGAD = 1;
FIL1B_NOFILES = 0;
FIL1B_MATCHDIRS = 1;
FIL1F_NOFILES = 1;
FIL1F_MATCHDIRS = 2;
FONB_FRONTCOLOR = 0;
FONB_BACKCOLOR = 1;
FONB_STYLES = 2;
FONB_DRAWMODE = 3;
FONB_FIXEDWIDTH = 4;
FONB_NEWIDCMP = 5;
FONB_DOMSGFUNC = 6;
FONB_DOWILDFUNC = 7;
FONF_FRONTCOLOR = 1;
FONF_BACKCOLOR = 2;
FONF_STYLES = 4;
FONF_DRAWMODE = 8;
FONF_FIXEDWIDTH = 16;
FONF_NEWIDCMP = 32;
FONF_DOMSGFUNC = 64;
FONF_DOWILDFUNC = 128;
{$endif ASL_V38_NAMES_ONLY}
var
AslBase: PLibrary;
function AllocAslRequestA(ReqType: LongWord; TagList: PTagItem): Pointer; syscall AslBase 8;
function AllocFileRequest: PFileRequester; syscall AslBase 5;
function AslRequestA(Requester: Pointer; TagList: PTagItem): LongBool; syscall AslBase 10;
procedure FreeAslRequest(Requester: Pointer); syscall AslBase 9;
procedure FreeFileRequest(FileReq: PFileRequester); syscall AslBase 6;
function RequestFile(FileReq: PFileRequester): LongBool; syscall AslBase 7;
procedure AbortAslRequest(Requester: Pointer); syscall AslBase 13;
procedure ActivateAslRequest(Requester: Pointer); syscall AslBase 14;
function AllocAslRequest(ReqType: LongWord; const Tags: array of const): Pointer;
function AslRequest(Requester: Pointer; const Tags: array of const): LongBool;
implementation
function AllocAslRequest(ReqType: LongWord; const Tags: array of const): Pointer;
begin
AllocAslRequest := AllocAslRequestA(reqType , readintags(tags));
end;
function AslRequest(Requester: Pointer; const Tags: array of const): LongBool;
begin
AslRequest := AslRequestA(Requester , readintags(tags));
end;
initialization
AslBase := OpenLibrary(ASLNAME, 36);
finalization
CloseLibrary(AslBase);
end.

482
packages/arosunits/src/gadtools.pas Normal file
View File

@ -0,0 +1,482 @@
{
This file is part of the Free Pascal run time library.
Copyright (c) 2014 by Free Pascal development team
gadtools.library functions
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
unit gadtools;
interface
uses
exec, intuition, agraphics, utility;
{------------------------------------------------------------------------}
{ The kinds (almost classes) of gadgets in the toolkit. Use these
identifiers when calling CreateGadgetA() }
CONST
GENERIC_KIND = 0;
BUTTON_KIND = 1;
CHECKBOX_KIND = 2;
INTEGER_KIND = 3;
LISTVIEW_KIND = 4;
MX_KIND = 5;
NUMBER_KIND = 6;
CYCLE_KIND = 7;
PALETTE_KIND = 8;
SCROLLER_KIND = 9;
{ Kind number 10 is reserved }
SLIDER_KIND = 11;
STRING_KIND = 12;
TEXT_KIND = 13;
NUM_KINDS = 14;
GADTOOLSNAME : PChar = 'gadtools.library';
{------------------------------------------------------------------------}
{ 'Or' the appropriate set together for your Window IDCMPFlags: }
ARROWIDCMP = (IDCMP_GADGETUP + IDCMP_GADGETDOWN +
IDCMP_INTUITICKS + IDCMP_MOUSEBUTTONS);
BUTTONIDCMP = (IDCMP_GADGETUP);
CHECKBOXIDCMP = (IDCMP_GADGETUP);
INTEGERIDCMP = (IDCMP_GADGETUP);
LISTVIEWIDCMP = (IDCMP_GADGETUP + IDCMP_GADGETDOWN +
IDCMP_MOUSEMOVE + ARROWIDCMP);
MXIDCMP = (IDCMP_GADGETDOWN);
NUMBERIDCMP = 0;
CYCLEIDCMP = (IDCMP_GADGETUP);
PALETTEIDCMP = (IDCMP_GADGETUP);
{ Use ARROWIDCMP+SCROLLERIDCMP if your scrollers have arrows: }
SCROLLERIDCMP = (IDCMP_GADGETUP + IDCMP_GADGETDOWN + IDCMP_MOUSEMOVE);
SLIDERIDCMP = (IDCMP_GADGETUP + IDCMP_GADGETDOWN + IDCMP_MOUSEMOVE);
STRINGIDCMP = (IDCMP_GADGETUP);
TEXTIDCMP = 0;
{------------------------------------------------------------------------}
{ Generic NewGadget used by several of the gadget classes: }
Type
PNewGadget = ^tNewGadget;
tNewGadget = record
ng_LeftEdge, ng_TopEdge : SmallInt; { gadget position }
ng_Width, ng_Height : SmallInt; { gadget size }
ng_GadgetText : STRPTR; { gadget label }
ng_TextAttr : PTextAttr; { desired font for gadget label }
ng_GadgetID : Word; { gadget ID }
ng_Flags : LongWord; { see below }
ng_VisualInfo : Pointer; { Set to retval of GetVisualInfo() }
ng_UserData : Pointer; { gadget UserData }
END;
{ ng_Flags control certain aspects of the gadget. The first five control
the placement of the descriptive text. All larger groups supply a
default: }
CONST
PLACETEXT_LEFT = $0001; { Right-align text on left side }
PLACETEXT_RIGHT = $0002; { Left-align text on right side }
PLACETEXT_ABOVE = $0004; { Center text above }
PLACETEXT_BELOW = $0008; { Center text below }
PLACETEXT_IN = $0010; { Center text on }
NG_HIGHLABEL = $0020; { Highlight the label }
{------------------------------------------------------------------------}
{ Fill out an array of these and pass that to CreateMenus(): }
Type
pNewMenu = ^tNewMenu;
tNewMenu = record
nm_Type : Byte; { See below }
nm_Label : STRPTR; { Menu's label }
nm_CommKey : STRPTR; { MenuItem Command Key Equiv }
nm_Flags : Word; { Menu OR MenuItem flags (see note) }
nm_MutualExclude : Longint; { MenuItem MutualExclude word }
nm_UserData : Pointer; { For your own use, see note }
END;
const
{ Needed only by inside IM_ definitions below }
MENU_IMAGE = 128;
{ nm_Type determines what each NewMenu structure corresponds to.
* for the NM_TITLE, NM_ITEM, and NM_SUB values, nm_Label should
* be a text string to use for that menu title, item, or sub-item.
* For IM_ITEM or IM_SUB, set nm_Label to point at the Image structure
* you wish to use for this item or sub-item.
* NOTE: At present, you may only use conventional images.
* Custom images created from Intuition image-classes do not work.
}
NM_TITLE = 1; { Menu header }
NM_ITEM = 2; { Textual menu item }
NM_SUB = 3; { Textual menu sub-item }
IM_ITEM = (NM_ITEM OR MENU_IMAGE); { Graphical menu item }
IM_SUB = (NM_SUB OR MENU_IMAGE); { Graphical menu sub-item }
{ The NewMenu array should be terminated with a NewMenu whose
* nm_Type equals NM_END.
}
NM_END = 0; { End of NewMenu array }
{ Starting with V39, GadTools will skip any NewMenu entries whose
* nm_Type field has the NM_IGNORE bit set.
}
NM_IGNORE = 64;
{ nm_Label should be a text string for textual items, a pointer
* to an Image structure for graphical menu items, or the special
* constant NM_BARLABEL, to get a separator bar.
}
NM_BARLABEL = -1;
{ The nm_Flags field is used to fill out either the Menu->Flags or
* MenuItem->Flags field. Note that the sense of the MENUENABLED or
* ITEMENABLED bit is inverted between this use and Intuition's use,
* in other words, NewMenus are enabled by default. The following
* labels are provided to disable them:
}
NM_MENUDISABLED = MENUENABLED;
NM_ITEMDISABLED = ITEMENABLED;
{ New for V39: NM_COMMANDSTRING. For a textual MenuItem or SubItem,
* point nm_CommKey at an arbitrary string, and set the NM_COMMANDSTRING
* flag.
}
NM_COMMANDSTRING = COMMSEQ;
{ The following are pre-cleared (COMMSEQ, ITEMTEXT, and HIGHxxx are set
* later as appropriate):
* Under V39, the COMMSEQ flag bit is not cleared, since it now has
* meaning.
}
NM_FLAGMASK = not (COMMSEQ or ITEMTEXT or HIGHFLAGS);
NM_FLAGMASK_V39 = not (ITEMTEXT or HIGHFLAGS);
{ You may choose among CHECKIT, MENUTOGGLE, and CHECKED.
* Toggle-select menuitems are of type CHECKIT|MENUTOGGLE, along
* with CHECKED if currently selected. Mutually exclusive ones
* are of type CHECKIT, and possibly CHECKED too. The nm_MutualExclude
* is a bit-wise representation of the items excluded by this one,
* so in the simplest case (choose 1 among n), these flags would be
* ~1, ~2, ~4, ~8, ~16, etc. See the Intuition Menus chapter.
}
{ A UserData pointer can be associated with each Menu and MenuItem structure.
* The CreateMenus() call allocates space for a UserData after each
* Menu or MenuItem (header, item or sub-item). You should use the
* GTMENU_USERDATA() or GTMENUITEM_USERDATA() macro to extract it.
}
const
{ These return codes can be obtained through the GTMN_SecondaryError tag }
GTMENU_TRIMMED = $00000001; { Too many menus, items, or subitems,
* menu has been trimmed down
}
GTMENU_INVALID = $00000002; { Invalid NewMenu array }
GTMENU_NOMEM = $00000003; { Out of memory }
{------------------------------------------------------------------------}
{ Starting with V39, checkboxes and mx gadgets can be scaled to your
* specified gadget width/height. Use the new GTCB_Scaled or GTMX_Scaled
* tags, respectively. Under V37, and by default in V39, the imagery
* is of the following fixed size:
}
{ MX gadget default dimensions: }
MX_WIDTH = 17;
MX_HEIGHT = 9;
{ Checkbox default dimensions: }
CHECKBOX_WIDTH = 26;
CHECKBOX_HEIGHT = 11;
{------------------------------------------------------------------------}
{------------------------------------------------------------------------}
{ Tags for GadTools functions: }
CONST
GT_TagBase = TAG_USER + $80000;
GTVI_NewWindow = GT_TagBase+1; { Unused }
GTVI_NWTags = GT_TagBase+2; { Unused }
GT_Private0 = GT_TagBase+3; { (private) }
GTCB_Checked = GT_TagBase+4; { State of checkbox }
GTLV_Top = GT_TagBase+5; { Top visible one in listview }
GTLV_Labels = GT_TagBase+6; { List to display in listview }
GTLV_ReadOnly = GT_TagBase+7; { TRUE IF listview is to be
read-only }
GTLV_ScrollWidth = GT_TagBase+8; { Width of scrollbar }
GTMX_Labels = GT_TagBase+9; { NULL-terminated array of labels }
GTMX_Active = GT_TagBase+10; { Active one in mx gadget }
GTTX_Text = GT_TagBase+11; { Text to display }
GTTX_CopyText = GT_TagBase+12; { Copy text label instead of
referencing it }
GTNM_Number = GT_TagBase+13; { Number to display }
GTCY_Labels = GT_TagBase+14; { NULL-terminated array of labels }
GTCY_Active = GT_TagBase+15; { The active one in the cycle gad }
GTPA_Depth = GT_TagBase+16; { Number of bitplanes in palette }
GTPA_Color = GT_TagBase+17; { Palette color }
GTPA_ColorOffset = GT_TagBase+18; { First color to use in palette }
GTPA_IndicatorWidth = GT_TagBase+19; { Width of current-color indicator }
GTPA_IndicatorHeight = GT_TagBase+20; { Height of current-color indicator }
GTSC_Top = GT_TagBase+21; { Top visible in scroller }
GTSC_Total = GT_TagBase+22; { Total in scroller area }
GTSC_Visible = GT_TagBase+23; { Number visible in scroller }
GTSC_Overlap = GT_TagBase+24; { Unused }
{ GT_TagBase+25 through GT_TagBase+37 are reserved }
GTSL_Min = GT_TagBase+38; { Slider min value }
GTSL_Max = GT_TagBase+39; { Slider max value }
GTSL_Level = GT_TagBase+40; { Slider level }
GTSL_MaxLevelLen = GT_TagBase+41; { Max length of printed level }
GTSL_LevelFormat = GT_TagBase+42; { Format string for level }
GTSL_LevelPlace = GT_TagBase+43; { Where level should be placed }
GTSL_DispFunc = GT_TagBase+44; { Callback for number calculation
before display }
GTST_String = GT_TagBase+45; { String gadget's displayed string }
GTST_MaxChars = GT_TagBase+46; { Max length of string }
GTIN_Number = GT_TagBase+47; { Number in integer gadget }
GTIN_MaxChars = GT_TagBase+48; { Max number of digits }
GTMN_TextAttr = GT_TagBase+49; { MenuItem font TextAttr }
GTMN_FrontPen = GT_TagBase+50; { MenuItem text pen color }
GTBB_Recessed = GT_TagBase+51; { Make BevelBox recessed }
GT_VisualInfo = GT_TagBase+52; { result of VisualInfo call }
GTLV_ShowSelected = GT_TagBase+53; { show selected entry beneath
listview, set tag data = NULL for display-only, or pointer
to a string gadget you've created }
GTLV_Selected = GT_TagBase+54; { Set ordinal number of selected
entry in the list }
GT_Reserved0 = GT_TagBase+55; { Reserved }
GT_Reserved1 = GT_TagBase+56; { Reserved for future use }
GTTX_Border = GT_TagBase+57; { Put a border around
Text-display gadgets }
GTNM_Border = GT_TagBase+58; { Put a border around
Number-display gadgets }
GTSC_Arrows = GT_TagBase+59; { Specify size of arrows for
scroller }
GTMN_Menu = GT_TagBase+60; { Pointer to Menu for use by
LayoutMenuItems() }
GTMX_Spacing = GT_TagBase+61; { Added to font height to
figure spacing between mx choices. Use this instead
of LAYOUTA_SPACING for mx gadgets. }
{ New to V37 GadTools. Ignored by GadTools V36 }
GTMN_FullMenu = GT_TagBase+62; { Asks CreateMenus() to
validate that this is a complete menu structure }
GTMN_SecondaryError = GT_TagBase+63; { ti_Data is a pointer
to a LongWord to receive error reports from CreateMenus() }
GT_Underscore = GT_TagBase+64; { ti_Data points to the symbol
that preceeds the character you'd like to underline in a
gadget label }
{ New to V39 GadTools. Ignored by GadTools V36 and V37 }
GTMN_Checkmark = GT_TagBase+65; { ti_Data is checkmark img to use }
GTMN_AmigaKey = GT_TagBase+66; { ti_Data is Amiga-key img to use }
GTMN_NewLookMenus = GT_TagBase+67; { ti_Data is boolean }
{ New to V39 GadTools. Ignored by GadTools V36 and V37.
* Set to TRUE if you want the checkbox or mx image scaled to
* the gadget width/height you specify. Defaults to FALSE,
* for compatibility.
}
GTCB_Scaled = GT_TagBase+68; { ti_Data is boolean }
GTMX_Scaled = GT_TagBase+69; { ti_Data is boolean }
GTPA_NumColors = GT_TagBase+70; { Number of colors in palette }
GTMX_TitlePlace = GT_TagBase+71; { Where to put the title }
GTTX_FrontPen = GT_TagBase+72; { Text color in TEXT_KIND gad }
GTTX_BackPen = GT_TagBase+73; { Bgrnd color in TEXT_KIND gad }
GTTX_Justification = GT_TagBase+74; { See GTJ_#? constants }
GTNM_FrontPen = GT_TagBase+72; { Text color in NUMBER_KIND gad }
GTNM_BackPen = GT_TagBase+73; { Bgrnd color in NUMBER_KIND gad }
GTNM_Justification = GT_TagBase+74; { See GTJ_#? constants }
GTNM_Format = GT_TagBase+75; { Formatting string for number }
GTNM_MaxNumberLen = GT_TagBase+76; { Maximum length of number }
GTBB_FrameType = GT_TagBase+77; { defines what kind of boxes
* DrawBevelBox() renders. See
* the BBFT_#? constants for
* possible values
}
GTLV_MakeVisible = GT_TagBase+78; { Make this item visible }
GTLV_ItemHeight = GT_TagBase+79; { Height of an individual item }
GTSL_MaxPixelLen = GT_TagBase+80; { Max pixel size of level display }
GTSL_Justification = GT_TagBase+81; { how should the level be displayed }
GTPA_ColorTable = GT_TagBase+82; { colors to use in palette }
GTLV_CallBack = GT_TagBase+83; { general-purpose listview call back }
GTLV_MaxPen = GT_TagBase+84; { maximum pen number used by call back }
GTTX_Clipped = GT_TagBase+85; { make a TEXT_KIND clip text }
GTNM_Clipped = GT_TagBase+85; { make a NUMBER_KIND clip text }
{------------------------------------------------------------------------}
{ Justification types for GTTX_Justification and GTNM_Justification tags }
GTJ_LEFT = 0;
GTJ_RIGHT = 1;
GTJ_CENTER = 2;
{------------------------------------------------------------------------}
{ Bevel box frame types for GTBB_FrameType tag }
BBFT_BUTTON = 1; { Standard button gadget box }
BBFT_RIDGE = 2; { Standard string gadget box }
BBFT_ICONDROPBOX = 3; { Standard icon drop box }
{------------------------------------------------------------------------}
{ Typical suggested spacing between "elements": }
INTERWIDTH = 8;
INTERHEIGHT = 4;
{------------------------------------------------------------------------}
{ "NWay" is an old synonym for cycle gadgets }
NWAY_KIND = CYCLE_KIND;
NWAYIDCMP = CYCLEIDCMP;
GTNW_Labels = GTCY_Labels;
GTNW_Active = GTCY_Active;
{------------------------------------------------------------------------}
{ These two definitions are obsolete, but are here for backwards
* compatibility. You never need to worry about these:
}
GADTOOLBIT = ($8000);
{ Use this mask to isolate the user part: }
GADTOOLMASK = not (GADTOOLBIT);
{------------------------------------------------------------------------}
{ These definitions are for the GTLV_CallBack tag }
{ The different types of messages that a listview callback hook can see }
LV_DRAW = $202; { draw yourself, with state }
{ Possible return values from a callback hook }
LVCB_OK = 0; { callback understands this message type }
LVCB_UNKNOWN = 1; { callback does not understand this message }
{ states for LVDrawMsg.lvdm_State }
LVR_NORMAL = 0; { the usual }
LVR_SELECTED = 1; { for selected gadgets }
LVR_NORMALDISABLED = 2; { for disabled gadgets }
LVR_SELECTEDDISABLED = 8; { disabled and selected }
Type
{ structure of LV_DRAW messages, object is a (struct Node *) }
pLVDrawMsg = ^tLVDrawMsg;
tLVDrawMsg = record
lvdm_MethodID : LongWord; { LV_DRAW }
lvdm_RastPort : PRastPort; { where to render to }
lvdm_DrawInfo : PDrawInfo; { useful to have around }
lvdm_Bounds : TRectangle; { limits of where to render }
lvdm_State : LongWord; { how to render }
end;
var
GadToolsBase: PLibrary;
function CreateContext(GListPtr: PGadget): PGadget; syscall GadToolsBase 19;
function CreateGadgetA(Kind: LongWord; Gad: PGadget; const ng: PNewGadget; const TagList: PTagItem): PGadget; syscall GadToolsBase 5;
function CreateMenusA(const NewMenu: PNewMenu; const TagList: PTagItem): PMenu; syscall GadToolsBase 8;
procedure DrawBevelBoxA(RPort: PRastPort; Left: LongInt; Top: LongInt; Width: LongInt; Height: LongInt; const TagList: PTagItem); syscall GadToolsBase 20;
procedure FreeGadgets(Gad: PGadget); syscall GadToolsBase 6;
procedure FreeMenus(Menu: PMenu); syscall GadToolsBase 9;
procedure FreeVisualInfo(vi: Pointer); syscall GadToolsBase 22;
function GetVisualInfoA(Screen: PScreen; const TagList: PTagItem): Pointer; syscall GadToolsBase 21;
procedure GT_BeginRefresh(Win: PWindow); syscall GadToolsBase 15;
procedure GT_EndRefresh(Win: PWindow; Complete: LongInt); syscall GadToolsBase 16;
function GT_FilterIMsg(const IMsg: PIntuiMessage): PIntuiMessage; syscall GadToolsBase 17;
FUNCTION GT_GetIMsg(IPort: PMsgPort): PIntuiMessage; syscall GadToolsBase 12;
FUNCTION GT_PostFilterIMsg(IMsg: PIntuiMessage): PIntuiMessage; syscall GadToolsBase 18;
procedure GT_RefreshWindow(Win: PWindow; Req: PRequester); syscall GadToolsBase 14;
procedure GT_ReplyIMsg(IMsg: PIntuiMessage); syscall GadToolsBase 13;
function GT_GetGadgetAttrsA(Gad: PGadget; Win: PWindow; Req: PRequester; const TagList: PTagItem): LongInt; syscall GadToolsBase 29;
procedure GT_SetGadgetAttrsA(Gad: PGadget; Win: PWindow; Req: PRequester; const TagList: PTagItem); syscall GadToolsBase 7;
function LayoutMenuItemsA(FirstItem: PMenuItem; vi: Pointer; const TagList: PTagItem): LongBool; syscall GadToolsBase 10;
function LayoutMenusA(FirstMenu: PMenu; vi: Pointer; const TagList: PTagItem): LongBool; syscall GadToolsBase 11;
function GTMENUITEM_USERDATA(MenuItem: PMenuItem): Pointer;
function GTMENU_USERDATA(Menu: PMenu): Pointer;
implementation
function GTMENUITEM_USERDATA(menuitem : pMenuItem): pointer;
begin
GTMENUITEM_USERDATA := Pointer((PMenuItem(MenuItem) + 1));
end;
function GTMENU_USERDATA(Menu: PMenu): Pointer;
begin
GTMENU_USERDATA := Pointer((PMenu(Menu) + 1));
end;
initialization
GadToolsBase := OpenLibrary('gadtools.library', 36);
finalization
CloseLibrary(GadToolsBase);
end.

3894
packages/arosunits/src/mui.pas Normal file
View File

File diff suppressed because it is too large Load Diff