From 106d7f9f21d9877545a859fb7222a4c184ad8484 Mon Sep 17 00:00:00 2001
From: Thomas Adam <thomas@fvwm.org>
Date: Wed, 3 Jan 2024 22:05:03 +0000
Subject: [PATCH] GotoPage: inject current screen if missing

When invoking the GotoPage command such as:

    GotoPage 0 0

... this would be invalid because the first argument is treated as a
screen identifier, which then fails the rest of the command.

In such cases, inject the screen name of the current monitor if it's
missing.

Fixes #941
---
 fvwm/virtual.c | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/fvwm/virtual.c b/fvwm/virtual.c
index 7acadfac0..8c8da485d 100644
--- a/fvwm/virtual.c
+++ b/fvwm/virtual.c
@@ -1831,6 +1831,20 @@ Bool get_page_arguments(
 	limitdeskx = 1;
 	limitdesky = 1;
 
+	/* We've received something like:
+	 *
+	 * GotoPage 0 0
+	 *
+	 * But no monitor token.  Use the current monitor.
+	 */
+	if (GetIntegerArguments(action, NULL, val, 2) == 2) {
+		xasprintf(&action, "%s %d %d",
+			monitor_get_current()->si->name, val[0], val[1]);
+
+		val[0] = -1;
+		val[1] = -1;
+	}
+
 	token = PeekToken(action, &next);
 	m = monitor_resolve_name(token);
 	if (m != NULL)