mirror of
https://github.com/tmux/tmux.git
synced 2026-10-09 11:44:23 +00:00
130 lines
4.1 KiB
Bash
130 lines
4.1 KiB
Bash
#!/bin/sh
|
|
|
|
# A tiled pane's border title must reappear after a floating pane moves away.
|
|
# Start the drag below row zero so its initial press hits the floating pane.
|
|
|
|
PATH=/bin:/usr/bin
|
|
TERM=screen
|
|
LC_ALL=C.UTF-8
|
|
export TERM LC_ALL
|
|
|
|
[ -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
|
|
}
|
|
|
|
# drag COL ROW [ROW ...]
|
|
#
|
|
# Write one continuous mouse-1 gesture at column COL: a press at the first
|
|
# ROW, a drag update at each subsequent ROW in turn, and a release at the
|
|
# last ROW - all 1-based positions sent to the outer pane holding the
|
|
# inner client. This matches the default MouseDown1Border/MouseDrag1Border
|
|
# bindings used to move or resize a floating pane by its border.
|
|
#
|
|
# This must be one continuous press/drag/.../release gesture, not several
|
|
# separate drag() calls chained together: releasing clears the per-pane
|
|
# drag callback binding, so a later press has to be re-hit-tested from
|
|
# scratch, which only works reliably away from row 0 (see the header
|
|
# comment). A drag already under way is not re-hit-tested per motion
|
|
# event, so it can safely pass through row 0 as an intermediate waypoint.
|
|
drag()
|
|
{
|
|
col="$1"
|
|
shift
|
|
|
|
row="$1"
|
|
shift
|
|
seq=$(printf '\033[<0;%s;%sM' "$col" "$row")
|
|
$TMUX2 send-keys -t "$OUTER" -l "$seq" 2>/dev/null
|
|
sleep 0.2
|
|
|
|
while [ $# -gt 1 ]; do
|
|
row="$1"
|
|
shift
|
|
seq=$(printf '\033[<32;%s;%sM' "$col" "$row")
|
|
$TMUX2 send-keys -t "$OUTER" -l "$seq" 2>/dev/null
|
|
sleep 0.15
|
|
done
|
|
|
|
row="$1"
|
|
seq=$(printf '\033[<0;%s;%sm' "$col" "$row")
|
|
$TMUX2 send-keys -t "$OUTER" -l "$seq" 2>/dev/null
|
|
sleep 1
|
|
}
|
|
|
|
cleanup
|
|
|
|
TMP=$(mktemp)
|
|
trap "cleanup; rm -f $TMP" 0 1 15
|
|
|
|
$TMUX new-session -d -s inner -x 60 -y 20 'sh -c "sleep 100"' || exit 1
|
|
$TMUX set -g mouse on
|
|
$TMUX set -g pane-border-status top
|
|
$TMUX set -g default-command 'sh -c "sleep 100"'
|
|
|
|
BASE=$($TMUX list-panes -F '#{pane_id}' | head -1)
|
|
[ -n "$BASE" ] || fail "No base pane."
|
|
$TMUX select-pane -t "$BASE" -T TILEDTITLE || fail "set base title failed"
|
|
|
|
# Float a pane well clear of row 0 to start - its own top border must not
|
|
# coincide with the base pane's border-status row for the initial mouse
|
|
# press to unambiguously hit it (see the header comment). -x/-y are the
|
|
# pane's outer size including its 2-cell border frame, so request 2 more
|
|
# than the desired 14x3 content area (see layout_floating_args_parse()).
|
|
FLOAT=$($TMUX new-pane -d -PF '#{pane_id}' -x 16 -y 5 -X 5 -Y 5 -T FLOATTITLE) ||
|
|
fail "new-pane -X -Y failed"
|
|
FTOP=$($TMUX display-message -p -t "$FLOAT" '#{pane_top}')
|
|
FLEFT=$($TMUX display-message -p -t "$FLOAT" '#{pane_left}')
|
|
FWIDTH=$($TMUX display-message -p -t "$FLOAT" '#{pane_width}')
|
|
|
|
$TMUX2 new-session -d -x 60 -y 20 "$TMUX attach -t inner" || exit 1
|
|
sleep 1
|
|
OUTER=$($TMUX2 list-panes -F '#{pane_id}' | head -1)
|
|
[ -n "$OUTER" ] || fail "No outer pane."
|
|
|
|
# Sanity check: the base pane's title is visible now (the float starts
|
|
# well clear of row 0).
|
|
$TMUX2 capturep -p -t "$OUTER" >$TMP || fail "capture failed"
|
|
head -1 $TMP | grep -q TILEDTITLE ||
|
|
fail "base title not visible before the drag - test setup is wrong"
|
|
|
|
# Drag the float up by its top border (an unambiguous row - not row 0) so
|
|
# it ends up covering row 0, hiding the base pane's title behind its own
|
|
# border, then continue the same drag back down again so it ends clear of
|
|
# row 0 once more - one continuous gesture the whole way (see drag()'s
|
|
# comment for why).
|
|
GRABCOL=$((FLEFT + FWIDTH / 2))
|
|
waypoints="$FTOP"
|
|
row=$FTOP
|
|
while [ "$row" != 1 ]; do
|
|
row=$((row - 1))
|
|
waypoints="$waypoints $row"
|
|
done
|
|
while [ "$row" != "$FTOP" ]; do
|
|
row=$((row + 1))
|
|
waypoints="$waypoints $row"
|
|
done
|
|
drag $((GRABCOL + 1)) $waypoints
|
|
drag $((GRABCOL + 1)) 1 $((GRABCOL + 1)) "$FTOP"
|
|
|
|
$TMUX2 capturep -p -t "$OUTER" >$TMP || fail "capture failed"
|
|
|
|
# The base pane's title should be visible again now the floating pane has
|
|
# moved off its border-status row. This is expected to fail before the fix
|
|
# - see the header comment.
|
|
head -1 $TMP | grep -q TILEDTITLE ||
|
|
fail "base pane title still blank after floating pane moved away"
|
|
|
|
exit 0
|