./src/auxil.tcl

::pwtk::warning

::pwtk::warning

SYNOPSIS

proc ::pwtk::warning {msg} {

DESCRIPTION

Print the warning message.

ARGUMENTS

msg -- warning message to print to stderr

SOURCE

    if { [info level] > 1 } {
        set prefixMsg "from [lindex [info level -1] 0]: "
    } else {
        set prefixMsg "from top-level: "
    } 
    ::tclu::warningDialog "${prefixMsg}$msg"
}

TABLE OF CONTENTS

::pwtk::warning