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

debugger: less hints

Browse Source 
git-svn-id: branches/fixes_2_0@60850 -
This commit is contained in:
mattias 2019-04-06 08:12:17 +00:00
parent 3c0457b4b2
commit c8232d3472
2 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
debugger/pseudoterminaldlg.pp
View File

@ -129,7 +129,7 @@ begin
if DebugBoss = nil then if DebugBoss = nil then
exit; exit;
if DebugBoss.PseudoTerminal = nil then if DebugBoss.{%H-}PseudoTerminal = nil then
exit; exit;
(* Even if the IDE is initialised this can be called before the TTY is set up, *) (* Even if the IDE is initialised this can be called before the TTY is set up, *)
@ -176,7 +176,7 @@ begin
if DebugBoss = nil then if DebugBoss = nil then
exit; exit;
if DebugBoss.PseudoTerminal = nil then if DebugBoss.{%H-}PseudoTerminal = nil then
exit; exit;
(* Even if the IDE is initialised this can be called before the TTY is set up, *) (* Even if the IDE is initialised this can be called before the TTY is set up, *)
@ -271,7 +271,7 @@ begin
// Requires -dDBG_WITH_DEBUGGER_DEBUG // Requires -dDBG_WITH_DEBUGGER_DEBUG
if DebugBoss.PseudoTerminal <> nil then begin if DebugBoss.{%H-}PseudoTerminal <> nil then begin
//DebugLn(DBG_VERBOSE, ['TPseudoConsoleDlg.AddOutput PseudoTerminal.DevicePtyMaster=', //DebugLn(DBG_VERBOSE, ['TPseudoConsoleDlg.AddOutput PseudoTerminal.DevicePtyMaster=',
// DebugBoss.PseudoTerminal.DevicePtyMaster]); // DebugBoss.PseudoTerminal.DevicePtyMaster]);
{$IFDEF USE_SLAVE_HANDLE } {$IFDEF USE_SLAVE_HANDLE }
@ -279,7 +279,7 @@ begin
//DebugLn(DBG_VERBOSE, ['TPseudoConsoleDlg.AddOutput PseudoTerminal.Devicename="', s, '"']); //DebugLn(DBG_VERBOSE, ['TPseudoConsoleDlg.AddOutput PseudoTerminal.Devicename="', s, '"']);
ttyHandle := fileopen(s, fmOpenWrite) ttyHandle := fileopen(s, fmOpenWrite)
{$ELSE } {$ELSE }
ttyHandle := DebugBoss.PseudoTerminal.DevicePtyMaster; ttyHandle := DebugBoss.{%H-}PseudoTerminal.DevicePtyMaster;
{$ENDIF USE_SLAVE_HANDLE } {$ENDIF USE_SLAVE_HANDLE }
//DebugLn(DBG_VERBOSE, ['TPseudoConsoleDlg.AddOutput ttyHandle=', ttyHandle]); //DebugLn(DBG_VERBOSE, ['TPseudoConsoleDlg.AddOutput ttyHandle=', ttyHandle]);
getCharHeightAndWidth(Memo1.Font, fCharHeight, fCharWidth) getCharHeightAndWidth(Memo1.Font, fCharHeight, fCharWidth)
@ -498,7 +498,7 @@ var
enq= #$22A0; // ⊠ enq= #$22A0; // ⊠
ack= #$2713; // ✓ ack= #$2713; // ✓
bel= #$237E; // ⍾ bel= #$237E; // ⍾
bsW= #$232B; // ⌫ //bsW= #$232B; // ⌫
bsB= #$2196; // ↖ The ECMA glyph is slightly curved bsB= #$2196; // ↖ The ECMA glyph is slightly curved
bs= bsB; // and has no Unicode representation. bs= bsB; // and has no Unicode representation.
ht= #$2AAB; // ⪫ ht= #$2AAB; // ⪫
@ -506,7 +506,7 @@ var
vt= #$2A5B; // ⩛ vt= #$2A5B; // ⩛
ff= #$21A1; // ↡ ff= #$21A1; // ↡
crW= #$2aaa; // ⪪ ECMA the same crW= #$2aaa; // ⪪ ECMA the same
crB= #$25bf; // ▿ //crB= #$25bf; // ▿
cr= crW; cr= crW;
so= #$2297; // ⊗ so= #$2297; // ⊗
si= #$2299; // ⊙ si= #$2299; // ⊙
@ -524,13 +524,13 @@ var
esc= #$2296; // ⊖ esc= #$2296; // ⊖
fs= #$25F0; // ◰ Nota bene: these rotate widdershins fs= #$25F0; // ◰ Nota bene: these rotate widdershins
gsW= #$25F1; // ◱ ECMA the same gsW= #$25F1; // ◱ ECMA the same
gsB= #$25b5; // ▵ //gsB= #$25b5; // ▵
gs= gsW; gs= gsW;
rsW= #$25F2; // ◲ ECMA the same rsW= #$25F2; // ◲ ECMA the same
rsB= #$25c3; // ◃ //rsB= #$25c3; // ◃
rs= rsW; rs= rsW;
usW= #$25F3; // ◳ ECMA the same usW= #$25F3; // ◳ ECMA the same
usB= #$25b9; // ▹ //usB= #$25b9; // ▹
us= usW; us= usW;
del= #$2425; // ␥ del= #$2425; // ␥
bar= #$033c; // ̼' bar= #$033c; // ̼'

6
debugger/watchesdlg.pp
View File

@ -122,9 +122,9 @@ type
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure lvWatchesDblClick(Sender: TObject); procedure lvWatchesDblClick(Sender: TObject);
procedure lvWatchesDragDrop(Sender, Source: TObject; X, Y: Integer); procedure lvWatchesDragDrop(Sender, Source: TObject; {%H-}X, {%H-}Y: Integer);
procedure lvWatchesDragOver(Sender, Source: TObject; X, Y: Integer; procedure lvWatchesDragOver(Sender, Source: TObject; {%H-}X, {%H-}Y: Integer;
State: TDragState; var Accept: Boolean); {%H-}State: TDragState; var Accept: Boolean);
procedure lvWatchesSelectItem(Sender: TObject; {%H-}AItem: TListItem; {%H-}Selected: Boolean); procedure lvWatchesSelectItem(Sender: TObject; {%H-}AItem: TListItem; {%H-}Selected: Boolean);
procedure popAddClick(Sender: TObject); procedure popAddClick(Sender: TObject);
procedure popPropertiesClick(Sender: TObject); procedure popPropertiesClick(Sender: TObject);