diff --git a/src/ce_dmdwrap.pas b/src/ce_dmdwrap.pas index b1192f94..e6986591 100644 --- a/src/ce_dmdwrap.pas +++ b/src/ce_dmdwrap.pas @@ -155,7 +155,7 @@ type property versionIdentifiers: TStringList read fVerIds write setVerIds; property generateAllTmpCode: boolean read fAllInst write setAllInst default false; property addStackStompCode: boolean read fStackStomp write setStackStomp default false; - //TODO-cmaintenace: remove deprecated props after next rlz + //TODO-cmaintenace: remove deprecated props property generateStackFrame: boolean write setGenStack stored false; deprecated; public constructor create; override; @@ -192,7 +192,7 @@ type property generateInfos: boolean read fGenInfos write setGenInfos default false; property generateMapFile: boolean read fGenMap write setGenMap default false; property generateStackFrame: boolean read fGenFrame write setGenFrame default false; - //TODO-cmaintenace: remove deprecated props after next rlz + //TODO-cmaintenace: remove deprecated props property debug: boolean write setDebugConditions; deprecated; property codeviewDexts: boolean write setGenInfos stored false; deprecated; property codeviewCformat: boolean write setDbgC stored false; deprecated; diff --git a/src/ce_infos.lfm b/src/ce_infos.lfm index 93699f01..abc2c49c 100644 --- a/src/ce_infos.lfm +++ b/src/ce_infos.lfm @@ -1,21 +1,21 @@ inherited CEInfoWidget: TCEInfoWidget Left = 713 - Height = 423 + Height = 457 Top = 245 Width = 411 BorderIcons = [biSystemMenu, biMinimize, biMaximize] Caption = 'About' - ClientHeight = 423 + ClientHeight = 457 ClientWidth = 411 inherited Back: TPanel - Height = 423 + Height = 457 Width = 411 - ClientHeight = 423 + ClientHeight = 457 ClientWidth = 411 inherited Content: TPanel - Height = 423 + Height = 457 Width = 411 - ClientHeight = 423 + ClientHeight = 457 ClientWidth = 411 object GroupBox1: TGroupBox[0] Left = 4 @@ -46,18 +46,18 @@ inherited CEInfoWidget: TCEInfoWidget end object GroupBox2: TGroupBox[1] Left = 4 - Height = 306 + Height = 340 Top = 113 Width = 403 Align = alClient BorderSpacing.Around = 4 Caption = 'tools status' - ClientHeight = 276 + ClientHeight = 310 ClientWidth = 399 TabOrder = 1 object boxTools: TScrollBox Left = 4 - Height = 268 + Height = 302 Top = 4 Width = 391 HorzScrollBar.Page = 1 diff --git a/src/ce_infos.pas b/src/ce_infos.pas index 7d148aa5..49826b4c 100644 --- a/src/ce_infos.pas +++ b/src/ce_infos.pas @@ -180,6 +180,11 @@ begin 'optional, the D source code formater, needed by the Dfmt commander widget'); toolItem.Parent := boxTools; toolItem.ReAlign; + // TODO-cmaintenance: remove this entry if GDMD is distributed with GDC + toolItem := TToolInfo.Construct(self, tikOptional, 'gdmd', + 'optional, the GDC wrapper with a DMD command line interface'); + toolItem.Parent := boxTools; + toolItem.ReAlign; toolItem := TToolInfo.Construct(self, tikOptional, 'gdc', 'optional, the GDC D compiler'); toolItem.Parent := boxTools;