diff options
Diffstat (limited to 'ipl/gprocs/wattrib.icn')
| -rw-r--r-- | ipl/gprocs/wattrib.icn | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/ipl/gprocs/wattrib.icn b/ipl/gprocs/wattrib.icn new file mode 100644 index 0000000..76324e7 --- /dev/null +++ b/ipl/gprocs/wattrib.icn @@ -0,0 +1,51 @@ +############################################################################ +# +# File: wattrib.icn +# +# Subject: Procedures for attributes +# +# Author: Ralph E. Griswold +# +# Date: March 6, 1995 +# +############################################################################ +# +# This file is in the public domain. +# +############################################################################ +# +# These are "helper" procedures to use in place of WAttrib(). +# +# This is a work in progress; at present it only handles fetching +# of a few attribute values. +# +############################################################################ +# +# Requires: Version 9 graphics +# +############################################################################ + + +procedure Width(win) + + /win := &window + + return WAttrib(win, "width") + +end + +procedure Height(win) + + /win := &window + + return WAttrib(win, "height") + +end + +procedure LineWidth(win) + + /win := &window + + return WAttrib(win, "linewidth") + +end |