\ VP-trace
\ Debug tracing definitions
\ 
\ $Id: VP-trace.txt,v 1.1 2000/10/25 01:02:57 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-alerts
docneeds VP-resources

.( VP-trace... )

\ The trace functions display one,
\ two, or three strings in the
\ Debug dialog. If user taps Continue
\ then we go on, but if user taps
\ Exit then we quit

: trace1 ( zadr u -- )
  altDebug custom-alert1
  if byeThrow throw then
;

: trace2 ( zadr2 u2 zadr1 u1 -- )
  altDebug custom-alert2
  if byeThrow throw then
;

: trace3 ( zadr3 u3 zadr2 u2 zadr1 u1 -- )
  altDebug custom-alert3
  if byeThrow throw then
;

