180 lines
4.5 KiB
C
180 lines
4.5 KiB
C
|
|
/* windDebug.c -
|
|
*
|
|
* Print out the window package's internal data structures.
|
|
*
|
|
* *********************************************************************
|
|
* * Copyright (C) 1985, 1990 Regents of the University of California. *
|
|
* * Permission to use, copy, modify, and distribute this *
|
|
* * software and its documentation for any purpose and without *
|
|
* * fee is hereby granted, provided that the above copyright *
|
|
* * notice appear in all copies. The University of California *
|
|
* * makes no representations about the suitability of this *
|
|
* * software for any purpose. It is provided "as is" without *
|
|
* * express or implied warranty. Export of this software outside *
|
|
* * of the United States of America may require an export license. *
|
|
* *********************************************************************
|
|
*/
|
|
|
|
#ifndef lint
|
|
static char rcsid[] __attribute__ ((unused)) = "$Header$";
|
|
#endif /* not lint */
|
|
|
|
#include <stdio.h>
|
|
|
|
#include "utils/magic.h"
|
|
#include "utils/geometry.h"
|
|
#include "windows/windows.h"
|
|
#include "graphics/glyphs.h"
|
|
#include "windows/windInt.h"
|
|
#include "textio/textio.h"
|
|
#include "textio/txcommands.h"
|
|
|
|
|
|
|
|
/*
|
|
* ----------------------------------------------------------------------------
|
|
* windPrintWindow --
|
|
*
|
|
* Print out the window data structure.
|
|
*
|
|
* Results:
|
|
* None.
|
|
*
|
|
* Side effects:
|
|
* Text appears on the text terminal.
|
|
* ----------------------------------------------------------------------------
|
|
*/
|
|
|
|
void
|
|
windPrintWindow(w)
|
|
MagWindow *w;
|
|
{
|
|
LinkedRect *lr;
|
|
|
|
TxPrintf("\nWindow %d: '%s'\n", w->w_wid, w->w_caption);
|
|
TxPrintf(" Client %x Surface %x \n", w->w_client, w->w_surfaceID);
|
|
|
|
TxPrintf(" All area (%d, %d) (%d, %d)\n",
|
|
w->w_allArea.r_xbot, w->w_allArea.r_ybot,
|
|
w->w_allArea.r_xtop, w->w_allArea.r_ytop);
|
|
TxPrintf(" Screen area (%d, %d) (%d, %d)\n",
|
|
w->w_screenArea.r_xbot, w->w_screenArea.r_ybot,
|
|
w->w_screenArea.r_xtop, w->w_screenArea.r_ytop);
|
|
TxPrintf(" Frame area (%d, %d) (%d, %d)\n",
|
|
w->w_frameArea.r_xbot, w->w_frameArea.r_ybot,
|
|
w->w_frameArea.r_xtop, w->w_frameArea.r_ytop);
|
|
|
|
if (w->w_clipAgainst == NULL)
|
|
TxPrintf(" No areas obscure the window.\n");
|
|
else
|
|
TxPrintf(" These areas obscure the window:\n");
|
|
for (lr = w->w_clipAgainst; lr != NULL; lr = lr->r_next)
|
|
{
|
|
TxPrintf(" (%d, %d) (%d, %d) \n", lr->r_r.r_xbot, lr->r_r.r_ybot,
|
|
lr->r_r.r_xtop, lr->r_r.r_ytop);
|
|
}
|
|
|
|
TxPrintf(" Surface area (%d, %d) (%d, %d) \n",
|
|
w->w_surfaceArea.r_xbot, w->w_surfaceArea.r_ybot,
|
|
w->w_surfaceArea.r_xtop, w->w_surfaceArea.r_ytop);
|
|
TxPrintf(" Origin (%d, %d)\n", w->w_origin.p_x, w->w_origin.p_y);
|
|
TxPrintf(" Scale %d\n", w->w_scale);
|
|
}
|
|
|
|
/*
|
|
* ----------------------------------------------------------------------------
|
|
* windDump --
|
|
*
|
|
* Print out all the tables and windows.
|
|
*
|
|
* Results:
|
|
* None.
|
|
*
|
|
* Side effects:
|
|
* Lots of text is dumped to the text terminal.
|
|
* ----------------------------------------------------------------------------
|
|
*/
|
|
|
|
void
|
|
windDump()
|
|
{
|
|
MagWindow *w;
|
|
clientRec *rc;
|
|
|
|
TxPrintf("\n\n------------ Clients ----------\n");
|
|
for (rc = windFirstClientRec; rc != (clientRec * ) NULL;
|
|
rc = rc->w_nextClient)
|
|
{
|
|
TxPrintf("'%10s' %x %x %x %x\n", rc->w_clientName,
|
|
rc->w_create, rc->w_delete,
|
|
rc->w_redisplay, rc->w_command);
|
|
}
|
|
|
|
TxPrintf("\n");
|
|
for (w = windTopWindow; w != (MagWindow *) NULL; w = w->w_nextWindow)
|
|
{
|
|
windPrintWindow(w);
|
|
}
|
|
|
|
}
|
|
|
|
|
|
/*
|
|
* ----------------------------------------------------------------------------
|
|
* windPrintCommand --
|
|
*
|
|
* Print out a command.
|
|
*
|
|
* Results:
|
|
* None.
|
|
*
|
|
* Side effects:
|
|
* Text appears on the text terminal.
|
|
* ----------------------------------------------------------------------------
|
|
*/
|
|
|
|
void
|
|
windPrintCommand(cmd)
|
|
TxCommand *cmd;
|
|
{
|
|
if (cmd->tx_button == TX_NO_BUTTON)
|
|
{
|
|
int i;
|
|
|
|
for (i = 0; i < cmd->tx_argc; i++)
|
|
{
|
|
TxPrintf(" '%s'", cmd->tx_argv[i]);
|
|
}
|
|
}
|
|
else
|
|
{
|
|
switch (cmd->tx_button)
|
|
{
|
|
case TX_LEFT_BUTTON:
|
|
TxPrintf("Left");
|
|
break;
|
|
case TX_RIGHT_BUTTON:
|
|
TxPrintf("Right");
|
|
break;
|
|
case TX_MIDDLE_BUTTON:
|
|
TxPrintf("Middle");
|
|
break;
|
|
default:
|
|
TxPrintf("STRANGE");
|
|
break;
|
|
}
|
|
TxPrintf(" button ");
|
|
switch (cmd->tx_buttonAction)
|
|
{
|
|
case TX_BUTTON_DOWN:
|
|
TxPrintf("down");
|
|
break;
|
|
case TX_BUTTON_UP:
|
|
TxPrintf("up");
|
|
break;
|
|
}
|
|
}
|
|
TxPrintf(" at (%d, %d)\n", cmd->tx_p.p_x, cmd->tx_p.p_y);
|
|
}
|