english
version "1.0"
identify "%Z%%M% %I% %E%"

#: Copyright (c) 1994, 1995 by Wayne C. Gramlich.
#, All rights reserved.
#,
#, Permission to use, copy, modify, distribute, and sell this software
#, for any purpose is hereby granted without fee provided that the above
#, copyright notice and this permission are retained.  The author makes
#, no representations about the suitability of this software for any purpose.
#, It is provided "as is" without express or implied warranty.

module xlib_icon_size

#: This module implements an icon size object.  It corresponds exactly
#, to an Xib {XIconSize} object.  An {xlib_icon_size} object basically
#, provides suggested sizes for window icons.

import
    logical
    out_stream
    string
    unsigned


define xlib_icon_size
    record
	height_maximum unsigned		# Maximum icon height
	height_minimum unsigned		# Minimum icon height
	height_increment unsigned	# Increments between minimum and max.
	width_maximum unsigned		# Maximum icon height
	width_minimum unsigned		# Minimum icon height
	width_increment unsigned	# Increments between minimum and max.
    generate allocate, erase, print

procedure create@xlib_icon_size
    takes
	height_maximum unsigned
	height_minimum unsigned
	height_increment unsigned
	width_maximum unsigned
	width_minimum unsigned
	width_increment unsigned
    returns xlib_icon_size

    #: This procedure will create and return a new {xlib_icon_size} object
    #, and containing {height_maximum}, {height_minimum}, {height_increment},
    #, {width_maximum}, {wdith_minimum}, and {width_increment}.

    initialize xlib_icon_size:: xlib_icon_size := allocate@xlib_icon_size()
	xlib_icon_size.height_maximum := height_maximum
	xlib_icon_size.height_minimum := height_minimum
	xlib_icon_size.height_increment := height_increment
	xlib_icon_size.width_maximum := width_maximum
	xlib_icon_size.width_minimum := width_minimum
	xlib_icon_size.width_increment := width_increment
    return xlib_icon_size