TABLE OF CONTENTS

::pwtk::type::range

SYNOPSIS

proc ::pwtk::type::range {type from to number} {

PURPOSE

Check if a 'number' is of correct type and is in the [from,to] range.

RETURN VALUE

SOURCE

    if { $number ne {} } {
        if { ! [::pwtk::type::number $type -strict $from] || ! [::pwtk::type::number $type -strict $to]
             ||  $number < $from || $number > $to } {
            return 0
        }
    }
    return 1
}