Z Programs

Z.wm.macro

; COLOR only. Copied from %Z.w.macro, but for MULTI-LINE windows.
; Expects lines of text in: /.WO[q] = text
;      /.WO = max line length of text.
;           = 0 or "" to close display-only window.
;           = . to have program calculate this.
;      /.WD = default if C=4 or C=6
;      /.WC = choice string if C=4, check code if C=6 [use F as user's response]
;
; EXAMPLES:
;   @W.err SCREEN = %Z.wm.macro(0,1)
;   @W.err PROCEDURE LOGIC = %Z.wm.macro(1,1)
;   @W.return = %Z.wm.macro(1,0,0)
;   @W.yes.no = %Z.wm.macro(1,0,1) ,2) or ,3)
;   @W.choice = %Z.wm.macro(1,0,4) [set up /.WD and /.WC as noted above]
;   @W.display = %Z.wm.macro(1,0,5) [call with /.WO=0 or nil to close]
;   Ask & check response (new) = %Z.wm.macro(1,0,6) [set up /.WD and /.WC as noted above]
;
; A=0, field relative (centered, 2 lines below, highlight field)
; =1, centered and 2 rows below current window
; =2, centered and 2 rows below current window - nil response allowed
; B=1, ring bell
;   0, don't
; C=nil or 0, don't prompt for anything (@W.err, @W.return)
; =1 prompt for Y/N with no default (@W.yes.no)
; =2 prompt for Y/N with 'Y' default (@W.yes.no.y)
; =3 prompt for Y/N with 'N' default (@W.yes.no.n)
; =4 prompt for CHOICE (@W.choice)
; =5 @W.display;
; =6 prompt and check response with V(/.WC)
; D=response length if C=6
; E=non-nil if nil response ok.

Posted: August 03, 2001

Return to list of Z Programs