15.3.709  src/lib/x-kit/widget/old/leaf/toggleswitch-factory.api

## toggleswitch-factory.api

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

# This api is implemented in:
#
#     src/lib/x-kit/widget/old/leaf/toggleswitch-behavior-g.pkg

stipulate
    package tt =  toggle_type;                                          # toggle_type   is from   src/lib/x-kit/widget/old/leaf/toggle-type.pkg
    package wg =  widget;                                               # widget        is from   src/lib/x-kit/widget/old/basic/widget.pkg
herein

    api Toggleswitch_Factory {
        #
        make_toggleswitchxxx:  (wg::Root_Window, wg::View, List(wg::Arg)) -> tt::Toggleswitch;

        make_toggleswitch_with_click_callback
            :
            (wg::Root_Window, wg::View, List(wg::Arg))
            ->
            (Bool -> Void)                                              # Callback function invoked when ON/OFF state changes.
            ->
            tt::Toggleswitch;
    };

end;


## COPYRIGHT (c) 1991, 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.