home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ftp.cs.arizona.edu
/
ftp.cs.arizona.edu.tar
/
ftp.cs.arizona.edu
/
icon
/
historic
/
v941.tgz
/
icon.v941src.tar
/
icon.v941src
/
ipl
/
gprocs
/
win.icn
< prev
next >
Wrap
Text File
|
2001-05-02
|
1KB
|
55 lines
############################################################################
#
# File: win.icn
#
# Subject: Procedures to open bare-bones window
#
# Author: Ralph E. Griswold
#
# Date: May 2, 2001
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# These procedures are provided as quick-and-dirty ways to get a
# nominal window as, for example, when testing.
#
# win() causes error termination if a window can't be opened.
# winf(), on the other hand, just fails.
#
############################################################################
#
# Requires: Version 9 graphics
#
############################################################################
#
# Links: wopen
#
############################################################################
link wopen
procedure win(width, height)
/width := 500
/height := 500
return WOpen("size=" || width || "," || height) |
stop("*** can't open window")
return
end
procedure winf(width, height)
/width := 500
/height := 500
return WOpen("size=" || width || "," || height) | fail
end