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