/****************************************************************************/
/* note that MEMF_CLEAR in the myalloc() call screws up the Message somehow */
/****************************************************************************/
static void __regargs SendSecretMsg(struct Tool *tool,UWORD secret_message)
{
	struct Message *msg;

	if (msg = (struct Message *)functions->myalloc(sizeof(struct Message),0)) {
		msg->mn_Node.ln_Type = NT_MESSAGE;
		msg->mn_ReplyPort = NULL;
		msg->mn_Length = secret_message;
		PutMsg(tool->window->UserPort,msg);
	}
}