From d9c144d966fba2498fbe21b4a91975178de2e7fc Mon Sep 17 00:00:00 2001
From: Nick Briggs <nicholas.h.briggs@gmail.com>
Date: Mon, 21 Nov 2022 13:04:07 -0800
Subject: [PATCH] Allow user override of -title option (#1026)

---
 run-medley | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/run-medley b/run-medley
index 6e10d066..0be8c312 100755
--- a/run-medley
+++ b/run-medley
@@ -41,6 +41,7 @@ pass=""
 mem="-m 256"
 scroll=22
 noscroll=""
+title="Medley Interlisp"
 
 if [ -z "$LDEDESTSYSOUT" ] ; then
     if [ -z "$LOGINDIR" ] ; then
@@ -112,6 +113,10 @@ while [ "$#" -ne 0 ]; do
 	    mem="-m $2 "
 	    shift
 	    ;;
+	-title)
+	    title="$2"
+	    shift
+	    ;;
         -vmem | --vmem | -vmfile)
             export LDEDESTSYSOUT="$2"
             shift
@@ -192,10 +197,10 @@ if ! command -v "$prog" > /dev/null 2>&1; then
     fi
 fi
 
-echo "running: $prog $noscroll $geometry $screensize $mem $pass $LDESRCESYSOUT"
+echo "running: $prog $noscroll $geometry $screensize -title \"$title\" $mem $pass $LDESRCESYSOUT"
 echo "greet: $LDEINIT"
 
 export INMEDLEY=1
 
-"$prog" $noscroll $geometry $screensize $mem -title "Medley Interlisp" $pass "$LDESRCESYSOUT"
+"$prog" $noscroll $geometry $screensize $mem -title "$title" $pass "$LDESRCESYSOUT"