mirrors/doublecmd
2
0
Fork 0
mirror of https://github.com/doublecmd/doublecmd.git synced 2026-06-21 09:58:13 +00:00
Code Issues Projects Releases Packages Wiki Activity

UPD: mission accomplished, Revert "UPD: logs for debugging on macOS"

Browse source
This commit is contained in:
rich2014 2026-01-24 21:00:23 +08:00
commit 828829ff70
1 changed files with 0 additions and 45 deletions
Download patch file Download diff file Expand all files Collapse all files

45
src/platform/unix/darwin/udarwinapplication.pas
View file

@ -7,7 +7,6 @@ interface
uses
Classes, SysUtils, Menus, uLng,
Controls, Forms, ExtCtrls, LazLoggerBase, uLog,
MacOSAll, CocoaAll,
CocoaInt, CocoaPrivate, CocoaThemes, Cocoa_Extra, CocoaMenus, CocoaUtils, CocoaConst,
uDarwinUtil, uDarwinFinder;
@ -311,49 +310,5 @@ begin
AttachEditMenu( menu, menu.numberOfItems, CocoaConst.NSSTR_EDIT_MENU );
end;
type
TDebugTimer = class( TTimer )
procedure log( Sender: TObject );
end;
procedure TDebugTimer.log(Sender: TObject);
var
form: TForm;
control: TControl;
DCApp: TDCCocoaApplication Absolute NSApp;
window: NSWindow;
responder: NSResponder;
begin
form:= Screen.ActiveForm;
if form <> nil then
control:= form.ActiveControl
else
control:= nil;
LogWrite( '>>> ' + TimeToStr(now) );
LogWrite( 'LCL:' );
LogWrite( ' ' + DbgsName(form) );
LogWrite( ' ' + DbgsName(control) );
window:= DCApp.keyWindow;
responder:= window.firstResponder;
LogWrite( 'COCOA:' );
LogWrite( ' ' + window.className.UTF8String + ': ' + DbgsName(window.lclGetTarget) );
LogWrite( ' ' + responder.className.UTF8String + ': ' + DbgsName(responder.lclGetTarget) );
LogWrite( '' );
end;
var
debugTimer: TDebugTimer;
initialization
debugTimer:= TDebugTimer.Create( nil );
debugTimer.Interval:= 10*1000;
debugTimer.OnTimer:= @debugTimer.log;
debugTimer.Enabled:= True;
end.