
/* Copyright 1987 by Apple Computer, Inc. */ 

/* sendcardmessage.glue.c */

#include "HyperXCmd.h"

/* Send a HyperCard message (a command with arguments)
   to the current card.
   Msg is a pointer to a Pascal-format string.
*/

pascal void
SendCardMessage(paramPtr, msg)
register XCmdBlockPtr	paramPtr;
StringPtr	msg;
{
  paramPtr->inArgs[0] = (long)msg;
  paramPtr->request = xreqSendCardMessage;
  (*paramPtr->entryPoint)();
}
