Files

43 lines
2.4 KiB
Perl
Executable File

#!/usr/sbin/perl
#**************************************************************************
#* *
#* Copyright (c) 1996 Silicon Graphics, Inc. *
#* All Rights Reserved *
#* *
#* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF SGI *
#* *
#* The copyright notice above does not evidence any actual of intended *
#* publication of such source code, and is an unpublished work by Silicon *
#* Graphics, Inc. This material contains CONFIDENTIAL INFORMATION that is *
#* the property of Silicon Graphics, Inc. Any use, duplication or *
#* disclosure not specifically authorized by Silicon Graphics is strictly *
#* prohibited. *
#* *
#* RESTRICTED RIGHTS LEGEND: *
#* *
#* Use, duplication or disclosure by the Government is subject to *
#* restrictions as set forth in subdivision (c)(1)(ii) of the Rights in *
#* Technical Data and Computer Software clause at DFARS 52.227-7013, *
#* and/or in similar or successor clauses in the FAR, DOD or NASA FAR *
#* Supplement. Unpublished - rights reserved under the Copyright Laws of *
#* the United States. Contractor is SILICON GRAPHICS, INC., 2011 N. *
#* Shoreline Blvd., Mountain View, CA 94039-7311 *
#**************************************************************************
# DEMO_pop.pl
#
# Routines to pop up information windows
1; # Return true
sub Pop {
# &Background_Execute("$CMD_XCONFIRM $CMD_XCONFIRM_HEADER \"$_[0]\" $CMD_XCONFIRM_FILE \"$_[1]\" $CMD_XCONFIRM_FLAGS $CMD_NULLIFY $CMD_BACKGROUND");
`$CMD_XCONFIRM $CMD_XCONFIRM_HEADER \"$_[0]\" $CMD_XCONFIRM_FILE \"$_[1]\" $CMD_XCONFIRM_FLAGS $CMD_NULLIFY $CMD_BACKGROUND`;
}
sub Txt_Pop {
# &Background_Execute("$CMD_XCONFIRM $CMD_XCONFIRM_HEADER \"$_[0]\" $CMD_XCONFIRM_MESS \"$_[1]\" $CMD_XCONFIRM_FLAGS $CMD_NULLIFY $CMD_BACKGROUND");
`$CMD_XCONFIRM $CMD_XCONFIRM_HEADER \"$_[0]\" $CMD_XCONFIRM_MESS \"$_[1]\" $CMD_XCONFIRM_FLAGS $CMD_NULLIFY $CMD_BACKGROUND`;
}