From 764bdb27a3395f6f7d271fb0a90927c5740341a1 Mon Sep 17 00:00:00 2001 From: Basile Burg Date: Sat, 21 Feb 2015 06:18:55 +0100 Subject: [PATCH] redesigned the ICEEditableShortcut interface --- src/ce_interfaces.pas | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) diff --git a/src/ce_interfaces.pas b/src/ce_interfaces.pas index 714f56f3..217c6677 100644 --- a/src/ce_interfaces.pas +++ b/src/ce_interfaces.pas @@ -122,14 +122,13 @@ type *) ICEEditableShortCut = interface ['ICEEditableShortCut'] - // a TCEEditableShortCutSubject queries the editable shortcuts count. - procedure scGetCount(out aValue: Integer); - // a TCEEditableShortCutSubject queries the shortcut category name. - procedure scGetCategory(out aValue: string); - // a TCEEditableShortCutSubject queries the state of the index-th shortcut. - procedure scGetItem(index: Integer; out aName: string; out aShortcut: Word); - // a TCEEditableShortCutSubject sends the possibly modified assignation of the index-th shortcut. - procedure scSetItem(index: Integer; const aCategory, aName: string; aShortcut: Word); + // a TCEEditableShortCutSubject will start to collect shortcuts if result + function scedWantFirst: boolean; + // a TCEEditableShortCutSubject collects the information on the shortcuts while result + function scedWantNext(out category, identifier: string; out aShortcut: TShortcut): boolean; + // a TCEEditableShortCutSubject sends the possibly modified shortcut + procedure scedSendItem(const category, identifier: string; aShortcut: TShortcut); + end; (** * An implementer manages its observers shortcuts.