diff --git a/collects/mrlib/cache-image-snip.ss b/collects/mrlib/cache-image-snip.ss index 3870cb05..68ad469c 100644 --- a/collects/mrlib/cache-image-snip.ss +++ b/collects/mrlib/cache-image-snip.ss @@ -102,6 +102,10 @@ (argb-proc argb 0 0)) argb) + ;; get-argb/no-compute : -> (union #f argb) + (define/public (get-argb/no-compute) + argb) + (define/override (get-extent dc x y w h descent space lspace rspace) (set-box/f! w width) (set-box/f! h height)