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

Use of libfdb's SendText instead of WriteLn for debug messages

Browse Source
This commit is contained in:
ocoursiere
2003-05-09 21:13:06 +00:00
parent 5994abf5e8
commit 1af3447fb2
6 changed files with 50 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
bepascal/bepascal/be/interface/menu.pp
View File

@@ -22,7 +22,7 @@ interface
uses
beobj, view, message, archivable, SupportDefs, rect, list,
handler, messenger;
handler, messenger, fdblib;
type
TMenu_Info = record
@@ -791,82 +791,82 @@ end;
function TMenu.AddItem(item : TMenuItem) : boolean;
begin
WriteLn('function TMenu.AddItem(item : TMenuItem) : boolean;');
SendText('function TMenu.AddItem(item : TMenuItem) : boolean;');
Result := BMenu_AddItem_1(CPlusObject, item.CPlusObject);
end;
function TMenu.AddItem(item : TMenuItem; index : integer) : boolean;
begin
WriteLn('function TMenu.AddItem(item : TMenuItem; index : integer) : boolean;');
SendText('function TMenu.AddItem(item : TMenuItem; index : integer) : boolean;');
Result := BMenu_AddItem_2(CPlusObject, item.CPlusObject, index);
end;
function TMenu.AddItem(item : TMenuItem; frame : TRect) : boolean;
begin
WriteLn('ici');
WriteLn('function TMenu.AddItem(item : TMenuItem; frame : TRect) : boolean;');
SendText('ici');
SendText('function TMenu.AddItem(item : TMenuItem; frame : TRect) : boolean;');
frame.PrintToStream;
Writeln('toto');
SendText('toto');
Result := BMenu_AddItem_3(CPlusObject, item.CPlusObject, frame.CPlusObject);
end;
function TMenu.AddItem(menu : TMenu) : boolean;
begin
WriteLn('function TMenu.AddItem(menu : TMenu) : boolean;');
WriteLn('Bonjour');
SendText('function TMenu.AddItem(menu : TMenu) : boolean;');
SendText('Bonjour');
Result := BMenu_AddItem_4(CPlusObject, menu.CPlusObject);
end;
function TMenu.AddItem(menu : TMenu; index : integer) : boolean;
begin
WriteLn('function TMenu.AddItem(menu : TMenu; index : integer) : boolean;');
SendText('function TMenu.AddItem(menu : TMenu; index : integer) : boolean;');
Result := BMenu_AddItem_5(CPlusObject, menu.CPlusObject, index);
end;
function TMenu.AddItem(menu : TMenu; frame : TRect) : boolean;
begin
WriteLn('function TMenu.AddItem(menu : TMenu; frame : TRect) : boolean;');
SendText('function TMenu.AddItem(menu : TMenu; frame : TRect) : boolean;');
Result := BMenu_AddItem_6(CPlusObject, menu.CPlusObject, frame.CPlusObject);
end;
{function TMenu.AddItem(item : TMenuItem) : boolean;
begin
WriteLn('function TMenu.AddItem(item : TMenuItem) : boolean;');
SendText('function TMenu.AddItem(item : TMenuItem) : boolean;');
Result := BMenu_AddItem_1(CPlusObject, item.CPlusObject);
end;
function TMenu.AddItem(item : TMenuItem; index : integer) : boolean;
begin
WriteLn('function TMenu.AddItem(item : TMenuItem; index : integer) : boolean;');
SendText('function TMenu.AddItem(item : TMenuItem; index : integer) : boolean;');
Result := BMenu_AddItem_2(CPlusObject, item.CPlusObject, index);
end;
function TMenu.AddItem(item : TMenuItem; frame : TRect) : boolean;
begin
WriteLn('ici');
WriteLn('function TMenu.AddItem(item : TMenuItem; frame : TRect) : boolean;');
SendText('ici');
SendText('function TMenu.AddItem(item : TMenuItem; frame : TRect) : boolean;');
frame.PrintToStream;
Writeln('toto');
SendText('toto');
Result := BMenu_AddItem_3(CPlusObject, item.CPlusObject, frame.CPlusObject);
end;
function TMenu.AddItem(menu : TMenu) : boolean;
begin
WriteLn('function TMenu.AddItem(menu : TMenu) : boolean;');
WriteLn('Bonjour');
SendText('function TMenu.AddItem(menu : TMenu) : boolean;');
SendText('Bonjour');
Result := BMenu_AddItem_4(CPlusObject, menu.CPlusObject);
end;
function TMenu.AddItem(menu : TMenu; index : integer) : boolean;
begin
WriteLn('function TMenu.AddItem(menu : TMenu; index : integer) : boolean;');
SendText('function TMenu.AddItem(menu : TMenu; index : integer) : boolean;');
Result := BMenu_AddItem_5(CPlusObject, menu.CPlusObject, index);
end;
function TMenu.AddItem(menu : TMenu; frame : TRect) : boolean;
begin
WriteLn('function TMenu.AddItem(menu : TMenu; frame : TRect) : boolean;');
SendText('function TMenu.AddItem(menu : TMenu; frame : TRect) : boolean;');
Result := BMenu_AddItem_6(CPlusObject, menu.CPlusObject, frame.CPlusObject);
end;
}

6
bepascal/bepascal/be/interface/view.pp
View File

@@ -22,7 +22,7 @@ interface
uses
beobj, handler, rect, os, application, appdefs, message,
graphicdefs;
graphicdefs, fdblib;
type
// TWindow = class(TBeObject);
@@ -191,7 +191,7 @@ end;
procedure TView.Draw(updateRect : TRect);
begin
WriteLn('Drawing view');
SendText('Drawing view');
end;
@@ -516,4 +516,4 @@ initialization
// View_TargetedByScrollView_hook := @View_TargetedByScrollView_hook_func;
View_WindowActivated_hook := @View_WindowActivated_hook_func;
end.
end.