The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
#  Copyright (c) 1995-1996 Sun Microsystems, Inc.
#  See the file "license.terms" for information on usage and redistribution
#  of this file, and for a DISCLAIMER OF ALL WARRANTIES.
#
#

=head1 NAME

Tk_StrictMotif - Return value of tk_strictMotif variable

=for category C Programming

=head1 SYNOPSIS

B<#include E<lt>tk.hE<gt>>

int
B<Tk_StrictMotif>(I<tkwin>)

=head1 ARGUMENTS

=over 4

=item Tk_Window tkwin (in)

Token for window.

=back

=head1 DESCRIPTION

This procedure returns the current value of the B<tk_strictMotif>
variable in the interpreter associated with I<tkwin>'s application.
The value is returned as an integer that is either 0 or 1.
1 means that strict Motif compliance has been requested, so anything
that is not part of the Motif specification should be avoided.
0 means that ``Motif-like'' is good enough, and extra features
are welcome.

This procedure uses a link to the Tcl variable to provide much
faster access to the variable's value than could be had by calling
B<Tcl_GetVar>.

=head1 KEYWORDS

Motif compliance, tk_strictMotif variable