anchor.diff:    ;; Color structs are allocated as memory chunks by gdk, and since
     ;; there is no gdk_color_new we have to use this hack to get a new
     ;; color chunk
  -  (with-memory (location #.(foreign-size (find-class 'color)))
  +  (with-allocated-memory (location #.(foreign-size (find-class 'color)))
       (%color-copy location)))
   
   (defun %scale-value (value)
  
positive.code:     (float (truncate (* value 65535)))))
  
  (defmethod initialize-instance ((color color) &rest initargs
  				&key red green blue)
    (declare (ignore initargs))
    (call-next-method)
    (with-slots ((%red red) (%green green) (%blue blue)) color
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gdk.lisp,v 1.25 2006-04-11 18:28:38 espen Exp $
  
  
  (in-package "GDK")
  