[mcclim-cvs] CVS update: mcclim/Examples/puzzle.lisp

[Andy Hefner]

Update of /project/mcclim/cvsroot/mcclim/Examples
In directory common-lisp.net:/tmp/cvs-serv28930

Modified Files:
	puzzle.lisp 
Log Message:
Very tiny changes to get puzzle running so we can put it back in the 
examples system.

Date: Mon Jan 31 20:30:21 2005
Author: ahefner

Index: mcclim/Examples/puzzle.lisp
diff -u mcclim/Examples/puzzle.lisp:1.2 mcclim/Examples/puzzle.lisp:1.3
--- mcclim/Examples/puzzle.lisp:1.2	Fri Mar 21 07:15:09 2003
+++ mcclim/Examples/puzzle.lisp	Mon Jan 31 20:30:20 2005
@@ -2,7 +2,7 @@
 
 ;; $fiHeader: puzzle.lisp,v 1.23 1993/07/27 01:46:05 colin Exp $
 
-(in-package :clim)
+(in-package :clim-demo)
 
 "Copyright (c) 1989, 1990, 1991, 1992 Symbolics, Inc.  All rights reserved."
 
@@ -46,7 +46,8 @@
 (define-presentation-method highlight-presentation ((type puzzle-cell) record stream state)
   state
   (multiple-value-bind (xoff yoff)
-      (convert-from-relative-to-absolute-coordinates 
+      (#+mcclim climi::convert-from-relative-to-absolute-coordinates ;; Legacy CLIM 1.0 function..
+       #-mcclim clim:convert-from-relative-to-absolute-coordinates
 	stream (output-record-parent record))
     (with-bounding-rectangle* (left top right bottom) record
       (draw-rectangle* stream