mirror of
https://github.com/tmux/tmux.git
synced 2026-10-07 18:24:22 +00:00
81 lines
2.3 KiB
Bash
81 lines
2.3 KiB
Bash
#!/bin/sh
|
|
|
|
# Moving the mouse onto a pane with focus-follows-mouse makes it active without
|
|
# raising it, but clicking a pane's border always brings it to the front.
|
|
|
|
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
|
|
}
|
|
|
|
# check PANE FORMAT EXPECTED
|
|
check()
|
|
{
|
|
got=$($TMUX display-message -p -t "$1" "$2")
|
|
[ "$got" = "$3" ] || fail "$1 $2: got '$got', expected '$3'"
|
|
}
|
|
|
|
# mouse SEQUENCE: send the escape sequence to the inner client.
|
|
mouse()
|
|
{
|
|
$TMUX2 send-keys -t "$OUTER" -l "$(printf "$1")" || fail "send-keys failed"
|
|
sleep 1
|
|
}
|
|
|
|
cleanup
|
|
|
|
$TMUX new-session -d -s inner -x 80 -y 24 'sleep 100' || exit 1
|
|
$TMUX set -g status off || exit 1
|
|
$TMUX set -g mouse on || exit 1
|
|
$TMUX set -g focus-follows-mouse on || exit 1
|
|
$TMUX set -g pane-border-status top || exit 1
|
|
A=$($TMUX display-message -p '#{pane_id}') || exit 1
|
|
X=$($TMUX new-pane -dPF '#{pane_id}' -x 20 -y 6 -X 5 -Y 8 'sleep 100') || exit 1
|
|
Y=$($TMUX new-pane -dPF '#{pane_id}' -x 20 -y 6 -X 45 -Y 8 'sleep 100') || 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."
|
|
|
|
# Moving onto a floating pane that is behind another one focuses it but does not
|
|
# raise it, whatever pane-raise-on-focus says.
|
|
check "$A" '#{pane_active}' 1
|
|
check "$Y" '#{pane_z}' 0
|
|
mouse '\033[<35;12;12M\033[<35;14;13M'
|
|
check "$X" '#{pane_active}' 1
|
|
check "$Y" '#{pane_z}' 0
|
|
|
|
# Clicking inside a pane still raises a floating pane, as before.
|
|
mouse '\033[<0;54;12M\033[<0;54;12m'
|
|
check "$Y" '#{pane_active}:#{pane_z}' '1:0'
|
|
mouse '\033[<0;14;12M\033[<0;14;12m'
|
|
check "$X" '#{pane_active}:#{pane_z}' '1:0'
|
|
|
|
# A zoomed pane that is active under a floating pane is not raised by clicking
|
|
# inside it, but is raised by clicking on its border.
|
|
$TMUX resize-pane -Z -t "$A" || fail "zoom failed"
|
|
$TMUX select-pane -t "$Y" || fail "select failed"
|
|
$TMUX select-pane -t "$A" || fail "select failed"
|
|
check "$A" '#{pane_zoomed_flag}:#{pane_active}' '1:1'
|
|
check "$Y" '#{pane_z}' 0
|
|
mouse '\033[<0;3;1M\033[<0;3;1m'
|
|
check "$A" '#{pane_z}' 0
|
|
|
|
cleanup
|
|
exit 0
|