anchor.diff:    itm := TShortcutItem(fShortcuts.items.Add);
     itm.identifier := idt;
     itm.data:= sht;
  +  itm.declarator := obs;
     tree.Items.AddChildObject(prt, idt, itm);
     cat := '';
     idt := '';
  
positive.code: end;
  
  procedure TCEShortcutEditor.LabeledEdit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  begin
    if tree.Selected = nil then exit;
    if tree.Selected.Level = 0 then exit;
    if tree.Selected.Data = nil then exit;
    //
    if Key = VK_RETURN then shortcutCatcher.Enabled := false
    else TShortcutItem(tree.Selected.Data).data := Shortcut(Key, Shift);
    //
    updateEditCtrls;
  end;
  
negative.code:   private
      fIdentifier: string;
      fData: TShortcut;
      fDeclarator: ICEEditableShortCut;
      property declarator: ICEEditableShortCut read fDeclarator write fDeclarator;
    published
      property identifier: string read fIdentifier write fIdentifier;
      property data: TShortcut read fData write fData;
  