987 lines
23 KiB
C
987 lines
23 KiB
C
|
/* $Xorg: info.c,v 1.5 2001/02/09 02:05:59 xorgcvs Exp $ */
|
|||
|
|
/******************************************************************************
|
|||
|
|
|
|||
|
|
Copyright 1993, 1998 The Open Group
|
|||
|
|
|
|||
|
|
Permission to use, copy, modify, distribute, and sell this software and its
|
|||
|
|
documentation for any purpose is hereby granted without fee, provided that
|
|||
|
|
the above copyright notice appear in all copies and that both that
|
|||
|
|
copyright notice and this permission notice appear in supporting
|
|||
|
|
documentation.
|
|||
|
|
|
|||
|
|
The above copyright notice and this permission notice shall be included in
|
|||
|
|
all copies or substantial portions of the Software.
|
|||
|
|
|
|||
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
|
|||
|
|
IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
|
|||
|
|
FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
|
|||
|
|
OPEN GROUP BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN
|
|||
|
|
AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
|
|||
|
|
CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|||
|
|
|
|||
|
|
Except as contained in this notice, the name of The Open Group shall not be
|
|||
|
|
used in advertising or otherwise to promote the sale, use or other dealings
|
|||
|
|
in this Software without prior written authorization from The Open Group.
|
|||
|
|
******************************************************************************/
|
|||
|
|
/* $XFree86: xc/programs/xsm/info.c,v 1.5 2001/01/17 23:46:28 dawes Exp $ */
|
|||
|
|
|
|||
|
|
#include "xsm.h"
|
|||
|
|
#include "restart.h"
|
|||
|
|
#include "popup.h"
|
|||
|
|
#include "info.h"
|
|||
|
|
#include "prop.h"
|
|||
|
|
|
|||
|
|
#include <X11/Shell.h>
|
|||
|
|
#include <X11/Xaw/Form.h>
|
|||
|
|
#include <X11/Xaw/List.h>
|
|||
|
|
#include <X11/Xaw/Command.h>
|
|||
|
|
#include <X11/Xaw/SimpleMenu.h>
|
|||
|
|
#include <X11/Xaw/MenuButton.h>
|
|||
|
|
#include <X11/Xaw/SmeBSB.h>
|
|||
|
|
#include <X11/Xaw/AsciiText.h>
|
|||
|
|
|
|||
|
|
static Pixmap checkBitmap;
|
|||
|
|
|
|||
|
|
Widget clientInfoPopup;
|
|||
|
|
Widget clientInfoForm;
|
|||
|
|
Widget viewPropButton;
|
|||
|
|
Widget cloneButton;
|
|||
|
|
Widget killClientButton;
|
|||
|
|
Widget clientInfoDoneButton;
|
|||
|
|
Widget restartHintButton;
|
|||
|
|
Widget restartHintMenu;
|
|||
|
|
Widget restartIfRunning;
|
|||
|
|
Widget restartAnyway;
|
|||
|
|
Widget restartImmediately;
|
|||
|
|
Widget restartNever;
|
|||
|
|
Widget clientListWidget;
|
|||
|
|
Widget noClientsLabel;
|
|||
|
|
Widget manualRestartLabel;
|
|||
|
|
Widget manualRestartCommands;
|
|||
|
|
|
|||
|
|
Widget clientPropPopup;
|
|||
|
|
Widget clientPropForm;
|
|||
|
|
Widget clientPropDoneButton;
|
|||
|
|
Widget clientPropTextWidget;
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
void
|
|||
|
|
ShowHint(ClientRec *client)
|
|||
|
|
{
|
|||
|
|
static Widget active = NULL;
|
|||
|
|
int hint = client->restartHint;
|
|||
|
|
|
|||
|
|
if (active)
|
|||
|
|
XtVaSetValues (active, XtNleftBitmap, None, NULL);
|
|||
|
|
|
|||
|
|
if (hint == SmRestartIfRunning)
|
|||
|
|
active = restartIfRunning;
|
|||
|
|
else if (hint == SmRestartAnyway)
|
|||
|
|
active = restartAnyway;
|
|||
|
|
else if (hint == SmRestartImmediately)
|
|||
|
|
active = restartImmediately;
|
|||
|
|
else if (hint == SmRestartNever)
|
|||
|
|
active = restartNever;
|
|||
|
|
|
|||
|
|
XtVaSetValues (active, XtNleftBitmap, checkBitmap, NULL);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
typedef struct {
|
|||
|
|
char *bufStart;
|
|||
|
|
char *bufPtr;
|
|||
|
|
int bufSize;
|
|||
|
|
int bytesLeft;
|
|||
|
|
} Buffer;
|
|||
|
|
|
|||
|
|
#define BUF_START_SIZE 1024
|
|||
|
|
#define BUF_GROW_SIZE 256
|
|||
|
|
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
AppendStr(Buffer *buffer, char *str)
|
|||
|
|
{
|
|||
|
|
int len = strlen (str);
|
|||
|
|
|
|||
|
|
if ((buffer->bytesLeft - 1) < len)
|
|||
|
|
{
|
|||
|
|
int newBufSize = buffer->bufSize + len + BUF_GROW_SIZE;
|
|||
|
|
char *newbuf = (char *) malloc (newBufSize);
|
|||
|
|
int bytesUsed = buffer->bufPtr - buffer->bufStart;
|
|||
|
|
memcpy (newbuf, buffer->bufStart, bytesUsed);
|
|||
|
|
newbuf[bytesUsed] = '\0';
|
|||
|
|
free (buffer->bufStart);
|
|||
|
|
buffer->bufStart = newbuf;
|
|||
|
|
buffer->bufPtr = newbuf + bytesUsed;
|
|||
|
|
buffer->bufSize = newBufSize;
|
|||
|
|
buffer->bytesLeft = newBufSize - bytesUsed;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
strcat (buffer->bufPtr, str);
|
|||
|
|
buffer->bufPtr += len;
|
|||
|
|
buffer->bytesLeft -= len;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
void
|
|||
|
|
DisplayProps(ClientRec *client)
|
|||
|
|
{
|
|||
|
|
int index;
|
|||
|
|
List *pl, *pj, *vl;
|
|||
|
|
PropValue *pval;
|
|||
|
|
Buffer buffer;
|
|||
|
|
static int first_time = 1;
|
|||
|
|
|
|||
|
|
for (index = 0; index < numClientListNames; index++)
|
|||
|
|
if (clientListRecs[index] == client)
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
if (index >= numClientListNames)
|
|||
|
|
return;
|
|||
|
|
|
|||
|
|
buffer.bufStart = buffer.bufPtr = (char *) malloc (BUF_START_SIZE);
|
|||
|
|
buffer.bufSize = buffer.bytesLeft = BUF_START_SIZE;
|
|||
|
|
buffer.bufStart[0] = '\0';
|
|||
|
|
|
|||
|
|
if (ListCount (client->props) > 0)
|
|||
|
|
{
|
|||
|
|
char number[10];
|
|||
|
|
char *ptr;
|
|||
|
|
|
|||
|
|
AppendStr (&buffer, "*** ID = ");
|
|||
|
|
AppendStr (&buffer, client->clientId);
|
|||
|
|
AppendStr (&buffer, " ***\n\n");
|
|||
|
|
|
|||
|
|
for (pl = ListFirst (client->props); pl; pl = ListNext (pl))
|
|||
|
|
{
|
|||
|
|
Prop *pprop = (Prop *) pl->thing;
|
|||
|
|
|
|||
|
|
AppendStr (&buffer, "Name: ");
|
|||
|
|
AppendStr (&buffer, pprop->name);
|
|||
|
|
AppendStr (&buffer, "\n");
|
|||
|
|
AppendStr (&buffer, "Type: ");
|
|||
|
|
AppendStr (&buffer, pprop->type);
|
|||
|
|
AppendStr (&buffer, "\n");
|
|||
|
|
AppendStr (&buffer, "Num values: ");
|
|||
|
|
sprintf (number, "%d", ListCount (pprop->values));
|
|||
|
|
AppendStr (&buffer, number);
|
|||
|
|
AppendStr (&buffer, "\n");
|
|||
|
|
|
|||
|
|
if (strcmp (pprop->type, SmCARD8) == 0)
|
|||
|
|
{
|
|||
|
|
char *card8;
|
|||
|
|
int value;
|
|||
|
|
|
|||
|
|
vl = ListFirst (pprop->values);
|
|||
|
|
pval = (PropValue *) vl->thing;
|
|||
|
|
|
|||
|
|
card8 = pval->value;
|
|||
|
|
value = *card8;
|
|||
|
|
|
|||
|
|
AppendStr (&buffer, "Value 1: ");
|
|||
|
|
sprintf (number, "%d", value);
|
|||
|
|
AppendStr (&buffer, number);
|
|||
|
|
|
|||
|
|
if (strcmp (pprop->name, SmRestartStyleHint) == 0)
|
|||
|
|
{
|
|||
|
|
if (value == SmRestartAnyway)
|
|||
|
|
AppendStr (&buffer, " (Restart Anyway)");
|
|||
|
|
else if (value == SmRestartImmediately)
|
|||
|
|
AppendStr (&buffer, " (Restart Immediately)");
|
|||
|
|
else if (value == SmRestartNever)
|
|||
|
|
AppendStr (&buffer, " (Restart Never)");
|
|||
|
|
else
|
|||
|
|
AppendStr (&buffer, " (Restart If Running)");
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
AppendStr (&buffer, "\n");
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
int propnum = 0;
|
|||
|
|
|
|||
|
|
for (pj = ListFirst (pprop->values); pj; pj = ListNext (pj))
|
|||
|
|
{
|
|||
|
|
propnum++;
|
|||
|
|
|
|||
|
|
pval = (PropValue *) pj->thing;
|
|||
|
|
AppendStr (&buffer, "Value ");
|
|||
|
|
sprintf (number, "%d", propnum);
|
|||
|
|
AppendStr (&buffer, number);
|
|||
|
|
AppendStr (&buffer, ": ");
|
|||
|
|
AppendStr (&buffer, (char *) pval->value);
|
|||
|
|
AppendStr (&buffer, "\n");
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
AppendStr (&buffer, "\n");
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
XtVaSetValues (clientPropTextWidget,
|
|||
|
|
XtNstring, buffer.bufStart,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
sprintf (buffer.bufStart,
|
|||
|
|
"SM Properties : %s", clientListNames[index]);
|
|||
|
|
|
|||
|
|
ptr = Strstr (buffer.bufStart, ") Restart");
|
|||
|
|
if (ptr) *(ptr + 1) = '\0';
|
|||
|
|
|
|||
|
|
XtVaSetValues (clientPropPopup,
|
|||
|
|
XtNtitle, buffer.bufStart,
|
|||
|
|
XtNiconName, buffer.bufStart,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
if (client_prop_visible)
|
|||
|
|
{
|
|||
|
|
/* Make sure it is visible */
|
|||
|
|
|
|||
|
|
XMapRaised (XtDisplay (topLevel), XtWindow (clientPropPopup));
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
PopupPopup (mainWindow, clientPropPopup,
|
|||
|
|
False, first_time, 50, 150, "DelPropWinAction()");
|
|||
|
|
|
|||
|
|
client_prop_visible = 1;
|
|||
|
|
|
|||
|
|
if (first_time)
|
|||
|
|
first_time = 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
free (buffer.bufStart);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
ClientListXtProc(Widget w, XtPointer client_data, XtPointer callData)
|
|||
|
|
{
|
|||
|
|
XawListReturnStruct *current = (XawListReturnStruct *) callData;
|
|||
|
|
ClientRec *client;
|
|||
|
|
|
|||
|
|
if (!current || current->list_index < 0)
|
|||
|
|
return;
|
|||
|
|
|
|||
|
|
client = clientListRecs[current->list_index];
|
|||
|
|
ShowHint (client);
|
|||
|
|
current_client_selected = current->list_index;
|
|||
|
|
if (client_prop_visible)
|
|||
|
|
DisplayProps (client);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
ViewPropXtProc(Widget w, XtPointer client_data, XtPointer callData)
|
|||
|
|
{
|
|||
|
|
ClientRec *client;
|
|||
|
|
XawListReturnStruct *current;
|
|||
|
|
|
|||
|
|
current = XawListShowCurrent (clientListWidget);
|
|||
|
|
|
|||
|
|
if (!current || current->list_index < 0)
|
|||
|
|
{
|
|||
|
|
if (current)
|
|||
|
|
XtFree ((char *) current);
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
client = clientListRecs[current->list_index];
|
|||
|
|
DisplayProps (client);
|
|||
|
|
XtFree ((char *) current);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
CloneXtProc(Widget w, XtPointer client_data, XtPointer callData)
|
|||
|
|
{
|
|||
|
|
ClientRec *client;
|
|||
|
|
XawListReturnStruct *current;
|
|||
|
|
|
|||
|
|
current = XawListShowCurrent (clientListWidget);
|
|||
|
|
|
|||
|
|
if (!current || current->list_index < 0)
|
|||
|
|
{
|
|||
|
|
if (current)
|
|||
|
|
XtFree ((char *) current);
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
client = clientListRecs[current->list_index];
|
|||
|
|
|
|||
|
|
if (client)
|
|||
|
|
Clone (client, False /* don't use saved state */);
|
|||
|
|
|
|||
|
|
XtFree ((char *) current);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
KillClientXtProc(Widget w, XtPointer client_data, XtPointer callData)
|
|||
|
|
{
|
|||
|
|
ClientRec *client;
|
|||
|
|
XawListReturnStruct *current;
|
|||
|
|
|
|||
|
|
current = XawListShowCurrent (clientListWidget);
|
|||
|
|
|
|||
|
|
if (!current || current->list_index < 0)
|
|||
|
|
{
|
|||
|
|
if (current)
|
|||
|
|
XtFree ((char *) current);
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
client = clientListRecs[current->list_index];
|
|||
|
|
|
|||
|
|
SmsDie (client->smsConn);
|
|||
|
|
|
|||
|
|
XtFree ((char *) current);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
listDoneXtProc(Widget w, XtPointer client_data, XtPointer callData)
|
|||
|
|
{
|
|||
|
|
XtPopdown (clientInfoPopup);
|
|||
|
|
client_info_visible = 0;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
char *
|
|||
|
|
GetProgramName(char *fullname)
|
|||
|
|
{
|
|||
|
|
char *lastSlash = NULL;
|
|||
|
|
int i;
|
|||
|
|
|
|||
|
|
for (i = 0; i < (int) strlen (fullname); i++)
|
|||
|
|
if (fullname[i] == '/')
|
|||
|
|
lastSlash = &fullname[i];
|
|||
|
|
|
|||
|
|
if (lastSlash)
|
|||
|
|
return (lastSlash + 1);
|
|||
|
|
else
|
|||
|
|
return (fullname);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
void
|
|||
|
|
UpdateClientList(void)
|
|||
|
|
{
|
|||
|
|
ClientRec *client;
|
|||
|
|
char *progName, *hostname, *tmp1, *tmp2;
|
|||
|
|
String clientInfo;
|
|||
|
|
int maxlen1, maxlen2;
|
|||
|
|
char extraBuf1[80], extraBuf2[80];
|
|||
|
|
char *restart_service_prop;
|
|||
|
|
List *cl, *pl;
|
|||
|
|
int i, k;
|
|||
|
|
static int reenable_asap = 0;
|
|||
|
|
|
|||
|
|
if (clientListNames)
|
|||
|
|
{
|
|||
|
|
/*
|
|||
|
|
* Free the previous list of names. Xaw doesn't make a copy of
|
|||
|
|
* our list, so we need to keep it around.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
for (i = 0; i < numClientListNames; i++)
|
|||
|
|
XtFree (clientListNames[i]);
|
|||
|
|
|
|||
|
|
XtFree ((char *) clientListNames);
|
|||
|
|
|
|||
|
|
clientListNames = NULL;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (clientListRecs)
|
|||
|
|
{
|
|||
|
|
/*
|
|||
|
|
* Free the mapping of client names to client records
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
XtFree ((char *) clientListRecs);
|
|||
|
|
clientListRecs = NULL;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
maxlen1 = maxlen2 = 0;
|
|||
|
|
numClientListNames = 0;
|
|||
|
|
|
|||
|
|
for (cl = ListFirst (RunningList); cl; cl = ListNext (cl))
|
|||
|
|
{
|
|||
|
|
client = (ClientRec *) cl->thing;
|
|||
|
|
|
|||
|
|
progName = NULL;
|
|||
|
|
restart_service_prop = NULL;
|
|||
|
|
|
|||
|
|
for (pl = ListFirst (client->props); pl; pl = ListNext (pl))
|
|||
|
|
{
|
|||
|
|
Prop *pprop = (Prop *) pl->thing;
|
|||
|
|
List *vl = ListFirst (pprop->values);
|
|||
|
|
if (vl != NULL)
|
|||
|
|
{
|
|||
|
|
PropValue *pval = (PropValue *) vl->thing;
|
|||
|
|
|
|||
|
|
if (strcmp (pprop->name, SmProgram) == 0)
|
|||
|
|
{
|
|||
|
|
progName = GetProgramName ((char *) pval->value);
|
|||
|
|
|
|||
|
|
if ((int) strlen (progName) > maxlen1)
|
|||
|
|
maxlen1 = strlen (progName);
|
|||
|
|
}
|
|||
|
|
else if (strcmp (pprop->name, "_XC_RestartService") == 0)
|
|||
|
|
{
|
|||
|
|
restart_service_prop = (char *) pval->value;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (!progName)
|
|||
|
|
continue;
|
|||
|
|
|
|||
|
|
if (restart_service_prop)
|
|||
|
|
tmp1 = restart_service_prop;
|
|||
|
|
else if (client->clientHostname)
|
|||
|
|
tmp1 = client->clientHostname;
|
|||
|
|
else
|
|||
|
|
continue;
|
|||
|
|
|
|||
|
|
if ((tmp2 = (char *) strchr (tmp1, '/')) == NULL)
|
|||
|
|
hostname = tmp1;
|
|||
|
|
else
|
|||
|
|
hostname = tmp2 + 1;
|
|||
|
|
|
|||
|
|
if ((int) strlen (hostname) > maxlen2)
|
|||
|
|
maxlen2 = strlen (hostname);
|
|||
|
|
|
|||
|
|
numClientListNames++;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (numClientListNames == 0)
|
|||
|
|
{
|
|||
|
|
XtSetSensitive (viewPropButton, 0);
|
|||
|
|
XtSetSensitive (cloneButton, 0);
|
|||
|
|
XtSetSensitive (killClientButton, 0);
|
|||
|
|
XtSetSensitive (restartHintButton, 0);
|
|||
|
|
|
|||
|
|
XtUnmanageChild (clientListWidget);
|
|||
|
|
XtManageChild (noClientsLabel);
|
|||
|
|
|
|||
|
|
reenable_asap = 1;
|
|||
|
|
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (reenable_asap)
|
|||
|
|
{
|
|||
|
|
XtSetSensitive (viewPropButton, 1);
|
|||
|
|
XtSetSensitive (cloneButton, 1);
|
|||
|
|
XtSetSensitive (killClientButton, 1);
|
|||
|
|
XtSetSensitive (restartHintButton, 1);
|
|||
|
|
|
|||
|
|
XtUnmanageChild (noClientsLabel);
|
|||
|
|
XtManageChild (clientListWidget);
|
|||
|
|
|
|||
|
|
reenable_asap = 0;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
clientListNames = (String *) XtMalloc (
|
|||
|
|
numClientListNames * sizeof (String));
|
|||
|
|
clientListRecs = (ClientRec **) XtMalloc (
|
|||
|
|
numClientListNames * sizeof (ClientRec *));
|
|||
|
|
|
|||
|
|
i = 0;
|
|||
|
|
for (cl = ListFirst (RunningList); cl; cl = ListNext (cl))
|
|||
|
|
{
|
|||
|
|
ClientRec *client = (ClientRec *) cl->thing;
|
|||
|
|
int extra1, extra2;
|
|||
|
|
char *hint;
|
|||
|
|
|
|||
|
|
progName = NULL;
|
|||
|
|
restart_service_prop = NULL;
|
|||
|
|
|
|||
|
|
for (pl = ListFirst (client->props); pl; pl = ListNext (pl))
|
|||
|
|
{
|
|||
|
|
Prop *pprop = (Prop *) pl->thing;
|
|||
|
|
List *vl = ListFirst (pprop->values);
|
|||
|
|
|
|||
|
|
if (vl != NULL)
|
|||
|
|
{
|
|||
|
|
PropValue *pval = (PropValue *) vl->thing;
|
|||
|
|
if (strcmp (pprop->name, SmProgram) == 0)
|
|||
|
|
{
|
|||
|
|
progName = GetProgramName ((char *) pval->value);
|
|||
|
|
}
|
|||
|
|
else if (strcmp (pprop->name, "_XC_RestartService") == 0)
|
|||
|
|
{
|
|||
|
|
restart_service_prop = (char *) pval->value;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (!progName)
|
|||
|
|
continue;
|
|||
|
|
|
|||
|
|
if (restart_service_prop)
|
|||
|
|
tmp1 = restart_service_prop;
|
|||
|
|
else if (client->clientHostname)
|
|||
|
|
tmp1 = client->clientHostname;
|
|||
|
|
else
|
|||
|
|
continue;
|
|||
|
|
|
|||
|
|
if ((tmp2 = (char *) strchr (tmp1, '/')) == NULL)
|
|||
|
|
hostname = tmp1;
|
|||
|
|
else
|
|||
|
|
hostname = tmp2 + 1;
|
|||
|
|
|
|||
|
|
extra1 = maxlen1 - strlen (progName) + 5;
|
|||
|
|
extra2 = maxlen2 - strlen (hostname);
|
|||
|
|
|
|||
|
|
if (client->restartHint == SmRestartIfRunning)
|
|||
|
|
hint = "Restart If Running";
|
|||
|
|
else if (client->restartHint == SmRestartAnyway)
|
|||
|
|
hint = "Restart Anyway";
|
|||
|
|
else if (client->restartHint == SmRestartImmediately)
|
|||
|
|
hint = "Restart Immediately";
|
|||
|
|
else if (client->restartHint == SmRestartNever)
|
|||
|
|
hint = "Restart Never";
|
|||
|
|
else
|
|||
|
|
hint = "";
|
|||
|
|
|
|||
|
|
clientInfo = (String) XtMalloc (strlen (progName) +
|
|||
|
|
extra1 + extra2 + 3 + strlen (hostname) + 3 + strlen (hint) + 1);
|
|||
|
|
|
|||
|
|
for (k = 0; k < extra1; k++)
|
|||
|
|
extraBuf1[k] = ' ';
|
|||
|
|
extraBuf1[extra1] = '\0';
|
|||
|
|
|
|||
|
|
for (k = 0; k < extra2; k++)
|
|||
|
|
extraBuf2[k] = ' ';
|
|||
|
|
extraBuf2[extra2] = '\0';
|
|||
|
|
|
|||
|
|
sprintf (clientInfo, "%s%s (%s%s) %s", progName, extraBuf1,
|
|||
|
|
hostname, extraBuf2, hint);
|
|||
|
|
|
|||
|
|
clientListRecs[i] = client;
|
|||
|
|
clientListNames[i++] = clientInfo;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
XawListChange (clientListWidget,
|
|||
|
|
clientListNames, numClientListNames, 0, True);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
RestartHintXtProc(Widget w, XtPointer client_data, XtPointer callData)
|
|||
|
|
{
|
|||
|
|
XawListReturnStruct *current;
|
|||
|
|
ClientRec *client;
|
|||
|
|
Widget active;
|
|||
|
|
int found = 0;
|
|||
|
|
List *pl;
|
|||
|
|
char hint;
|
|||
|
|
|
|||
|
|
current = XawListShowCurrent (clientListWidget);
|
|||
|
|
|
|||
|
|
if (!current || current->list_index < 0)
|
|||
|
|
{
|
|||
|
|
if (current)
|
|||
|
|
XtFree ((char *) current);
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
client = clientListRecs[current->list_index];
|
|||
|
|
|
|||
|
|
active = XawSimpleMenuGetActiveEntry (restartHintMenu);
|
|||
|
|
|
|||
|
|
if (active == restartIfRunning)
|
|||
|
|
hint = SmRestartIfRunning;
|
|||
|
|
else if (active == restartAnyway)
|
|||
|
|
hint = SmRestartAnyway;
|
|||
|
|
else if (active == restartImmediately)
|
|||
|
|
hint = SmRestartImmediately;
|
|||
|
|
else if (active == restartNever)
|
|||
|
|
hint = SmRestartNever;
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
XtFree ((char *) current);
|
|||
|
|
return;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
client->restartHint = hint;
|
|||
|
|
|
|||
|
|
for (pl = ListFirst (client->props); pl; pl = ListNext (pl))
|
|||
|
|
{
|
|||
|
|
Prop *pprop = (Prop *) pl->thing;
|
|||
|
|
|
|||
|
|
if (strcmp (SmRestartStyleHint, pprop->name) == 0)
|
|||
|
|
{
|
|||
|
|
List *vl = ListFirst (pprop->values);
|
|||
|
|
|
|||
|
|
PropValue *pval = (PropValue *) vl->thing;
|
|||
|
|
|
|||
|
|
*((char *) (pval->value)) = hint;
|
|||
|
|
found = 1;
|
|||
|
|
break;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
if (!found)
|
|||
|
|
{
|
|||
|
|
SmProp prop;
|
|||
|
|
SmPropValue propval;
|
|||
|
|
|
|||
|
|
prop.name = SmRestartStyleHint;
|
|||
|
|
prop.type = SmCARD8;
|
|||
|
|
prop.num_vals = 1;
|
|||
|
|
prop.vals = &propval;
|
|||
|
|
propval.value = (SmPointer) &hint;
|
|||
|
|
propval.length = 1;
|
|||
|
|
|
|||
|
|
SetProperty (client, &prop, False /* don't free it */);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
UpdateClientList ();
|
|||
|
|
XawListHighlight (clientListWidget, current_client_selected);
|
|||
|
|
ShowHint (client);
|
|||
|
|
|
|||
|
|
if (client_prop_visible && clientListRecs &&
|
|||
|
|
clientListRecs[current_client_selected] == client)
|
|||
|
|
{
|
|||
|
|
DisplayProps (client);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
XtFree ((char *) current);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
clientPropDoneXtProc(Widget w, XtPointer client_data, XtPointer callData)
|
|||
|
|
{
|
|||
|
|
XtPopdown (clientPropPopup);
|
|||
|
|
client_prop_visible = 0;
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
void
|
|||
|
|
ClientInfoStructureNotifyXtHandler(Widget w, XtPointer closure,
|
|||
|
|
XEvent *event,
|
|||
|
|
Boolean *continue_to_dispatch)
|
|||
|
|
{
|
|||
|
|
if (event->type == MapNotify)
|
|||
|
|
{
|
|||
|
|
UpdateClientList ();
|
|||
|
|
|
|||
|
|
if (current_client_selected >= 0)
|
|||
|
|
XawListHighlight (clientListWidget, current_client_selected);
|
|||
|
|
|
|||
|
|
XtRemoveEventHandler (clientInfoPopup, StructureNotifyMask, False,
|
|||
|
|
ClientInfoStructureNotifyXtHandler, NULL);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
void
|
|||
|
|
ClientInfoXtProc(Widget w, XtPointer client_data, XtPointer callData)
|
|||
|
|
{
|
|||
|
|
static int first_time = 1;
|
|||
|
|
|
|||
|
|
if (client_info_visible)
|
|||
|
|
{
|
|||
|
|
/* Make sure it is visible */
|
|||
|
|
|
|||
|
|
XMapRaised (XtDisplay (topLevel), XtWindow (clientInfoPopup));
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
{
|
|||
|
|
UpdateClientList ();
|
|||
|
|
|
|||
|
|
if (clientListRecs && clientListRecs[0])
|
|||
|
|
{
|
|||
|
|
current_client_selected = 0;
|
|||
|
|
XawListHighlight (clientListWidget, 0);
|
|||
|
|
ShowHint (clientListRecs[0]);
|
|||
|
|
if (client_prop_visible)
|
|||
|
|
DisplayProps (clientListRecs[0]);
|
|||
|
|
}
|
|||
|
|
else
|
|||
|
|
current_client_selected = -1;
|
|||
|
|
|
|||
|
|
if (first_time && num_clients_in_last_session > 0 &&
|
|||
|
|
num_clients_in_last_session != numClientListNames)
|
|||
|
|
{
|
|||
|
|
XtAddEventHandler (clientInfoPopup, StructureNotifyMask, False,
|
|||
|
|
ClientInfoStructureNotifyXtHandler, NULL);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
PopupPopup (mainWindow, clientInfoPopup,
|
|||
|
|
False, first_time, 100, 50, "DelClientInfoWinAction()");
|
|||
|
|
|
|||
|
|
client_info_visible = 1;
|
|||
|
|
|
|||
|
|
if (first_time)
|
|||
|
|
first_time = 0;
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
#define CHECK_WIDTH 9
|
|||
|
|
#define CHECK_HEIGHT 8
|
|||
|
|
|
|||
|
|
static unsigned char check_bits[] = {
|
|||
|
|
0x00, 0x01, 0x80, 0x01, 0xc0, 0x00, 0x60, 0x00,
|
|||
|
|
0x31, 0x00, 0x1b, 0x00, 0x0e, 0x00, 0x04, 0x00
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
DelClientInfoWinAction(Widget w, XEvent *event, String *params,
|
|||
|
|
Cardinal *num_params)
|
|||
|
|
{
|
|||
|
|
XtCallCallbacks (clientInfoDoneButton, XtNcallback, NULL);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
static void
|
|||
|
|
DelPropWinAction(Widget w, XEvent *event, String *params, Cardinal *num_params)
|
|||
|
|
{
|
|||
|
|
XtCallCallbacks (clientPropDoneButton, XtNcallback, NULL);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
|
|||
|
|
void
|
|||
|
|
create_client_info_popup(void)
|
|||
|
|
|
|||
|
|
{
|
|||
|
|
/*
|
|||
|
|
* Install actions for WM_DELETE_WINDOW
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
static XtActionsRec actions[] = {
|
|||
|
|
{"DelClientInfoWinAction", DelClientInfoWinAction},
|
|||
|
|
{"DelPropWinAction", DelPropWinAction}
|
|||
|
|
};
|
|||
|
|
|
|||
|
|
XtAppAddActions (appContext, actions, XtNumber (actions));
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Make checkmark bitmap
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
checkBitmap = XCreateBitmapFromData (
|
|||
|
|
XtDisplay (topLevel), RootWindowOfScreen (XtScreen (topLevel)),
|
|||
|
|
(char *) check_bits, CHECK_WIDTH, CHECK_HEIGHT);
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Pop up for List Clients button.
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
clientInfoPopup = XtVaCreatePopupShell (
|
|||
|
|
"clientInfoPopup", topLevelShellWidgetClass, topLevel,
|
|||
|
|
XtNallowShellResize, True,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
|
|||
|
|
clientInfoForm = XtVaCreateManagedWidget (
|
|||
|
|
"clientInfoForm", formWidgetClass, clientInfoPopup,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
viewPropButton = XtVaCreateManagedWidget (
|
|||
|
|
"viewPropButton", commandWidgetClass, clientInfoForm,
|
|||
|
|
XtNfromHoriz, NULL,
|
|||
|
|
XtNfromVert, NULL,
|
|||
|
|
XtNtop, XawChainTop,
|
|||
|
|
XtNbottom, XawChainTop,
|
|||
|
|
XtNleft, XawChainLeft,
|
|||
|
|
XtNright, XawChainLeft,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
XtAddCallback (viewPropButton, XtNcallback, ViewPropXtProc, 0);
|
|||
|
|
|
|||
|
|
|
|||
|
|
cloneButton = XtVaCreateManagedWidget (
|
|||
|
|
"cloneButton", commandWidgetClass, clientInfoForm,
|
|||
|
|
XtNfromHoriz, viewPropButton,
|
|||
|
|
XtNfromVert, NULL,
|
|||
|
|
XtNtop, XawChainTop,
|
|||
|
|
XtNbottom, XawChainTop,
|
|||
|
|
XtNleft, XawChainLeft,
|
|||
|
|
XtNright, XawChainLeft,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
XtAddCallback (cloneButton, XtNcallback, CloneXtProc, 0);
|
|||
|
|
|
|||
|
|
|
|||
|
|
killClientButton = XtVaCreateManagedWidget (
|
|||
|
|
"killClientButton", commandWidgetClass, clientInfoForm,
|
|||
|
|
XtNfromHoriz, cloneButton,
|
|||
|
|
XtNfromVert, NULL,
|
|||
|
|
XtNtop, XawChainTop,
|
|||
|
|
XtNbottom, XawChainTop,
|
|||
|
|
XtNleft, XawChainLeft,
|
|||
|
|
XtNright, XawChainLeft,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
XtAddCallback (killClientButton, XtNcallback, KillClientXtProc, 0);
|
|||
|
|
|
|||
|
|
|
|||
|
|
restartHintButton = XtVaCreateManagedWidget (
|
|||
|
|
"restartHintButton", menuButtonWidgetClass, clientInfoForm,
|
|||
|
|
XtNmenuName, "restartHintMenu",
|
|||
|
|
XtNfromHoriz, killClientButton,
|
|||
|
|
XtNfromVert, NULL,
|
|||
|
|
XtNtop, XawChainTop,
|
|||
|
|
XtNbottom, XawChainTop,
|
|||
|
|
XtNleft, XawChainLeft,
|
|||
|
|
XtNright, XawChainLeft,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
restartHintMenu = XtVaCreatePopupShell (
|
|||
|
|
"restartHintMenu", simpleMenuWidgetClass, clientInfoForm,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
restartIfRunning = XtVaCreateManagedWidget (
|
|||
|
|
"restartIfRunning", smeBSBObjectClass, restartHintMenu,
|
|||
|
|
XtNleftMargin, 18,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
restartAnyway = XtVaCreateManagedWidget (
|
|||
|
|
"restartAnyway", smeBSBObjectClass, restartHintMenu,
|
|||
|
|
XtNleftMargin, 18,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
restartImmediately = XtVaCreateManagedWidget (
|
|||
|
|
"restartImmediately", smeBSBObjectClass, restartHintMenu,
|
|||
|
|
XtNleftMargin, 18,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
restartNever = XtVaCreateManagedWidget (
|
|||
|
|
"restartNever", smeBSBObjectClass, restartHintMenu,
|
|||
|
|
XtNleftMargin, 18,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
XtAddCallback (restartIfRunning, XtNcallback, RestartHintXtProc, 0);
|
|||
|
|
XtAddCallback (restartAnyway, XtNcallback, RestartHintXtProc, 0);
|
|||
|
|
XtAddCallback (restartImmediately, XtNcallback, RestartHintXtProc, 0);
|
|||
|
|
XtAddCallback (restartNever, XtNcallback, RestartHintXtProc, 0);
|
|||
|
|
|
|||
|
|
|
|||
|
|
clientInfoDoneButton = XtVaCreateManagedWidget (
|
|||
|
|
"clientInfoDoneButton", commandWidgetClass, clientInfoForm,
|
|||
|
|
XtNfromHoriz, restartHintButton,
|
|||
|
|
XtNfromVert, NULL,
|
|||
|
|
XtNtop, XawChainTop,
|
|||
|
|
XtNbottom, XawChainTop,
|
|||
|
|
XtNleft, XawChainLeft,
|
|||
|
|
XtNright, XawChainLeft,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
XtAddCallback (clientInfoDoneButton, XtNcallback, listDoneXtProc, 0);
|
|||
|
|
|
|||
|
|
|
|||
|
|
clientListWidget = XtVaCreateManagedWidget (
|
|||
|
|
"clientListWidget", listWidgetClass, clientInfoForm,
|
|||
|
|
XtNdefaultColumns, 1,
|
|||
|
|
XtNforceColumns, True,
|
|||
|
|
XtNfromHoriz, NULL,
|
|||
|
|
XtNfromVert, viewPropButton,
|
|||
|
|
XtNresizable, True,
|
|||
|
|
XtNtop, XawChainTop,
|
|||
|
|
XtNbottom, XawChainTop,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
XtAddCallback (clientListWidget, XtNcallback, ClientListXtProc, 0);
|
|||
|
|
|
|||
|
|
noClientsLabel = XtVaCreateWidget (
|
|||
|
|
"noClientsLabel", labelWidgetClass, clientInfoForm,
|
|||
|
|
XtNfromHoriz, NULL,
|
|||
|
|
XtNfromVert, viewPropButton,
|
|||
|
|
XtNborderWidth, 0,
|
|||
|
|
XtNtop, XawChainTop,
|
|||
|
|
XtNbottom, XawChainTop,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
manualRestartLabel = XtVaCreateManagedWidget (
|
|||
|
|
"manualRestartLabel", labelWidgetClass, clientInfoForm,
|
|||
|
|
XtNfromHoriz, NULL,
|
|||
|
|
XtNfromVert, clientListWidget,
|
|||
|
|
XtNborderWidth, 0,
|
|||
|
|
XtNvertDistance, 20,
|
|||
|
|
XtNtop, XawChainBottom,
|
|||
|
|
XtNbottom, XawChainBottom,
|
|||
|
|
XtNleft, XawChainLeft,
|
|||
|
|
XtNright, XawChainLeft,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
manualRestartCommands = XtVaCreateManagedWidget (
|
|||
|
|
"manualRestartCommands", asciiTextWidgetClass, clientInfoForm,
|
|||
|
|
XtNfromHoriz, NULL,
|
|||
|
|
XtNfromVert, manualRestartLabel,
|
|||
|
|
XtNeditType, XawtextEdit,
|
|||
|
|
XtNresizable, True,
|
|||
|
|
XtNresize, XawtextResizeWidth,
|
|||
|
|
XtNscrollVertical, XawtextScrollAlways,
|
|||
|
|
XtNwidth, 350,
|
|||
|
|
XtNheight, 100,
|
|||
|
|
XtNtop, XawChainBottom,
|
|||
|
|
XtNbottom, XawChainBottom,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
/*
|
|||
|
|
* Pop up for viewing client properties
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
clientPropPopup = XtVaCreatePopupShell (
|
|||
|
|
"clientPropPopup", topLevelShellWidgetClass, topLevel,
|
|||
|
|
XtNallowShellResize, True,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
|
|||
|
|
clientPropForm = XtVaCreateManagedWidget (
|
|||
|
|
"clientPropForm", formWidgetClass, clientPropPopup,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
clientPropDoneButton = XtVaCreateManagedWidget (
|
|||
|
|
"clientPropDoneButton", commandWidgetClass, clientPropForm,
|
|||
|
|
XtNfromHoriz, NULL,
|
|||
|
|
XtNfromVert, NULL,
|
|||
|
|
XtNtop, XawChainTop,
|
|||
|
|
XtNbottom, XawChainTop,
|
|||
|
|
XtNleft, XawChainLeft,
|
|||
|
|
XtNright, XawChainLeft,
|
|||
|
|
NULL);
|
|||
|
|
|
|||
|
|
XtAddCallback (clientPropDoneButton, XtNcallback, clientPropDoneXtProc, 0);
|
|||
|
|
|
|||
|
|
|
|||
|
|
clientPropTextWidget = XtVaCreateManagedWidget (
|
|||
|
|
"clientPropTextWidget", asciiTextWidgetClass, clientPropForm,
|
|||
|
|
XtNfromHoriz, NULL,
|
|||
|
|
XtNfromVert, clientPropDoneButton,
|
|||
|
|
XtNeditType, XawtextRead,
|
|||
|
|
XtNdisplayCaret, False,
|
|||
|
|
XtNscrollVertical, XawtextScrollWhenNeeded,
|
|||
|
|
XtNscrollHorizontal, XawtextScrollWhenNeeded,
|
|||
|
|
XtNresizable, True,
|
|||
|
|
XtNtop, XawChainTop,
|
|||
|
|
XtNbottom, XawChainBottom,
|
|||
|
|
NULL);
|
|||
|
|
}
|