Merge branch 'master' of https://github.com/interlisp/medley

run-medley

@@ -59,8 +59,15 @@ while [ "$#" -ne 0 ]; do
             shift
             ;;
         "--dimensions" | "-dimensions")
-            geometry="-g $2"
-            screensize="-sc $2"
+            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 ))
+                 geometry="-g ${gw}x${gh}"
+                 screensize="-sc ${sw}x${sh}"
+            fi
             shift
             ;;
         "--geometry" | "-geometry" | "-g")