/[mcclim]/mcclim/medium.lisp
ViewVC logotype

Diff of /mcclim/medium.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.24 by gilbert, Sun Feb 10 01:11:20 2002 UTC revision 1.25 by gilbert, Sun Feb 10 13:55:13 2002 UTC
# Line 57  Line 57 
57     (sheet :initarg :sheet     (sheet :initarg :sheet
58            :initform nil                 ; this means that medium is not linked to a sheet            :initform nil                 ; this means that medium is not linked to a sheet
59            :reader medium-sheet            :reader medium-sheet
60            :writer (setf %medium-sheet) )))            :writer (setf %medium-sheet) ))
61      (:documentation "The basic class, on which all CLIM mediums are built.") )
62    
63  (defclass ungrafted-medium (basic-medium) ())  (defclass ungrafted-medium (basic-medium) ())
64    
# Line 404  Line 405 
405    
406  ;;; BASIC-MEDIUM class  ;;; BASIC-MEDIUM class
407    
 (defclass basic-medium (medium)  
   ()  
   (:documentation "The basic class, on which all CLIM mediums are built."))  
   
408  (defmacro with-transformed-position ((transformation x y) &body body)  (defmacro with-transformed-position ((transformation x y) &body body)
409    `(multiple-value-bind (,x ,y) (transform-position ,transformation ,x ,y)    `(multiple-value-bind (,x ,y) (transform-position ,transformation ,x ,y)
410       ,@body))       ,@body))

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

  ViewVC Help
Powered by ViewVC 1.1.5