在Racket的文本%上下文中添加右键菜单(弹出菜单%)

时间:2016-12-15 13:28:55

标签: user-interface mouseevent racket

在Racket的editor<%>类中,我可以覆盖on-default-event,以确定是否单击了鼠标右键。现在我想要一个右键菜单来显示剪切/复制/粘贴选项。这可能与 If li Is Nothing Then li = (From e In Employees _ Group Join j In Jobs On e.Jobcode Equals j.JobCode Into ej = Group _ From j In ej.DefaultIfEmpty _ Where (SqlMethods.Like(e.Last_Name, lastName & "%") Or j.JobCode.Contains(jobCode)) _ Order By e.Last_Name, e.First_Name_Used _ Select ID = e.EmployeeID, RACFID = e.Racf_id, _ Name = e.Last_Name & ", " & e.First_Name & " " & If(e.Middle_Name IsNot Nothing, e.Middle_Name.Substring(0, 1), ""), _ Contract = e.Contract, _ Title = j.Title, Gang = j.Gang, _ SupvName = (From e1 In Employees _ Join j1 In Jobs On e1.Jobcode Equals j1.JobCode _ Where j1.JobCode = j.NextJobCode _ Select sup = e1.Last_Name & ", " & e1.First_Name & " " & If(e1.Middle_Name IsNot Nothing, e1.Middle_Name.Substring(0, 1), "")).First.ToString()) End If Return li 有关吗?如果可能的话,我宁愿不直接将其添加到editor<%>,因为我打算将frame%用作剪辑。

1 个答案:

答案 0 :(得分:0)

我在Bracket中有一个示例,右键单击数学框(可以输入数学表达式的剪辑)显示一个小菜单。

https://github.com/soegaard/bracket/blob/master/gui/racket-cas.rkt#L320