forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

remove remaining refs to dastworx

This commit is contained in:
Basile Burg 2020-04-21 03:33:40 +02:00
parent d50abc7c0d
commit e732b27eeb
3 changed files with 8 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/u_infos.pas
View File

@ -259,11 +259,6 @@ begin
'mandatory, provides IDE-grade features such as the completion'); 'mandatory, provides IDE-grade features such as the completion');
itm.Parent := boxTools; itm.Parent := boxTools;
itm.ReAlign; itm.ReAlign;
itm := TToolInfo.Construct(self, tikFindable, 'dastworx',
'background tool that processes the D modules to extract informations' +
LineEnding + 'such as the declarations, the imports, the "TODO" comments, etc.');
itm.Parent := boxTools;
itm.ReAlign;
itm := TToolInfo.Construct(self, tikOptional, 'dub', itm := TToolInfo.Construct(self, tikOptional, 'dub',
'the D package manager, mandatory to compile project in DUB format'); 'the D package manager, mandatory to compile project in DUB format');
itm.Parent := boxTools; itm.Parent := boxTools;

29
src/u_symlist.pas
View File

@ -150,10 +150,7 @@ type
procedure updateVisibleCat; procedure updateVisibleCat;
procedure clearTree; procedure clearTree;
procedure smartExpand; procedure smartExpand;
procedure getSymbols;
procedure checkIfHasToolExe;
procedure callToolProc;
procedure docNew(document: TDexedMemo); procedure docNew(document: TDexedMemo);
procedure docClosing(document: TDexedMemo); procedure docClosing(document: TDexedMemo);
procedure docFocused(document: TDexedMemo); procedure docFocused(document: TDexedMemo);
@ -187,7 +184,6 @@ implementation
const const
OptsFname = 'symbollist.txt'; OptsFname = 'symbollist.txt';
toolExeName = 'dastworx' + exeExt;
{$REGION Serializable symbols---------------------------------------------------} {$REGION Serializable symbols---------------------------------------------------}
constructor TSymbol.create(ACollection: TCollection); constructor TSymbol.create(ACollection: TCollection);
@ -329,7 +325,6 @@ begin
fAutoRefresh := false; fAutoRefresh := false;
fRefreshOnFocus := true; fRefreshOnFocus := true;
fRefreshOnChange := false; fRefreshOnChange := false;
checkIfHasToolExe;
fActCopyIdent := TAction.Create(self); fActCopyIdent := TAction.Create(self);
fActCopyIdent.OnExecute:=@actCopyIdentExecute; fActCopyIdent.OnExecute:=@actCopyIdentExecute;
@ -460,10 +455,9 @@ end;
procedure TSymbolListWidget.SetVisible(value: boolean); procedure TSymbolListWidget.SetVisible(value: boolean);
begin begin
inherited; inherited;
checkIfHasToolExe;
getMessageDisplay(fMsgs); getMessageDisplay(fMsgs);
if value then if value then
callToolProc; getSymbols;
end; end;
procedure TSymbolListWidget.setToolBarFlat(value: boolean); procedure TSymbolListWidget.setToolBarFlat(value: boolean);
@ -501,7 +495,7 @@ procedure TSymbolListWidget.actRefreshExecute(Sender: TObject);
begin begin
if Updating then if Updating then
exit; exit;
callToolProc; getSymbols;
end; end;
procedure TSymbolListWidget.actAutoRefreshExecute(Sender: TObject); procedure TSymbolListWidget.actAutoRefreshExecute(Sender: TObject);
@ -551,7 +545,7 @@ begin
if event <> oeeAccept then if event <> oeeAccept then
exit; exit;
fOptions.AssignTo(self); fOptions.AssignTo(self);
callToolProc; getSymbols;
end; end;
function TSymbolListWidget.optionedOptionsModified: boolean; function TSymbolListWidget.optionedOptionsModified: boolean;
@ -587,7 +581,7 @@ begin
if fAutoRefresh then if fAutoRefresh then
beginDelayedUpdate beginDelayedUpdate
else if fRefreshOnFocus then else if fRefreshOnFocus then
callToolProc; getSymbols;
end; end;
procedure TSymbolListWidget.docChanged(document: TDexedMemo); procedure TSymbolListWidget.docChanged(document: TDexedMemo);
@ -598,7 +592,7 @@ begin
if fAutoRefresh then if fAutoRefresh then
beginDelayedUpdate beginDelayedUpdate
else if fRefreshOnChange then else if fRefreshOnChange then
callToolProc; getSymbols;
if fSmartExpander then if fSmartExpander then
smartExpand; smartExpand;
@ -610,12 +604,11 @@ procedure TSymbolListWidget.updateDelayed;
begin begin
if not fAutoRefresh then if not fAutoRefresh then
exit; exit;
callToolProc; getSymbols;
end; end;
procedure TSymbolListWidget.btnRefreshClick(Sender: TObject); procedure TSymbolListWidget.btnRefreshClick(Sender: TObject);
begin begin
checkIfHasToolExe;
fActRefresh.Execute; fActRefresh.Execute;
end; end;
@ -734,13 +727,7 @@ begin
fDoc.SelectLine; fDoc.SelectLine;
end; end;
procedure TSymbolListWidget.checkIfHasToolExe; procedure TSymbolListWidget.getSymbols;
begin
fToolExeName := exeFullName(toolExeName);
fHasToolExe := fToolExeName.fileExists;
end;
procedure TSymbolListWidget.callToolProc;
function getCatNode(node: TTreeNode; stype: TSymbolType ): TTreeNode; function getCatNode(node: TTreeNode; stype: TSymbolType ): TTreeNode;
function newCat(const aCat: string): TTreeNode; function newCat(const aCat: string): TTreeNode;

3
src/u_synmemo.pas
View File

@ -193,7 +193,6 @@ type
fIdentDialShown: boolean; fIdentDialShown: boolean;
fScrollMemo: TScrollMemo; fScrollMemo: TScrollMemo;
fFilename: string; fFilename: string;
fDastWorxExename: string;
fModified: boolean; fModified: boolean;
fFileDate: double; fFileDate: double;
fCacheLoaded: boolean; fCacheLoaded: boolean;
@ -1215,8 +1214,6 @@ begin
fAutoCloseCurlyBrace:= autoCloseOnNewLineLexically; fAutoCloseCurlyBrace:= autoCloseOnNewLineLexically;
fAutoClosedPairs:= [autoCloseSquareBracket]; fAutoClosedPairs:= [autoCloseSquareBracket];
fDastWorxExename:= exeFullName('dastworx' + exeExt);
fDebugger := EntitiesConnector.getSingleService('IDebugger') as IDebugger; fDebugger := EntitiesConnector.getSingleService('IDebugger') as IDebugger;
subjDocNew(TMultiDocSubject(fMultiDocSubject), self); subjDocNew(TMultiDocSubject(fMultiDocSubject), self);