15.3.706  src/lib/x-kit/widget/old/leaf/slider-look.api

## slider-look.api
# Slider views.

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

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
    #
    package wa =  widget_attribute_old;                 # widget_attribute_old  is from   src/lib/x-kit/widget/old/lib/widget-attribute-old.pkg
    package wg =  widget;                               # widget                is from   src/lib/x-kit/widget/old/basic/widget.pkg
herein

    api Slider_Look {

        Slider_Look;

        State = (Int, Bool, Bool, Bool);

        widget_attributes:   List( (wa::Name, wa::Type, wa::Value) );

        make_slider_look:  (wg::Root_Window, (wa::Name -> wa::Value)) -> Slider_Look;

        make_slider_drawfn:  (xc::Window, g2d::Size, Slider_Look) -> (State, Bool) -> Void;

        pt_to_val:  (g2d::Size, Slider_Look) -> g2d::Point -> Int;

        size_preference_thunk_of:  Slider_Look -> Void -> wg::Widget_Size_Preference;
    };
end;


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