github.com/Interlisp.medley
1
0
Fork 0
mirror of synced 2026-01-13 23:47:27 +00:00
Code Issues Projects Releases Wiki Activity

Add -noscroll option to run-medley; turns off scollbars

Browse Source
This commit is contained in:
Larry Masinter 2021-09-30 17:22:19 -07:00
parent 63904f754c
commit 1380722e55
1 changed files with 11 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
run-medley
View File

@ -2,6 +2,7 @@
# Run Medley
#
# Syntax: run-medley [--dimensions WIDTHxHEIGHT] # sets both -g -sc
# [-noscroll] # sc = gw x gh+16
# [-g WIDTHxHEIGHT]
# [-sc WIDTHxHEIGHT]
# [--display X_DISPLAY] # defaults to $DISPLAY or :0
@ -38,6 +39,8 @@ fi
prog="lde"
passthrough_args=""
mem="-m 256"
scroll=22
noscroll=""
if [ -z "$LDEDESTSYSOUT" ] ; then
if [ -z "$LOGINDIR" ] ; then
@ -71,13 +74,17 @@ while [ "$#" -ne 0 ]; do
export LDEINIT="$2"
shift
;;
"-noscroll")
scroll=0
noscroll="-noscroll"
;;
"--dimensions" | "-dimensions")
sw=`expr "$2" : "\([0-9]*\)x[0-9]*$"`
sh=`expr "$2" : "[0-9]*x\([0-9]*\)$"`
if [ -n "$sw" -a -n "$sh" ] ; then
sw=$(( (31+$sw)/32*32 ))
gw=$(( 22+$sw ))
gh=$(( 22+$sh ))
gw=$(( $scroll+$sw ))
gh=$(( $scroll+$sh ))
geometry="-g ${gw}x${gh}"
screensize="-sc ${sw}x${sh}"
fi
@ -180,11 +187,11 @@ if ! command -v "$prog" > /dev/null 2>&1; then
fi
fi
echo "running: $prog $geometry $screensize $mem $passthrough_args $LDESRCESYSOUT"
echo "running: $prog $noscroll $geometry $screensize $mem $passthrough_args $LDESRCESYSOUT"
echo "greet: $LDEINIT"
export INMEDLEY=1
"$prog" $geometry $screensize $mem -t "Medley Interlisp" $passthrough_args "$LDESRCESYSOUT"
"$prog" $noscroll $geometry $screensize $mem -t "Medley Interlisp" $passthrough_args "$LDESRCESYSOUT"