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

Minor update

Browse Source
This commit is contained in:
ocoursiere
2003-04-02 21:23:25 +00:00
parent d8594d15ae
commit c3dadf037e
1 changed files with 11 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
bepascal/bepascal/be/interface/alert.pp
View File

@@ -22,13 +22,10 @@ unit Alert;
interface interface
uses uses
BeObj, Archivable, Button, {InterfaceDefs,} Invoker, Handler, BeObj, Archivable, Button, InterfaceDefs, Invoker, Handler,
Message, Point, SupportDefs, TextView, Window; Message, Rect, SupportDefs, TextView, Window;
type type
// This one belongs to InterfaceDefs unit!
TButton_Width = (B_WIDTH_AS_USUAL, B_WIDTH_FROM_WIDEST, B_WIDTH_FROM_LABEL);
{ enum for flavors of alert } { enum for flavors of alert }
// enum alert_type // enum alert_type
TAlert_Type = (B_EMPTY_ALERT, B_INFO_ALERT, B_IDEA_ALERT, B_WARNING_ALERT, TAlert_Type = (B_EMPTY_ALERT, B_INFO_ALERT, B_IDEA_ALERT, B_WARNING_ALERT,
@@ -152,7 +149,7 @@ end;
constructor TAlert.Create(data : TMessage); constructor TAlert.Create(data : TMessage);
begin begin
CPlusObject := BAlert_Create_2(Self, data{.CPlusObject}); CPlusObject := BAlert_Create_2(Self, data.CPlusObject);
end; end;
destructor TAlert.Destroy; destructor TAlert.Destroy;
@@ -162,12 +159,12 @@ end;
function TAlert.Instantiate(data : TMessage) : TArchivable; function TAlert.Instantiate(data : TMessage) : TArchivable;
begin begin
Result := BAlert_Instantiate(CPlusObject, data{.CPlusObject}); Result := BAlert_Instantiate(CPlusObject, data.CPlusObject);
end; end;
function TAlert.Archive(data : TMessage; deep : boolean) : TStatus_t; function TAlert.Archive(data : TMessage; deep : boolean) : TStatus_t;
begin begin
Result := BAlert_Archive(CPlusObject, data{.CPlusObject}, deep); Result := BAlert_Archive(CPlusObject, data.CPlusObject, deep);
end; end;
procedure TAlert.SetShortcut(button_index : integer; key : Char); procedure TAlert.SetShortcut(button_index : integer; key : Char);
@@ -187,12 +184,12 @@ end;
function TAlert.Go(invoker : TInvoker) : TStatus_t; function TAlert.Go(invoker : TInvoker) : TStatus_t;
begin begin
Result := BAlert_Go(CPlusObject, invoker{.CPlusObject}); Result := BAlert_Go(CPlusObject, invoker.CPlusObject);
end; end;
procedure TAlert.MessageReceived(an_event : TMessage); procedure TAlert.MessageReceived(an_event : TMessage);
begin begin
BAlert_MessageReceived(CPlusObject, an_event{.CPlusObject}); BAlert_MessageReceived(CPlusObject, an_event.CPlusObject);
end; end;
procedure TAlert.FrameResized(new_width : double; new_height : double); procedure TAlert.FrameResized(new_width : double; new_height : double);
@@ -212,17 +209,17 @@ end;
function TAlert.ResolveSpecifier(msg : TMessage; index : integer; specifier : TMessage; form : integer; properti : PChar) : THandler; function TAlert.ResolveSpecifier(msg : TMessage; index : integer; specifier : TMessage; form : integer; properti : PChar) : THandler;
begin begin
Result := BAlert_ResolveSpecifier(CPlusObject, msg{.CPlusObject}, index, specifier{.CPlusObject}, form, properti); Result := BAlert_ResolveSpecifier(CPlusObject, msg.CPlusObject, index, specifier.CPlusObject, form, properti);
end; end;
function TAlert.GetSupportedSuites(data : TMessage) : TStatus_t; function TAlert.GetSupportedSuites(data : TMessage) : TStatus_t;
begin begin
Result := BAlert_GetSupportedSuites(CPlusObject, data{.CPlusObject}); Result := BAlert_GetSupportedSuites(CPlusObject, data.CPlusObject);
end; end;
procedure TAlert.DispatchMessage(msg : TMessage; handler : THandler); procedure TAlert.DispatchMessage(msg : TMessage; handler : THandler);
begin begin
BAlert_DispatchMessage(CPlusObject, msg{.CPlusObject}, handler{.CPlusObject}); BAlert_DispatchMessage(CPlusObject, msg.CPlusObject, handler.CPlusObject);
end; end;
procedure TAlert.Quit; procedure TAlert.Quit;
@@ -317,4 +314,4 @@ begin
end; end;
} }
end. end.