paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-19 00:09:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r31009 into '.':

Browse Source 
U    packages/rtl-extra/src/aros/sockets.pp
--- Recording mergeinfo for merge of r31009 into '.':
 U   .
--- Merging r31011 into '.':
U    packages/morphunits/src/mui.pas
--- Recording mergeinfo for merge of r31011 into '.':
 G   .
--- Merging r31012 into '.':
U    packages/amunits/src/otherlibs/mui.pas
G    packages/morphunits/src/mui.pas
U    packages/arosunits/src/mui.pas
--- Recording mergeinfo for merge of r31012 into '.':
 G   .
--- Merging r31014 into '.':
U    packages/amunits/examples/bezier.pas
U    packages/amunits/examples/bezier2.pas
--- Recording mergeinfo for merge of r31014 into '.':
 G   .

# revisions: 31009,31011,31012,31014

git-svn-id: branches/fixes_3_0@31100 -
This commit is contained in:
marco 2015-06-17 18:55:23 +00:00
parent 9b35c793aa
commit aa99dd7192
6 changed files with 86 additions and 62 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
packages/amunits/examples/bezier.pas
View File

@ -35,7 +35,7 @@ Program Bezier;
nils.sjoholm@mailbox.swipnet.se
}
uses exec, intuition, agraphics, utility,pastoc, systemvartags;
uses exec, intuition, agraphics, utility, systemvartags;
type
PointRec = packed Record
@ -249,9 +249,9 @@ begin
rp := w^.RPort;
GfxMove(rp, 252, 30);
GfxText(rp, pas2c('Enter points by pressing the left mouse button'), 46);
GfxText(rp, 'Enter points by pressing the left mouse button', 46);
GfxMove(rp, 252, 40);
GfxText(rp, pas2c('Double click on the last point to begin drawing'), 47);
GfxText(rp, 'Double click on the last point to begin drawing', 47);
repeat
GetPoints; { Both these routines will quit if }
DrawBezier; { the window is closed. }

4
packages/amunits/examples/bezier2.pas
View File

@ -1,4 +1,4 @@
Program Bezier;
Program Bezier2;
{ This program draws Bezier curves in the slow, simple, recursive
@ -26,7 +26,7 @@ Program Bezier;
nils.sjoholm@mailbox.swipnet.se
}
uses exec, intuition, agraphics, utility, pastoc, systemvartags;
uses exec, intuition, agraphics, utility, systemvartags;
type
PointRec = Record

12
packages/amunits/src/otherlibs/mui.pas
View File

@ -1520,12 +1520,12 @@ uses exec, intuition,utility,agraphics,iffparse;
{ MUI_MinMax structure holds information about minimum, maximum
and default dimensions of an object. }
tMUI_MinMax = record
MinWidth : WORD;
MinHeight : WORD;
MaxWidth : WORD;
MaxHeight : WORD;
DefWidth : WORD;
DefHeight : WORD;
MinWidth : SmallInt;
MinHeight : SmallInt;
MaxWidth : SmallInt;
MaxHeight : SmallInt;
DefWidth : SmallInt;
DefHeight : SmallInt;
end;
pMUI_MinMax = ^tMUI_MinMax;

12
packages/arosunits/src/mui.pas
View File

@ -1508,12 +1508,12 @@ uses
{ MUI_MinMax structure holds information about minimum, maximum
and default dimensions of an object. }
tMUI_MinMax = record
MinWidth : WORD;
MinHeight : WORD;
MaxWidth : WORD;
MaxHeight : WORD;
DefWidth : WORD;
DefHeight : WORD;
MinWidth : SmallInt;
MinHeight : SmallInt;
MaxWidth : SmallInt;
MaxHeight : SmallInt;
DefWidth : SmallInt;
DefHeight : SmallInt;
end;
pMUI_MinMax = ^tMUI_MinMax;

12
packages/morphunits/src/mui.pas
View File

@ -1398,12 +1398,12 @@ type
{ MUI_MinMax structure holds information about minimum, maximum
and default dimensions of an object. }
tMUI_MinMax = record
MinWidth : shortint;
MinHeight : shortint;
MaxWidth : shortint;
MaxHeight : shortint;
DefWidth : shortint;
DefHeight : shortint;
MinWidth : SmallInt;
MinHeight : SmallInt;
MaxWidth : SmallInt;
MaxHeight : SmallInt;
DefWidth : SmallInt;
DefHeight : SmallInt;
end;
pMUI_MinMax = ^tMUI_MinMax;

36
packages/rtl-extra/src/aros/sockets.pp
View File

@ -11,6 +11,7 @@
**********************************************************************}
{$PACKRECORDS 2}
{.$DEFINE SOCKETS_DEBUG}
unit Sockets;
Interface
@ -258,14 +259,37 @@ end;
{$i sockovl.inc}
{$i sockets.inc}
// FIXME: this doesn't make any sense here, because SocketBase should be task-specific
// but FPC doesn't support that yet (TODO)
{$WARNING FIX ME, TODO}
const
BSDSOCKET_LIBRARY_VER = 4;
procedure BSDSocketOpen;
begin
{$IFDEF SOCKETS_DEBUG}
SysDebugLn('FPC Sockets: Opening bsdsocket.library...');
{$ENDIF}
SocketBase:=OpenLibrary('bsdsocket.library', BSDSOCKET_LIBRARY_VER);
{$IFDEF SOCKETS_DEBUG}
if SocketBase = nil then
SysDebugLn('FPC Sockets: FAILED to open bsdsocket.library.')
else
SysDebugLn('FPC Sockets: bsdsocket.library opened successfully.');
{$ENDIF}
end;
procedure BSDSocketClose;
begin
if (SocketBase<>NIL) then CloseLibrary(SocketBase);
SocketBase:=NIL;
{$IFDEF SOCKETS_DEBUG}
SysDebugLn('FPC Sockets: bsdsocket.library closed.');
{$ENDIF}
end;
initialization
SocketBase := OpenLibrary('bsdsocket.library',0);
AddThreadInitProc(@BSDSocketOpen);
AddThreadExitProc(@BSDSocketClose);
BSDSocketOpen;
finalization
if SocketBase <> nil then
CloseLibrary(SocketBase);
BSDSocketClose;
end.