From e1241b8e073586a1f92b6fb8556883d45d077627 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Tue, 1 Apr 2003 17:59:51 +0000 Subject: [PATCH] r4309: Auto commit for Debian build --- io-clim.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/io-clim.lisp b/io-clim.lisp index da52b7a..ee6a0e8 100644 --- a/io-clim.lisp +++ b/io-clim.lisp @@ -8,7 +8,7 @@ ;;;; Programer: Kevin M. Rosenberg ;;;; Date Started: 1 Nov 2001 ;;;; -;;;; $Id: io-clim.lisp,v 1.6 2003/04/01 17:53:51 kevin Exp $ +;;;; $Id: io-clim.lisp,v 1.7 2003/04/01 17:59:51 kevin Exp $ ;;;; ;;;; This file is Copyright (c) 2001-2002 by Kevin M. Rosenberg ;;;; @@ -671,6 +671,9 @@ (+ label-height (* cell-height i) half-cell-inner-height)) :align-x :left :align-y :center)) + #-mcclim + (stream-set-cursor-position stream label-width label-height) + #+mcclim (setf (stream-set-cursor-position stream) (values label-width label-height)) (surrounding-output-with-border (stream) -- 2.34.1