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

Merge pull request #509 from Interlisp/run-medley-noscroll

Browse Source 
Add -noscroll option to run-medley; turns off scollbars
This commit is contained in:
Larry Masinter 2021-10-04 16:27:03 -07:00 committed by GitHub
commit e39943fdcc
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 13 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
run-medley
View File

@ -1,7 +1,8 @@
#!/bin/sh
# Run Medley
#
# Syntax: run-medley [--dimensions WIDTHxHEIGHT] # sets both -g -sc
# Syntax: run-medley [-noscroll] #turn off scrollbars
# [--dimensions WIDTHxHEIGHT] # sets both -g -sc
# [-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
@ -65,19 +68,24 @@ while [ "$#" -ne 0 ]; do
mkdir -p $MEDLEYDIR/tmp/logindir
export HOME=$MEDLEYDIR/tmp/logindir
export LOGINDIR=$MEDLEYDIR/tmp/logindir
export LDEINIT="$MEDLEYDIR/greetfiles/NOGREET"
;;
"-greet" | "--greet")
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 +188,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"