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

fix #168 - Dup entries in the library manager

This commit is contained in:
Basile Burg 2017-07-09 14:08:03 +02:00
parent a25aba3409
commit 1fd020978a
No known key found for this signature in database
GPG Key ID: 1868039F415CB8CF
2 changed files with 20 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/ce_libman.pas
View File

@ -118,6 +118,10 @@ type
* in "paths", as required by the specified "source" code.
*)
procedure getLibsForSource(source, libs, paths: TStrings);
(**
* The caller gets the "-I" (import) command line arguments in opts
* for the imports (as identifier chains) in "imports".
*)
procedure getLibFilesForImports(imports: TStrings; opts: TStrings);
//
procedure updateDCD;

23
src/ce_libmaneditor.pas
View File

@ -76,6 +76,7 @@ type
function itemForRow(row: TListItem): TLibraryItem;
procedure RowToLibrary(row: TListItem; added: boolean = false);
procedure dataToGrid;
function isAliasRegistered(const anAlias: string): boolean;
protected
procedure DoShow; override;
public
@ -109,6 +110,13 @@ begin
btnEnabled.resourceName := 'BOOK_GREY';
end;
function TCELibManEditorWidget.isAliasRegistered(const anAlias: string): boolean;
var
i: TListItem = nil;
begin
result := list.Items.findCaption(anAlias, i);
end;
procedure TCELibManEditorWidget.projNew(project: ICECommonProject);
begin
fProj := project;
@ -408,11 +416,13 @@ var
begin
if TDubPackageQueryForm.showAndWait(nme, ver) <> mrOk then
exit;
if List.Items.findCaption(nme, row) then
if isAliasRegistered(nme) then
begin
if dlgYesNo(format('a library item with the alias "%s" already exists, do you wish to update it ?',
[nme])) <> mrYes then exit
else ovw := true;
[nme])) <> mrYes then
exit
else
ovw := true;
end;
{$IFDEF WINDOWS}
pth := GetEnvironmentVariable('APPDATA') + '\dub\packages\' + nme + '-' + ver;
@ -650,9 +660,9 @@ begin
if fProj = nil then
exit;
fname := fProj.filename;
fname := fProj.outputFilename;
lalias := ExtractFileNameOnly(fname);
if List.Items.findCaption(lalias, row) then
if isAliasRegistered(lalias) then
begin
dlgOkInfo(format('a library item with the alias "%s" already exists, delete it before trying again.',
[lalias]));
@ -668,10 +678,9 @@ begin
exit;
end;
fname := fProj.outputFilename;
row := List.Items.Add;
row.Data := LibMan.libraries.Add;
row.Caption := ExtractFileNameOnly(fname);
row.Caption := lalias;
if fname.extractFileExt <> libExt then
row.SubItems.add(fname + libExt)
else