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

ICEEditableShortcuts, not all observer were notified by scedSendDone

This commit is contained in:
Basile Burg 2016-01-24 06:34:14 +01:00
parent c52fc75a6e
commit 97697157a7
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
src/ce_shortcutseditor.pas
View File

@ -407,19 +407,25 @@ procedure TCEShortcutEditor.sendShortcuts;
var var
i: integer; i: integer;
shc: TShortcutItem; shc: TShortcutItem;
decl: ICEEditableShortCut = nil;
cat: string; cat: string;
begin begin
for i := 0 to fShortcuts.count-1 do for i := 0 to fShortcuts.count-1 do
begin begin
shc := fShortcuts[i]; shc := fShortcuts[i];
decl:= shc.declarator;
if decl = nil then
continue;
cat := findCategory(shc); cat := findCategory(shc);
if cat.isEmpty then if cat.isEmpty then
continue; continue;
if shc.declarator = nil then decl.scedSendItem(cat, shc.identifier, shc.data);
continue; if i = fShortcuts.count-1 then
shc.declarator.scedSendItem(cat, shc.identifier, shc.data); decl.scedSendDone
// fShortcuts is always sorted by declarator, cf. receiveShortcuts()
else if decl <> fShortcuts[i+1].declarator then
decl.scedSendDone;
end; end;
shc.declarator.scedSendDone;
end; end;
{$ENDREGION} {$ENDREGION}