TABLE OF CONTENTS


::pwtk::abort

SYNOPSIS

proc ::pwtk::abort {msg} {

DESCRIPTION

Like a C abort() function. Prints the message and aborts the application.

ARGUMENTS

SOURCE

    puts stderr "ABORT: $msg"

    if { [info level] > 1 } {
        puts stderr "ABORT statement executed in: [info level -1]"
    } else {
        puts stderr "ABORT statement executed in top-level"
    }
    exit
}