15.3.621  src/lib/x-kit/draw/cartouche.api

## cartouche.api
#
# Drawing/filling rounded rectangles on X drawables.

# Compiled by:
#     src/lib/x-kit/draw/xkit-draw.sublib



# This api implemented in:
#     src/lib/x-kit/draw/cartouche.pkg

stipulate
    package xc =  xclient;                      # xclient       is from   src/lib/x-kit/xclient/xclient.pkg
    package g2d=  geometry2d;                   # geometry2d    is from   src/lib/std/2d/geometry2d.pkg
herein

    api Cartouche {


        # Draw outline of rounded rectangle:
        #
        draw_cartouche
            :
            xc::Drawable
            ->
            xc::Pen
            ->
            { box:   g2d::Box,
              corner_radius:    Int             # In pixels.
            }
            ->
            Void;

        # Draw a filled rounded rectangle:
        #
        fill_cartouche
            :
            xc::Drawable
            ->
            xc::Pen
            ->
            { box:   g2d::Box,
              corner_radius:   Int              # In pixels.
            }
            ->
            Void;

    };

end;



## COPYRIGHT (c) 1992 by AT&T Bell Laboratories
## Subsequent changes by Jeff Prothero Copyright (c) 2010-2015,
## released per terms of SMLNJ-COPYRIGHT.