From 32f27dd7d9b54d9a87c263d326c5f7c1bdb4693e Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Wed, 10 Nov 1993 21:15:04 +0000 Subject: [PATCH] Fixed bug in positioning of picture within a window that is not of an exact fitting size. --- v7/src/6001/picture.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/v7/src/6001/picture.scm b/v7/src/6001/picture.scm index d5435ca94..f9c7da137 100644 --- a/v7/src/6001/picture.scm +++ b/v7/src/6001/picture.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/picture.scm,v 1.20 1993/11/09 23:47:28 adams Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/6001/picture.scm,v 1.21 1993/11/10 21:15:04 adams Exp $ Copyright (c) 1991-92 Massachusetts Institute of Technology @@ -324,7 +324,7 @@ MIT in each case. |# (graphics-clear window) (graphics-operation window 'draw-image (quotient h-margin 2) - (quotient v-margin 2) + (- (quotient v-margin 2)) image) (if (and true-min-max? (not image-cached?)) (picture-set-image! pic image)))))))) -- 2.25.1