function Hyper_Notepad_OnLoad()
ChatFrame1:AddMessage("OnLoad "..tostring(SetItemRef))
--	lOriginal_SetItemRef = SetItemRef;  -- Remember old function
SetItemRef = SetItemRef;       -- Hook in ours
end

local oldSetItemRef = SetItemRef;
function SetItemRef(link,text,button)
ChatFrame1:AddMessage("Hooked");
  if(IsShiftKeyDown() and Hyper_NotepadFrame:IsVisible()) then
    Hyper_NotepadFrame:Insert(text)
  end
  oldSetItemRef(link,text,button);
end