#!/usr/bin/wksh -motif

#
# A simple demo of various conveniences to
# create message boxes of various kinds.
#

alias do_ok="echo ok callback called"
alias do_cancel="echo cancel callback called"
alias do_help="echo help callback called"


ai TOPLEVEL xmmessages Xmmessages "$@"

addcols $TOPLEVEL c
addbuttons $c \
  "warn"    'warn "The warn function did this" do_ok do_cancel do_help' \
  "confirm" 'confirm "The confirm function did this" do_ok do_cancel do_help' \
  "fatal"   'fatal "The fatal function did this." do_ok do_cancel do_help' \
  "working" 'working "The working function did this." do_cancel do_help'

rw $TOPLEVEL
ml
