diff --git a/.ci-macosx.sh b/.ci-macosx.sh index f28fbc31b..657da4578 100644 --- a/.ci-macosx.sh +++ b/.ci-macosx.sh @@ -20,6 +20,8 @@ rm -f /usr/local/bin/idle3.11 rm -f /usr/local/bin/pydoc3.11 rm -f /usr/local/bin/python3.11 rm -f /usr/local/bin/python3.11-config +rm -f /usr/local/lib/libtcl8.6.dylib +rm -f /usr/local/lib/libtk8.6.dylib brew upgrade brew install pkg-config diff --git a/docs/howto-classify-students-answers.md b/docs/howto-classify-students-answers.md index 68fe941c8..d3da56c37 100644 --- a/docs/howto-classify-students-answers.md +++ b/docs/howto-classify-students-answers.md @@ -21,7 +21,7 @@ Follow these steps: 1. Go to the teaching tab in the LearnOCaml Web UI (needs a teacher token). -2. Middle-click on the exercise `x` in the list of exercises. +2. Hold Ctrl (on macOS: Hold ⌘) and left click on the exercise `x` in the list of exercises. 3. Enter `foo` in the dialog box. diff --git a/src/app/learnocaml_teacher_tab.ml b/src/app/learnocaml_teacher_tab.ml index d8eb3e344..f0bf5fbd2 100644 --- a/src/app/learnocaml_teacher_tab.ml +++ b/src/app/learnocaml_teacher_tab.ml @@ -236,7 +236,13 @@ let rec teacher_tab token _select _params () = H.a_ondblclick (fun _ -> open_exercise_ ()); H.a_onmouseup (fun ev -> Js.Optdef.case ev##.which (fun () -> true) @@ fun btn -> - if btn = Dom_html.Middle_button then open_partition_ () else true); + if (Js.to_bool ev##.ctrlKey || + Js.to_bool ev##.metaKey (* ⌘ on macOS *)) + && btn = Dom_html.Left_button + then + open_partition_ () + else + true); ] [ auto_checkbox_td (); H.td ~a:[indent_style group_level]