hp/befpc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Updates from Baldur

Browse Source
This commit is contained in:
ocoursiere
2003-12-18 22:48:12 +00:00
parent 459bb70d6b
commit 4b7d335b18
4 changed files with 16 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
bepascal/source/bepascal/pas/src/be/interface/box.pp
View File

@@ -30,7 +30,7 @@ type
BBox = class(BView)
private
public
constructor Create(Frame : BRect; Name : PChar; sResizingMode, sFlags : Cardinal; BorderStyle : border_style);
constructor Create(aFrame : BRect; Name : PChar; sResizingMode, sFlags : Cardinal; BorderStyle : border_style);
constructor Create(data : BMessage);
destructor Destroy; override;
function Instantiate(data : BMessage) : BArchivable;
@@ -44,7 +44,7 @@ type
function GetLabel : PChar;
function LabelView : BView;
procedure Draw(bounds : BRect); override;
procedure Draw(abounds : BRect); override;
procedure AttachedToWindow; override;
procedure DetachedFromWindow; override;
procedure AllAttached; override;
@@ -106,10 +106,10 @@ function BBox_Perform(AObject : TCPlusObject; d : Perform_code; arg : Pointer) :
implementation
constructor BBox.Create(Frame : BRect; Name : PChar; sResizingMode, sFlags : Cardinal; BorderStyle : border_style);
constructor BBox.Create(aFrame : BRect; Name : PChar; sResizingMode, sFlags : Cardinal; BorderStyle : border_style);
begin
CreatePas;
CPlusObject := BBox_Create(Self, Frame.CPlusObject, Name, sResizingMode, sFlags, BorderStyle);
CPlusObject := BBox_Create(Self, aFrame.CPlusObject, Name, sResizingMode, sFlags, BorderStyle);
end;
constructor BBox.Create(data : BMessage);
@@ -168,9 +168,9 @@ begin
end;
procedure BBox.Draw(bounds : BRect);
procedure BBox.Draw(abounds : BRect);
begin
BBox_Draw(CPlusObject, bounds{.CPlusObject});
BBox_Draw(CPlusObject, abounds{.CPlusObject});
end;
procedure BBox.AttachedToWindow;

6
bepascal/source/bepascal/pas/src/be/interface/checkbox.pp
View File

@@ -27,7 +27,7 @@ type BCheckBox = class(BControl)
private
public
destructor Destroy;override;
constructor Create(frame : BRect; name, aLabel : PChar; message : BMessage; sresizingMode, sflags : Cardinal); virtual;
constructor Create(aframe : BRect; name, aLabel : PChar; message : BMessage; sresizingMode, sflags : Cardinal); virtual;
constructor Create(data : BMessage) ;override;
function Instantiate(data : BMessage) : BArchivable;
function Archive(data : BMessage; deep : boolean) : Status_t;
@@ -89,10 +89,10 @@ begin
inherited;
end;
constructor BCheckBox.Create(frame : BRect; name, aLabel : PChar; message : BMessage; sresizingMode, sflags : Cardinal);
constructor BCheckBox.Create(aframe : BRect; name, aLabel : PChar; message : BMessage; sresizingMode, sflags : Cardinal);
begin
CreatePas;
CPlusObject := BCheckBox_Create(Self, frame.CPlusObject, name, aLabel, message.CPlusObject, sresizingMode, sflags);
CPlusObject := BCheckBox_Create(Self, aframe.CPlusObject, name, aLabel, message.CPlusObject, sresizingMode, sflags);
end;
constructor BCheckBox.Create(data : BMessage) ;

6
bepascal/source/bepascal/pas/src/be/interface/radiobutton.pp
View File

@@ -28,7 +28,7 @@ type
BRadioButton = class(BControl)
private
public
constructor Create(frame : BRect; name, aLabel : PChar; message : BMessage; sresizingMode, sflags : Cardinal); virtual;
constructor Create(aframe : BRect; name, aLabel : PChar; message : BMessage; sresizingMode, sflags : Cardinal); virtual;
constructor Create(data : BMessage); override;
destructor Destroy; override;
function Instantiate(data : BMessage) : BArchivable;
@@ -102,10 +102,10 @@ function BRadioButton_Perform(AObject : TCPlusObject; d : Perform_code; arg : Po
implementation
constructor BRadioButton.Create(frame : BRect; name, aLabel : PChar; message : BMessage; sresizingMode, sflags : Cardinal);
constructor BRadioButton.Create(aframe : BRect; name, aLabel : PChar; message : BMessage; sresizingMode, sflags : Cardinal);
begin
CreatePas;
CPlusObject := BRadioButton_Create(Self, frame.CPlusObject, name, aLabel, message.CPlusObject, sresizingMode, sflags);
CPlusObject := BRadioButton_Create(Self, aframe.CPlusObject, name, aLabel, message.CPlusObject, sresizingMode, sflags);
end;
constructor BRadioButton.Create(data : BMessage);

8
bepascal/source/bepascal/pas/src/be/interface/textcontrol.pp
View File

@@ -29,7 +29,7 @@ type
private
public
destructor Destroy;override;
constructor Create(frame : BRect; name, aLabel,initial : PChar; message : BMessage; sresizingMode, sflags : Cardinal); virtual;
constructor Create(aframe : BRect; name, aLabel,initial : PChar; message : BMessage; sresizingMode, sflags : Cardinal); virtual;
constructor Create(data : BMessage);override;
function Instantiate(data : BMessage) : BArchivable;
function Archive(data : BMessage; deep : boolean) : Status_t;
@@ -88,7 +88,7 @@ type
end;
procedure BTextControl_Free(AObject : TCPlusObject); cdecl; external BePascalLibName name 'BTextControl_Free';
function BTextControl_Create(AObject : TBeObject; frame : TCPlusObject; name, aLabel ,initial: PChar; message : TCPlusObject; sresizingMode, flags : Cardinal): TCPlusObject; cdecl; external BePascalLibName name 'BTextControl_Create';
function BTextControl_Create(AObject : TBeObject; aframe : TCPlusObject; name, aLabel ,initial: PChar; message : TCPlusObject; sresizingMode, flags : Cardinal): TCPlusObject; cdecl; external BePascalLibName name 'BTextControl_Create';
function BTextControl_Create(AObject : TBeObject; data : TCPlusObject): TCPlusObject; cdecl; external BePascalLibName name 'BTextControl_Create_1';
function BTextControl_Instantiate(AObject : TCPlusObject; data : TCPlusObject) : BArchivable; cdecl; external BePascalLibName name 'BTextControl_Instantiate';
function BTextControl_Archive(AObject : TCPlusObject; data : TCPlusObject; deep : boolean) : Status_t; cdecl; external BePascalLibName name 'BTextControl_Archive';
@@ -155,10 +155,10 @@ begin
inherited;
end;
constructor BTextControl.Create(frame : BRect; name, aLabel,initial : PChar; message : BMessage; sresizingMode, sflags : Cardinal);
constructor BTextControl.Create(aframe : BRect; name, aLabel,initial : PChar; message : BMessage; sresizingMode, sflags : Cardinal);
begin
CreatePas;
CPlusObject := BTextControl_Create(Self, frame.CPlusObject, name, aLabel,initial, message.CPlusObject, sresizingMode, sflags);
CPlusObject := BTextControl_Create(Self, aframe.CPlusObject, name, aLabel,initial, message.CPlusObject, sresizingMode, sflags);
end;