From 5073a793e3269ce27b816b983d141c9861bfbeeb Mon Sep 17 00:00:00 2001
From: Frank Halasz <frank@halasz.org>
Date: Mon, 13 May 2024 15:33:14 -0700
Subject: [PATCH] medley.sh: Fix handling of '--title -' in medley_run.sh and
 medley_args.sh (#1710)

* Fix handilng of '--title -' in medley_run.sh and medley_args.sh

* medley.sh: Fix typo in default title introduced in last commit
---
 scripts/medley/medley.command | 6 +++++-
 scripts/medley/medley_args.sh | 2 +-
 scripts/medley/medley_run.sh  | 4 ++++
 3 files changed, 10 insertions(+), 2 deletions(-)

diff --git a/scripts/medley/medley.command b/scripts/medley/medley.command
index 210851a5..041877d1 100755
--- a/scripts/medley/medley.command
+++ b/scripts/medley/medley.command
@@ -593,7 +593,7 @@ run_id="default"
 screensize=""
 sysout_arg=""
 sysout_stage=""
-title="Medley Interlisp %i"
+title=""
 use_vnc=false
 windows=false
 maikodir_arg=""
@@ -1235,6 +1235,10 @@ if [ -z "${LDEKBDTYPE}" ]; then
 fi
 
 # figure out title situation
+if [ -z "${title}" ]
+then
+  title="Medley Interlisp %i"
+fi
 if [ ! "${run_id}" = default ]
 then
   title="$(printf %s "${title}" | sed -e "s/%i/:: ${run_id}/")"
diff --git a/scripts/medley/medley_args.sh b/scripts/medley/medley_args.sh
index 5f0095aa..65fa080f 100755
--- a/scripts/medley/medley_args.sh
+++ b/scripts/medley/medley_args.sh
@@ -27,7 +27,7 @@ run_id="default"
 screensize=""
 sysout_arg=""
 sysout_stage=""
-title="Medley Interlisp %i"
+title=""
 use_vnc=false
 windows=false
 maikodir_arg=""
diff --git a/scripts/medley/medley_run.sh b/scripts/medley/medley_run.sh
index 78ddc9bf..46ed7f06 100644
--- a/scripts/medley/medley_run.sh
+++ b/scripts/medley/medley_run.sh
@@ -182,6 +182,10 @@ if [ -z "${LDEKBDTYPE}" ]; then
 fi
 
 # figure out title situation
+if [ -z "${title}" ]
+then
+  title="Medley Interlisp %i"
+fi
 if [ ! "${run_id}" = default ]
 then
   title="$(printf %s "${title}" | sed -e "s/%i/:: ${run_id}/")"