paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 01:19:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

cocoa: adding a debug utility to print the hierarchy of controls

Browse Source 
git-svn-id: trunk@61390 -
This commit is contained in:
dmitry 2019-06-14 17:14:42 +00:00
parent f65c6130f3
commit ea8b00fa1d
1 changed files with 9 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/interfaces/cocoa/cocoawscommon.pas
View File

@ -159,6 +159,7 @@ function CocoaModifiersToShiftState(AModifiers: NSUInteger; AMouseButtons: NSUIn
function NSObjectDebugStr(obj: NSObject): string;
function CallbackDebugStr(cb: ICommonCallback): string;
procedure DebugDumpParents(fromView: NSView);
implementation
@ -1766,5 +1767,13 @@ begin
end;
end;
procedure DebugDumpParents(fromView: NSView);
begin
while Assigned(fromView) do begin
writeln(fromView.lclClassName);
fromView := fromView.superView;
end;
end;
end.