Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
Peter Howkins
48
cde/programs/dtwm/examples/wsinfo/Makefile.hp
Normal file
48
cde/programs/dtwm/examples/wsinfo/Makefile.hp
Normal file
@@ -0,0 +1,48 @@
|
||||
# $XConsortium: Makefile.hp /main/2 1996/05/13 11:34:13 drk $
|
||||
##########################################################################
|
||||
#
|
||||
# Makefile for wsinfo.c
|
||||
#
|
||||
# (c) Copyright 1993, 1994 Hewlett-Packard Company
|
||||
# (c) Copyright 1993, 1994 International Business Machines Corp.
|
||||
# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
|
||||
# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
|
||||
# Novell, Inc.
|
||||
##########################################################################
|
||||
|
||||
#ifndef CDE_INSTALLATION_TOP
|
||||
CDE_INSTALLATION_TOP = /usr/dt
|
||||
#endif
|
||||
|
||||
PROGRAM = wsinfo
|
||||
SOURCES = wsinfo.c
|
||||
OBJECTS = wsinfo.o
|
||||
|
||||
CFLAGS = +Obb2000 -Aa -D_HPUX_SOURCE
|
||||
CDEBUGFLAGS = -O
|
||||
|
||||
DTINCLUDE = -I$(CDE_INSTALLATION_TOP)/include
|
||||
X11INCLUDE = -I/usr/include/X11R5
|
||||
EXTRA_INCLUDES =
|
||||
INCLUDES = $(DTINCLUDE) $(X11INCLUDE) $(EXTRA_INCLUDES)
|
||||
|
||||
DTSVCLIB = -L$(CDE_INSTALLATION_TOP)/lib -lDtSvc
|
||||
TTLIB = -L$(CDE_INSTALLATION_TOP)/lib -ltt
|
||||
XMLIB = -L$(CDE_INSTALLATION_TOP)/lib -lXm
|
||||
XTLIB = -L/usr/lib/X11R5 -lXt
|
||||
X11LIB = -L/usr/lib/X11R5 -lX11
|
||||
|
||||
LIBRARIES = $(DTSVCLIB) $(TTLIB) $(XMLIB) $(XTLIB) $(X11LIB)
|
||||
LDFLAGS =
|
||||
|
||||
.c.o:
|
||||
cc -c $(CFLAGS) $(CDEBUGFLAGS) $(INCLUDES) $<
|
||||
|
||||
all:: $(PROGRAM)
|
||||
|
||||
$(PROGRAM):: $(OBJECTS)
|
||||
cc -o $(PROGRAM) $(LDFLAGS) $(OBJECTS) $(LIBRARIES)
|
||||
|
||||
clean::
|
||||
rm -f $(PROGRAM)
|
||||
rm -f $(OBJECTS)
|
||||
47
cde/programs/dtwm/examples/wsinfo/Makefile.ibm
Normal file
47
cde/programs/dtwm/examples/wsinfo/Makefile.ibm
Normal file
@@ -0,0 +1,47 @@
|
||||
# $XConsortium: Makefile.ibm /main/2 1996/05/13 11:34:32 drk $
|
||||
##########################################################################
|
||||
#
|
||||
# Makefile for wsinfo.c
|
||||
#
|
||||
# (c) Copyright 1993, 1994 Hewlett-Packard Company
|
||||
# (c) Copyright 1993, 1994 International Business Machines Corp.
|
||||
# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
|
||||
# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
|
||||
# Novell, Inc.
|
||||
##########################################################################
|
||||
|
||||
#ifndef CDE_INSTALLATION_TOP
|
||||
CDE_INSTALLATION_TOP = /usr/dt
|
||||
#endif
|
||||
|
||||
PROGRAM = wsinfo
|
||||
SOURCES = wsinfo.c
|
||||
OBJECTS = wsinfo.o
|
||||
|
||||
OPTIMIZEDFLAGS = -O
|
||||
|
||||
DTINCLUDE = -I$(CDE_INSTALLATION_TOP)/include
|
||||
X11INCLUDE = -I/usr/include
|
||||
EXTRA_INCLUDES =
|
||||
INCLUDES = $(DTINCLUDE) $(X11INCLUDE) $(EXTRA_INCLUDES)
|
||||
|
||||
DTSVCLIB = -L$(CDE_INSTALLATION_TOP)/lib -lDtSvc
|
||||
TTLIB = -L$(CDE_INSTALLATION_TOP)/lib -ltt
|
||||
XMLIB = -L$(CDE_INSTALLATION_TOP)/lib -lXm
|
||||
XTLIB = -L/usr/lib -lXt
|
||||
X11LIB = -L/usr/lib -lX11
|
||||
|
||||
LIBRARIES = $(DTSVCLIB) $(TTLIB) $(XMLIB) $(XTLIB) $(X11LIB)
|
||||
LDFLAGS =
|
||||
|
||||
.c.o:
|
||||
cc -c $(OPTIMIZEDFLAGS) $(INCLUDES) $<
|
||||
|
||||
all:: $(PROGRAM)
|
||||
|
||||
$(PROGRAM):: $(OBJECTS)
|
||||
cc -o $(PROGRAM) $(LDFLAGS) $(OBJECTS) $(LIBRARIES)
|
||||
|
||||
clean::
|
||||
rm -f $(PROGRAM)
|
||||
rm -f $(OBJECTS)
|
||||
50
cde/programs/dtwm/examples/wsinfo/Makefile.sun
Normal file
50
cde/programs/dtwm/examples/wsinfo/Makefile.sun
Normal file
@@ -0,0 +1,50 @@
|
||||
# $XConsortium: Makefile.sun /main/2 1996/05/13 11:34:51 drk $
|
||||
##########################################################################
|
||||
#
|
||||
# Makefile for wsinfo.c
|
||||
#
|
||||
# (c) Copyright 1993, 1994 Hewlett-Packard Company
|
||||
# (c) Copyright 1993, 1994 International Business Machines Corp.
|
||||
# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
|
||||
# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
|
||||
# Novell, Inc.
|
||||
##########################################################################
|
||||
|
||||
#ifndef CDE_INSTALLATION_TOP
|
||||
CDE_INSTALLATION_TOP = /usr/dt
|
||||
#endif
|
||||
|
||||
PROGRAM = wsinfo
|
||||
SOURCES = wsinfo.c
|
||||
OBJECTS = wsinfo.o
|
||||
|
||||
OPTIMIZEDFLAGS = -O
|
||||
|
||||
DTINCLUDE = -I$(CDE_INSTALLATION_TOP)/include
|
||||
X11INCLUDE = -I/usr/openwin/include
|
||||
INCLUDES = $(DTINCLUDE) $(X11INCLUDE)
|
||||
|
||||
DTSVCLIB = -L$(CDE_INSTALLATION_TOP)/lib -lDtSvc
|
||||
TTLIB = -L$(CDE_INSTALLATION_TOP)/lib -ltt
|
||||
XMLIB = -L$(CDE_INSTALLATION_TOP)/lib -lXm
|
||||
XTLIB = -L/usr/openwin/lib -lXt
|
||||
X11LIB = -L/usr/openwin/lib -lX11
|
||||
CPLUSPLUS = -L/usr/lib -lC
|
||||
EXTRA_LIBS = -L/usr/openwin/lib -lgen
|
||||
|
||||
LIBRARIES = $(DTSVCLIB) $(TTLIB) $(XMLIB) $(XTLIB) \
|
||||
$(X11LIB) $(CPLUSPLUS) $(EXTRA_LIBS)
|
||||
|
||||
LDFLAGS = -R$(CDE_INSTALLATION_TOP)/lib:/usr/openwin/lib
|
||||
|
||||
.c.o:
|
||||
cc -c $(OPTIMIZEDFLAGS) $(INCLUDES) $<
|
||||
|
||||
all:: $(PROGRAM)
|
||||
|
||||
$(PROGRAM):: $(OBJECTS)
|
||||
cc -o $(PROGRAM) $(LDFLAGS) $(OBJECTS) $(LIBRARIES)
|
||||
|
||||
clean::
|
||||
rm -f $(PROGRAM)
|
||||
rm -f $(OBJECTS)
|
||||
51
cde/programs/dtwm/examples/wsinfo/Makefile.usl
Normal file
51
cde/programs/dtwm/examples/wsinfo/Makefile.usl
Normal file
@@ -0,0 +1,51 @@
|
||||
# $XConsortium: Makefile.usl /main/2 1996/05/13 11:35:08 drk $
|
||||
##########################################################################
|
||||
#
|
||||
# Makefile for wsinfo.c
|
||||
#
|
||||
# (c) Copyright 1993, 1994 Hewlett-Packard Company
|
||||
# (c) Copyright 1993, 1994 International Business Machines Corp.
|
||||
# (c) Copyright 1993, 1994 Sun Microsystems, Inc.
|
||||
# (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
|
||||
# Novell, Inc.
|
||||
##########################################################################
|
||||
|
||||
#ifndef CDE_INSTALLATION_TOP
|
||||
CDE_INSTALLATION_TOP = /usr/dt
|
||||
#endif
|
||||
|
||||
PROGRAM = wsinfo
|
||||
SOURCES = wsinfo.c
|
||||
OBJECTS = wsinfo.o
|
||||
|
||||
OPTIMIZEDFLAGS = -O
|
||||
|
||||
DTINCLUDE = -I$(CDE_INSTALLATION_TOP)/include
|
||||
#XMINCLUDE = -I$(CDE_INSTALLATION_TOP)/include
|
||||
X11INCLUDE = -I/usr/X/include
|
||||
INCLUDES = $(DTINCLUDE) $(XMINCLUDE) $(X11INCLUDE)
|
||||
|
||||
DTSVCLIB = -L$(CDE_INSTALLATION_TOP)/lib -lDtSvc
|
||||
TTLIB = -L$(CDE_INSTALLATION_TOP)/lib -ltt
|
||||
XMLIB = -L$(CDE_INSTALLATION_TOP)/lib -lXm
|
||||
XTLIB = -L/usr/X/lib -lXt
|
||||
X11LIB = -L/usr/X/lib -lX11
|
||||
CPLUSPLUS = -L/usr/add-on/C++/lib -lC
|
||||
EXTRA_LIBS = -L/usr/lib -lgen -lnsl -lresolv -lsocket -lXIM \
|
||||
-L/usr/add-on/C++/lib -lC
|
||||
|
||||
LIBRARIES = $(DTSVCLIB) $(TTLIB) $(XMLIB) $(XTLIB) \
|
||||
$(X11LIB) $(CPLUSPLUS) $(EXTRA_LIBS)
|
||||
LDFLAGS =
|
||||
|
||||
.c.o:
|
||||
cc -c $(OPTIMIZEDFLAGS) $(INCLUDES) $<
|
||||
|
||||
all:: $(PROGRAM)
|
||||
|
||||
$(PROGRAM):: $(OBJECTS)
|
||||
cc -o $(PROGRAM) $(LDFLAGS) $(OBJECTS) $(LIBRARIES)
|
||||
|
||||
clean::
|
||||
rm -f $(PROGRAM)
|
||||
rm -f $(OBJECTS)
|
||||
630
cde/programs/dtwm/examples/wsinfo/wsinfo.c
Normal file
630
cde/programs/dtwm/examples/wsinfo/wsinfo.c
Normal file
@@ -0,0 +1,630 @@
|
||||
/* $XConsortium: wsinfo.c /main/3 1996/11/05 12:17:59 mustafa $ */
|
||||
/***********************************************************************
|
||||
* CDE Developer's Conference Sample Program
|
||||
*
|
||||
* File: wsinfo.c
|
||||
*
|
||||
* Purpose:
|
||||
* Demonstrate the CDE Workspace API. This file uses:
|
||||
*
|
||||
* DtWsmGetWorkspaceInfo
|
||||
* DtWsmFreeWorkspaceInfo
|
||||
* DtWsmGetCurrentWorkspace
|
||||
* DtWsmAddCurrentWorkspaceCallback
|
||||
* DtWsmOccupyAllWorkspaces
|
||||
*
|
||||
* (c) Copyright 1993, 1994 Hewlett-Packard Company
|
||||
* (c) Copyright 1993, 1994 International Business Machines Corp.
|
||||
* (c) Copyright 1993, 1994 Sun Microsystems, Inc.
|
||||
* (c) Copyright 1993, 1994 Unix System Labs, Inc., a subsidiary of
|
||||
* Novell, Inc.
|
||||
***********************************************************************/
|
||||
|
||||
/*
|
||||
* include files
|
||||
*/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <X11/Intrinsic.h>
|
||||
#include <Xm/Xm.h>
|
||||
#include <Xm/AtomMgr.h>
|
||||
#include <Xm/Form.h>
|
||||
#include <Xm/PushB.h>
|
||||
#include <Xm/Label.h>
|
||||
|
||||
#include <Dt/Wsm.h>
|
||||
|
||||
|
||||
/*
|
||||
* functions defined in this program
|
||||
*/
|
||||
void main();
|
||||
void quitCB();
|
||||
void updateCB();
|
||||
void ShowCurrentWorkspaceInfo ();
|
||||
DtWsmWsChangeProc wschangecb();
|
||||
void InstallXErrorHandler();
|
||||
|
||||
/*
|
||||
* global variables
|
||||
*/
|
||||
Widget toplevel; /* Shell widget */
|
||||
Widget wChildren [20];
|
||||
|
||||
/*
|
||||
* button assignments
|
||||
*/
|
||||
#define QUIT_BUTTON (wChildren[0])
|
||||
#define UPDATE_BUTTON (wChildren[1])
|
||||
#define SEPARATOR (wChildren[2])
|
||||
#define WS_LABEL (wChildren[3])
|
||||
#define WS_VALUE (wChildren[4])
|
||||
#define TITLE_LABEL (wChildren[5])
|
||||
#define TITLE_VALUE (wChildren[6])
|
||||
#define BACKDROP_LABEL (wChildren[7])
|
||||
#define BACKDROP_VALUE (wChildren[8])
|
||||
#define COLORSET_LABEL (wChildren[9])
|
||||
#define COLORSET_VALUE (wChildren[10])
|
||||
#define SEPARATOR2 (wChildren[11])
|
||||
#define NUM_CHILDREN 12
|
||||
|
||||
/*-------------------------------------------------------------
|
||||
* main - main logic for program
|
||||
*/
|
||||
void main (argc,argv)
|
||||
int argc;
|
||||
char **argv;
|
||||
{
|
||||
Widget form;
|
||||
Widget top;
|
||||
XtAppContext app_context;
|
||||
Arg args[10];
|
||||
register int n;
|
||||
register int i;
|
||||
XmString xms, xmsBlank;
|
||||
|
||||
/*
|
||||
* initialize toolkit
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNallowShellResize, True); n++;
|
||||
toplevel = XtAppInitialize (&app_context, "XMDemos", NULL, 0,
|
||||
&argc, argv, NULL, args, n);
|
||||
|
||||
/*
|
||||
* Set up X error handling
|
||||
*/
|
||||
InstallXErrorHandler ();
|
||||
|
||||
/*
|
||||
* manager widget
|
||||
*/
|
||||
n = 0;
|
||||
form = XmCreateForm (toplevel, "form", args, n);
|
||||
XtManageChild (form);
|
||||
|
||||
/*
|
||||
* create compound string for blank labels
|
||||
*/
|
||||
xmsBlank = XmStringCreateLocalized(" ");
|
||||
|
||||
/*******************************************
|
||||
* QUIT BUTTON
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* create compound string for the button text
|
||||
*/
|
||||
xms = XmStringCreateLocalized("Quit");
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelType, XmSTRING); n++;
|
||||
XtSetArg (args[n], XmNlabelString, xms); n++;
|
||||
XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_FORM); n++;
|
||||
/*
|
||||
* create button
|
||||
*/
|
||||
top = QUIT_BUTTON = XtCreateWidget ("button", xmPushButtonWidgetClass,
|
||||
form, args, n);
|
||||
XmStringFree (xms);
|
||||
|
||||
/*
|
||||
* add callback
|
||||
*/
|
||||
XtAddCallback (QUIT_BUTTON, XmNactivateCallback, quitCB, NULL);
|
||||
|
||||
/*******************************************
|
||||
* UPDATE WORKSPACE INFO BUTTON
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* create compound string for the button text
|
||||
*/
|
||||
xms = XmStringCreateLocalized("Get workspace info");
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelType, XmSTRING); n++;
|
||||
XtSetArg (args[n], XmNlabelString, xms); n++;
|
||||
XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create button
|
||||
*/
|
||||
top = UPDATE_BUTTON = XtCreateWidget ("button", xmPushButtonWidgetClass,
|
||||
form, args, n);
|
||||
XmStringFree (xms);
|
||||
|
||||
/*
|
||||
* add callback
|
||||
*/
|
||||
XtAddCallback (UPDATE_BUTTON, XmNactivateCallback, updateCB, NULL);
|
||||
|
||||
/*******************************************
|
||||
* SEPARATOR
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
|
||||
XtSetArg (args[n], XmNrightAttachment, XmATTACH_FORM); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create separator
|
||||
*/
|
||||
top = SEPARATOR = (Widget)
|
||||
XmCreateSeparatorGadget (form, "separator", args, n);
|
||||
|
||||
/*******************************************
|
||||
* LABEL FOR CURRENT WORKSPACE
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* NOTE: We assume this is the longest label and lay out the
|
||||
* other fields based on this assumption.
|
||||
*/
|
||||
|
||||
/*
|
||||
* create compound string for the label text
|
||||
*/
|
||||
xms = XmStringCreateLocalized("Current workspace: ");
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelType, XmSTRING); n++;
|
||||
XtSetArg (args[n], XmNlabelString, xms); n++;
|
||||
XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create label
|
||||
*/
|
||||
WS_LABEL = XtCreateWidget ("label", xmLabelWidgetClass,
|
||||
form, args, n);
|
||||
XmStringFree (xms);
|
||||
|
||||
/*******************************************
|
||||
* VALUE FOR CURRENT WORKSPACE
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelType, XmSTRING); n++;
|
||||
XtSetArg (args[n], XmNlabelString, xmsBlank); n++;
|
||||
XtSetArg (args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNleftWidget, WS_LABEL); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create value
|
||||
*/
|
||||
top = WS_VALUE = XtCreateWidget ("label", xmLabelWidgetClass,
|
||||
form, args, n);
|
||||
|
||||
/*******************************************
|
||||
* LABEL FOR WORKSPACE TITLE
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* create compound string for the label text
|
||||
*/
|
||||
xms = XmStringCreateLocalized(" title: ");
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelType, XmSTRING); n++;
|
||||
XtSetArg (args[n], XmNlabelString, xms); n++;
|
||||
XtSetArg (args[n], XmNrightAttachment, XmATTACH_OPPOSITE_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNrightWidget, WS_LABEL); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create label
|
||||
*/
|
||||
TITLE_LABEL = XtCreateWidget ("label", xmLabelWidgetClass,
|
||||
form, args, n);
|
||||
XmStringFree (xms);
|
||||
|
||||
/*******************************************
|
||||
* VALUE FOR WORKSPACE TITLE
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelType, XmSTRING); n++;
|
||||
XtSetArg (args[n], XmNlabelString, xmsBlank); n++;
|
||||
XtSetArg (args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNleftWidget, TITLE_LABEL); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create value
|
||||
*/
|
||||
top = TITLE_VALUE = XtCreateWidget ("label", xmLabelWidgetClass,
|
||||
form, args, n);
|
||||
|
||||
/*******************************************
|
||||
* LABEL FOR WORKSPACE BACKDROP
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* create compound string for the label text
|
||||
*/
|
||||
xms = XmStringCreateLocalized(" backdrop: ");
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelType, XmSTRING); n++;
|
||||
XtSetArg (args[n], XmNlabelString, xms); n++;
|
||||
XtSetArg (args[n], XmNrightAttachment, XmATTACH_OPPOSITE_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNrightWidget, WS_LABEL); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create label
|
||||
*/
|
||||
BACKDROP_LABEL = XtCreateWidget ("label", xmLabelWidgetClass,
|
||||
form, args, n);
|
||||
XmStringFree (xms);
|
||||
|
||||
/*******************************************
|
||||
* VALUE FOR WORKSPACE BACKDROP
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelType, XmSTRING); n++;
|
||||
XtSetArg (args[n], XmNlabelString, xmsBlank); n++;
|
||||
XtSetArg (args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNleftWidget, BACKDROP_LABEL); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create value
|
||||
*/
|
||||
top = BACKDROP_VALUE = XtCreateWidget ("label", xmLabelWidgetClass,
|
||||
form, args, n);
|
||||
|
||||
/*******************************************
|
||||
* LABEL FOR WORKSPACE COLORSET ID
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* create compound string for the label text
|
||||
*/
|
||||
xms = XmStringCreateLocalized(" color set id: ");
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelType, XmSTRING); n++;
|
||||
XtSetArg (args[n], XmNlabelString, xms); n++;
|
||||
XtSetArg (args[n], XmNrightAttachment, XmATTACH_OPPOSITE_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNrightWidget, WS_LABEL); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create label
|
||||
*/
|
||||
COLORSET_LABEL = XtCreateWidget ("label", xmLabelWidgetClass,
|
||||
form, args, n);
|
||||
XmStringFree (xms);
|
||||
|
||||
/*******************************************
|
||||
* VALUE FOR WORKSPACE COLORSET ID
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelType, XmSTRING); n++;
|
||||
XtSetArg (args[n], XmNlabelString, xmsBlank); n++;
|
||||
XtSetArg (args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNleftWidget, COLORSET_LABEL); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create value
|
||||
*/
|
||||
top = COLORSET_VALUE = XtCreateWidget ("label", xmLabelWidgetClass,
|
||||
form, args, n);
|
||||
|
||||
/*******************************************
|
||||
* SEPARATOR
|
||||
******************************************/
|
||||
|
||||
/*
|
||||
* set up arglist
|
||||
*/
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
|
||||
XtSetArg (args[n], XmNrightAttachment, XmATTACH_FORM); n++;
|
||||
XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
|
||||
XtSetArg (args[n], XmNtopWidget, top); n++;
|
||||
/*
|
||||
* create separator
|
||||
*/
|
||||
top = SEPARATOR2 = (Widget)
|
||||
XmCreateSeparatorGadget (form, "separator", args, n);
|
||||
|
||||
/*
|
||||
* manage children
|
||||
*/
|
||||
XtManageChildren (wChildren, NUM_CHILDREN);
|
||||
|
||||
/*
|
||||
* Show info on current workspace
|
||||
*/
|
||||
ShowCurrentWorkspaceInfo ();
|
||||
|
||||
/*
|
||||
* realize widgets
|
||||
*/
|
||||
XtRealizeWidget (toplevel);
|
||||
|
||||
/*
|
||||
* Do these calls after the shell is realized.
|
||||
* They need a window created for the top level shell.
|
||||
*
|
||||
* HINT: See XtSetMappedWhenManaged(1) if you want to
|
||||
* realize a widget to get a window, but need to
|
||||
* control when the map of the window occurs.
|
||||
*/
|
||||
(void) DtWsmAddCurrentWorkspaceCallback (toplevel,
|
||||
(DtWsmWsChangeProc) wschangecb, NULL);
|
||||
|
||||
DtWsmOccupyAllWorkspaces (XtDisplay(toplevel), XtWindow(toplevel));
|
||||
|
||||
/*
|
||||
* process events
|
||||
*/
|
||||
XtAppMainLoop (app_context);
|
||||
}
|
||||
|
||||
|
||||
/*-------------------------------------------------------------
|
||||
* Update the information for the current workspace
|
||||
*/
|
||||
void ShowCurrentWorkspaceInfo ()
|
||||
{
|
||||
Arg args[10]; /* arg list */
|
||||
register int n; /* arg count */
|
||||
Atom aWs;
|
||||
int rval;
|
||||
Display *dpy;
|
||||
Window root;
|
||||
DtWsmWorkspaceInfo *pWsInfo;
|
||||
XmString xms;
|
||||
char pch[512];
|
||||
char *pchName;
|
||||
|
||||
dpy = XtDisplay(toplevel);
|
||||
root = XDefaultRootWindow(dpy);
|
||||
|
||||
rval = DtWsmGetCurrentWorkspace(dpy, root, &aWs);
|
||||
|
||||
if (rval == Success)
|
||||
{
|
||||
rval = DtWsmGetWorkspaceInfo (dpy, root, aWs, &pWsInfo);
|
||||
|
||||
if (rval == Success)
|
||||
{
|
||||
/* workspace name */
|
||||
pchName = XmGetAtomName (dpy, pWsInfo->workspace);
|
||||
xms = XmStringCreateLocalized(pchName);
|
||||
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelString, xms); n++;
|
||||
XtSetValues (WS_VALUE, args, n);
|
||||
|
||||
XmStringFree (xms);
|
||||
XtFree (pchName);
|
||||
|
||||
/* workspace title */
|
||||
xms = XmStringCreateLocalized(pWsInfo->pchTitle);
|
||||
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelString, xms); n++;
|
||||
XtSetValues (TITLE_VALUE, args, n);
|
||||
|
||||
XmStringFree (xms);
|
||||
|
||||
/* workspace backdrop name */
|
||||
if (pWsInfo->backdropName != None)
|
||||
pchName = XmGetAtomName (dpy, pWsInfo->backdropName);
|
||||
else
|
||||
pchName = "<failed to load!>";
|
||||
xms = XmStringCreateLocalized(pchName);
|
||||
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelString, xms); n++;
|
||||
XtSetValues (BACKDROP_VALUE, args, n);
|
||||
|
||||
XmStringFree (xms);
|
||||
if (pWsInfo->backdropName != None)
|
||||
XtFree (pchName);
|
||||
|
||||
/* workspace colorset id */
|
||||
sprintf (pch, "%d", pWsInfo->colorSetId);
|
||||
xms = XmStringCreateLocalized(pch);
|
||||
|
||||
n = 0;
|
||||
XtSetArg (args[n], XmNlabelString, xms); n++;
|
||||
XtSetValues (COLORSET_VALUE, args, n);
|
||||
|
||||
XmStringFree (xms);
|
||||
|
||||
DtWsmFreeWorkspaceInfo (pWsInfo);
|
||||
}
|
||||
}
|
||||
|
||||
if (rval != Success)
|
||||
{
|
||||
fprintf (stderr, "Failed to get workspace information.\n");
|
||||
fprintf (stderr, "Is dtwm running?\n");
|
||||
exit (1);
|
||||
}
|
||||
}
|
||||
|
||||
/*-------------------------------------------------------------
|
||||
* quitCB - callback for button
|
||||
*/
|
||||
void quitCB (w, client_data, call_data)
|
||||
Widget w; /* widget id */
|
||||
caddr_t client_data; /* data from application */
|
||||
caddr_t call_data; /* data from widget class */
|
||||
{
|
||||
exit (0);
|
||||
}
|
||||
|
||||
|
||||
/*-------------------------------------------------------------
|
||||
* updateCB - callback for show current workspace info
|
||||
*/
|
||||
void updateCB (w, client_data, call_data)
|
||||
Widget w; /* widget id */
|
||||
caddr_t client_data; /* data from application */
|
||||
caddr_t call_data; /* data from widget class */
|
||||
{
|
||||
|
||||
ShowCurrentWorkspaceInfo ();
|
||||
|
||||
}
|
||||
|
||||
/*-------------------------------------------------------------
|
||||
** wschangecb - callback for workspace switch
|
||||
*/
|
||||
DtWsmWsChangeProc
|
||||
wschangecb (w, atom, client_data)
|
||||
Widget w;
|
||||
Atom atom;
|
||||
XtPointer client_data;
|
||||
{
|
||||
ShowCurrentWorkspaceInfo ();
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*-------------------------------------------------------------
|
||||
** data for X error handler
|
||||
*/
|
||||
#define E_MAJOR_CODE 0
|
||||
#define E_MINOR_CODE 1
|
||||
#define E_RESOURCE_ID 2
|
||||
#define E_ERROR_SERIAL 3
|
||||
#define E_CURRENT_SERIAL 4
|
||||
|
||||
#define NUM_E_STRINGS 5
|
||||
|
||||
static char *pchErrorFormatNames [NUM_E_STRINGS] = {
|
||||
"MajorCode",
|
||||
"MinorCode",
|
||||
"ResourceID",
|
||||
"ErrorSerial",
|
||||
"CurrentSerial"
|
||||
};
|
||||
|
||||
static char *pchErrorFormat [NUM_E_STRINGS];
|
||||
|
||||
|
||||
/*-------------------------------------------------------------
|
||||
** HandleXErrors - catch X protocol errors
|
||||
*/
|
||||
static int
|
||||
_HandleXErrors (display, errorEvent)
|
||||
Display *display;
|
||||
XErrorEvent *errorEvent;
|
||||
{
|
||||
char buffer[BUFSIZ];
|
||||
char message[BUFSIZ];
|
||||
|
||||
XGetErrorText (display, errorEvent->error_code, buffer, BUFSIZ);
|
||||
fprintf (stderr, "\n*** X error occurred ***\n");
|
||||
fprintf (stderr, "Description = '%s'\n ", buffer);
|
||||
|
||||
fprintf (stderr, pchErrorFormat[E_MAJOR_CODE], errorEvent->request_code);
|
||||
sprintf(message, "%d", errorEvent->request_code);
|
||||
XGetErrorDatabaseText (display, "XRequest", message, " ", buffer, BUFSIZ);
|
||||
fprintf (stderr, " (%s)\n ", buffer);
|
||||
fprintf (stderr, pchErrorFormat[E_MINOR_CODE], errorEvent->minor_code);
|
||||
fprintf (stderr, "\n ");
|
||||
fprintf (stderr, pchErrorFormat[E_RESOURCE_ID], errorEvent->resourceid);
|
||||
fprintf (stderr, "\n ");
|
||||
fprintf (stderr, pchErrorFormat[E_ERROR_SERIAL], errorEvent->serial);
|
||||
fprintf (stderr, "\n ");
|
||||
fprintf (stderr, pchErrorFormat[E_CURRENT_SERIAL],
|
||||
LastKnownRequestProcessed(display));
|
||||
fprintf (stderr, "\n");
|
||||
|
||||
return (0);
|
||||
}
|
||||
|
||||
/*-------------------------------------------------------------
|
||||
** Setup the X error handler
|
||||
*/
|
||||
void
|
||||
InstallXErrorHandler ( display )
|
||||
Display *display;
|
||||
{
|
||||
char buffer[BUFSIZ];
|
||||
int i;
|
||||
|
||||
/*
|
||||
* Fetch the X error format strings from XErrorDB
|
||||
*/
|
||||
for (i = 0; i< NUM_E_STRINGS; i++)
|
||||
{
|
||||
XGetErrorDatabaseText (display, "XlibMessage",
|
||||
pchErrorFormatNames[i], " %d ", buffer, BUFSIZ);
|
||||
|
||||
pchErrorFormat[i] = (char *) XtMalloc (1+strlen(buffer));
|
||||
|
||||
strcpy(pchErrorFormat[i], buffer);
|
||||
}
|
||||
|
||||
XSetErrorHandler (_HandleXErrors);
|
||||
}
|
||||
Reference in New Issue
Block a user