\ VP-alerts
\ Alert functions
\ 
\ $Id: VP-alerts.txt,v 1.1 2000/10/25 00:17:42 kris_johnson Exp $

\ Copyright 2000
\ Kristopher D. Johnson
\ 
\ See LICENSE-JacksOrBetter for the
\ conditions under which you may
\ use, redistribute, or modify this 
\ code, or create derived works.

docneeds VP-zstrings

.( VP-alerts... )

\ Custom alert with substitutions
\ for ^1, ^2, and ^3
: custom-alert3 ( zadr3 u3 zadr2 u2 zadr1 u1 frmID -- u )
  >r drop >r drop >r drop
  >abs
  r> >abs
  r> >abs
  r>
  FrmCustomAlert
;

\ Custom alert with substitutions
\ for ^1 and ^2
: custom-alert2 ( zadr2 u2 zadr1 u1 frmID -- u )
  >r drop >r drop >r
  ( R: u1 zadr1 zadr2 )
  zempty drop >abs
  r> >abs
  r> >abs
  r>
  FrmCustomAlert
;

\ Custom alert with substitution
\ for ^1
: custom-alert1 ( zadr1 u1 frmID -- u )
  >r drop >r
  zempty drop >abs
  zempty drop >abs
  r> >abs
  r>
  FrmCustomAlert
;

