blob: 44502715bdb2c392e5008539cf32c25b05f6f482 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
############################################################################
#
# File: prompt.icn
#
# Subject: Program to prompt in a window
#
# Author: Clinton L. Jeffery
#
# Date: June 17, 1994
#
############################################################################
#
# This file is in the public domain.
#
############################################################################
#
# A utility for interactive shell scripts. Called from a
# shell script, it pops up a window, writes its arguments out as
# a prompt, and echos the user's response to standard output where
# the shell script can use it (by means of the backquote character).
#
############################################################################
#
# Requires: Version 9 graphics
#
############################################################################
#
# Links: wopen
#
############################################################################
link wopen
procedure main(args)
local s2, w
pos := "pos="
every s2 := QueryPointer() do pos ||:= (s2-10) || ","
w := WOpen("label=prompt", "cursor=on", "font="||("12x24"|"fixed"),
"lines=1", pos[1:-1]) | stop("opening the window fails")
every writes(w,!args," ")
write(read(w))
end
|
