Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
Why3
why3
Commits
81bbad2b
Commit
81bbad2b
authored
May 19, 2017
by
MARCHE Claude
Browse files
IDE GTK: show the tools menu on right click
parent
0c327fa2
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/ide/why3ide.ml
View file @
81bbad2b
...
...
@@ -1250,6 +1250,8 @@ let (_ : GtkSignal.id) =
|
[
r
]
->
on_selected_row
r
;
if
!
has_right_click
then
(* TODO here show the menu *)
tools_menu
#
popup
~
button
:
1
~
time
:
0
l
;
(*
GToolbox.popup_menu ~entries:[
`I("Mark Obsolete",
(* TODO add a mark_obsolete function *)
...
...
@@ -1266,6 +1268,7 @@ let (_ : GtkSignal.id) =
`I("Choix 2.3",(fun () -> Format.eprintf "Popup menu: choix 2.3 active@."));
]
~button:1 ~time:0l;
*)
has_right_click
:=
false
|
_
->
()
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment