Add test for mouse menu position.

regress/menu-mouse.sh

@@ -0,0 +1,66 @@
+#!/bin/sh
+
+# Check that mouse selection in an active menu uses the correct coordinates
+# when the status line is at the top.
+
+PATH=/bin:/usr/bin
+TERM=screen
+
+[ -z "$TEST_TMUX" ] && TEST_TMUX=$(readlink -f ../tmux)
+TMUX="$TEST_TMUX -LtestA$$ -f/dev/null"
+TMUX2="$TEST_TMUX -LtestB$$ -f/dev/null"
+
+cleanup()
+{
+	$TMUX kill-server >/dev/null 2>&1
+	$TMUX2 kill-server >/dev/null 2>&1
+}
+fail()
+{
+	echo "$*" >&2
+	cleanup
+	exit 1
+}
+
+# click COL ROW
+#
+# Write an SGR mouse press then release at a 1-based position to the outer pane
+# holding the inner client.
+click()
+{
+	col="$1"
+	row="$2"
+
+	seq=$(printf '\033[<0;%s;%sM\033[<0;%s;%sm' \
+	    "$col" "$row" "$col" "$row")
+	$TMUX2 send-keys -t "$OUTER" -l "$seq" 2>/dev/null
+	sleep 1
+}
+
+cleanup
+
+$TMUX new-session -d -s inner -x 80 -y 24 'sleep 100' || exit 1
+$TMUX set -g mouse on || exit 1
+$TMUX set -g status-position top || exit 1
+$TMUX set -g @menu-choice '' || exit 1
+
+$TMUX2 new-session -d -x 80 -y 24 "$TMUX attach -t inner" || exit 1
+sleep 1
+OUTER=$($TMUX2 list-panes -F '#{pane_id}' | head -1)
+[ -n "$OUTER" ] || fail "No outer pane."
+
+$TMUX display-menu -M -x 5 -y 7 \
+    "First item" f "set -g @menu-choice first" \
+    "Second item" s "set -g @menu-choice second" || exit 1
+sleep 1
+
+# -y is the bottom of the menu, so with four menu lines this puts the menu at
+# window y=3. The first item is then at window y=4. With one status line at the
+# top, this is terminal row 6 in SGR's 1-based coordinates.
+click 8 6
+
+choice=$($TMUX show -gv @menu-choice 2>/dev/null)
+[ "$choice" = "first" ] || fail "got '$choice', expected 'first'"
+
+cleanup
+exit 0