Initial import of the CDE 2.1.30 sources from the Open Group.

cde/examples/dtwsm/occupy.c

@@ -0,0 +1,463 @@
+/* $XConsortium: occupy.c /main/3 1995/10/27 10:41:19 rswiston $ */
+/*
+ *  (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 Novell, Inc.
+ */
+
+
+/* Demonstrate the DtWsm Workspace API. */
+
+/*  
+ * include files  
+ */
+
+#include <stdio.h>
+#include <Xm/XmAll.h>
+#include <Dt/Wsm.h>
+
+
+/*  
+ * functions
+ */
+
+void main();
+static void quitCB(); 
+static void setCB(); 
+static void showCB(); 
+static void wsCB(); 
+static void allWsCB(); 
+static void SetupWorkspaceButtons ();
+static void ShowWorkspaceOccupancy();
+static void SetWorkspaceOccupancy();
+
+/*  
+ * global variables  
+ */
+
+static XmString xms;
+static Widget toplevel;
+static Widget wChildren [20];
+static Widget *wWs;
+static Atom *paWsSet = NULL;
+static Boolean *pbOccupy;
+static unsigned long numWorkspaces;
+static Atom *paWs;
+
+/* 
+ * button assignments 
+ */
+#define QUIT_BUTTON	(wChildren[0])
+#define SEPARATOR	(wChildren[1])
+#define SET_BUTTON      (wChildren[2])
+#define SHOW_BUTTON     (wChildren[3])
+#define ALL_WS_BUTTON   (wChildren[4])
+#define NUM_CHILDREN	5
+
+/*
+ * main - main logic for program
+ */
+
+void main (argc,argv)
+    int argc;
+    char **argv;
+{
+    Widget frame;
+    Widget form;
+    Widget  top;
+    XtAppContext app_context;
+    Arg	args[10];
+    int n;
+    int i;
+
+    /*
+     * initialize toolkit
+     */
+    n = 0;
+    XtSetArg (args[n], XmNallowShellResize, True);  n++;
+    toplevel = XtAppInitialize (&app_context, "Dtoccupy", NULL, 0, &argc, argv,
+								 NULL, args, n);
+
+    n = 0;
+    XtSetArg (args[n], XmNmarginWidth, 10);  n++;
+    XtSetArg (args[n], XmNmarginHeight, 10);  n++;
+    frame = XmCreateFrame (toplevel, "frame", args, n);
+    XtManageChild (frame);
+
+    /*
+     *  manager widget
+     */
+    n = 0;
+    form = XmCreateForm (frame, "form", args, n);
+    XtManageChild (form);
+
+    /*
+     * 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);
+
+    /*  
+     * create compound string for the button text  
+     */
+    xms = XmStringCreateLocalized("Set Occupancy");
+
+    /*  
+     * 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 = SET_BUTTON = XtCreateWidget ("button", xmPushButtonWidgetClass,
+	  form, args, n);
+
+    XmStringFree(xms);
+    /*  
+     * add callback  
+     */
+    XtAddCallback (SET_BUTTON, XmNactivateCallback, setCB, NULL);
+
+    /*  
+     * create compound string for the button text  
+     */
+    xms = XmStringCreateLocalized("Occupy All Workspaces");
+
+    /*  
+     * 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 = ALL_WS_BUTTON = XtCreateWidget ("button", xmPushButtonWidgetClass,
+	  form, args, n);
+
+    XmStringFree(xms);
+
+    /*  
+     * add callback  
+     */
+    XtAddCallback (ALL_WS_BUTTON, XmNactivateCallback, allWsCB, NULL);
+
+    /*  
+     * create compound string for the button text  
+     */
+    xms = XmStringCreateLocalized("Show Occupancy");
+
+    /*  
+     * 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 = SHOW_BUTTON = XtCreateWidget ("button", xmPushButtonWidgetClass,
+      form, args, n);
+
+    XmStringFree(xms);
+    /*  
+     * add callback  
+     */
+    XtAddCallback (SHOW_BUTTON, XmNactivateCallback, showCB, NULL);
+
+    /*  
+     * 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);
+
+    /* 
+     * set up workspace buttons 
+     */
+    SetupWorkspaceButtons (form, top);
+
+    /*  
+     * manage children
+     */
+    XtManageChildren (wChildren, NUM_CHILDREN);
+    XtManageChildren (wWs, numWorkspaces);
+
+    /*  
+     * realize widgets  
+     */
+    XtRealizeWidget (toplevel);
+
+    /* 
+     * set up initial workspace occupancy info 
+     */
+    pbOccupy = (Boolean *) XtMalloc (numWorkspaces * sizeof (Boolean));
+    for (i=0; i<numWorkspaces; i++)
+    {
+	pbOccupy[i] = False;
+    }
+    ShowWorkspaceOccupancy ();
+
+    /*  
+     * process events  
+     */
+    XtAppMainLoop (app_context);
+}
+
+/*-------------------------------------------------------------
+ *	Create a set of buttons for the current set of workspaces
+ */
+static void SetupWorkspaceButtons (form, top)
+Widget form;
+Widget top;
+{
+    Window root;
+    Arg	args[10]; /*  arg list		*/
+    register int n;	/*  arg count		*/
+    register int i;
+    DtWsmWorkspaceInfo *pWsInfo;
+    char *pchWs;
+    Widget left = None;
+    Widget *pWid;
+
+    /*  
+     * get workspace information 
+     */
+    root = XRootWindowOfScreen(XtScreen(form));
+    if (DtWsmGetWorkspaceList (XtDisplay(form), root, 
+		    &paWs, (int *)&numWorkspaces) == Success)
+    {
+	wWs = (Widget *) XtMalloc (numWorkspaces * sizeof (Widget));
+	pWid = wWs;
+	for (i=0; i<numWorkspaces; i++, pWid++)
+	{
+	    DtWsmGetWorkspaceInfo (XtDisplay(form), root, paWs[i],
+		&pWsInfo);
+
+	    pchWs = (char *) XmGetAtomName (XtDisplay(form), 
+					    pWsInfo->workspace);
+	    /*  
+	     * create compound string for the button text  
+	     */
+	    xms = XmStringCreateLocalized(pchWs);
+
+	    /*  
+	     * set up arglist  
+	     */
+	    n = 0;
+	    XtSetArg (args[n], XmNlabelType, XmSTRING);  n++;
+	    XtSetArg (args[n], XmNlabelString, xms);  n++;
+	    XtSetArg (args[n], XmNindicatorOn, True);  n++;
+	    XtSetArg (args[n], XmNindicatorType, XmN_OF_MANY);  n++;
+	    if (left == None)
+	    {
+		XtSetArg (args[n], XmNleftAttachment, XmATTACH_FORM); n++;
+	    }
+	    else
+	    {
+		XtSetArg (args[n], XmNleftAttachment, XmATTACH_WIDGET); n++;
+		XtSetArg (args[n], XmNleftWidget, left); n++;
+	    }
+	    XtSetArg (args[n], XmNtopAttachment, XmATTACH_WIDGET); n++;
+	    XtSetArg (args[n], XmNtopWidget, top); n++;
+	    /*  
+	     * create button  
+	     */
+	    *pWid = XtCreateWidget ("button", xmToggleButtonWidgetClass,
+	      form, args, n);
+
+	    XmStringFree(xms);
+	    /*  
+	     * add callback  
+	     */
+	    XtAddCallback (*pWid, XmNvalueChangedCallback, wsCB, 
+				    (XtPointer) i);
+	    left = *pWid;
+	}
+    }
+    else
+    {
+	fprintf(stderr, "Failed to get workspace info -- dtwm not running!\n");
+	exit (1);
+    }
+}
+
+/*-------------------------------------------------------------
+ *	Update the workspace buttons with where we are now.
+ */
+static void ShowWorkspaceOccupancy ()
+{
+    Arg	args[10]; /*  arg list		*/
+    register int n;	/*  arg count		*/
+    int i,j;
+    Atom *paWsIn = NULL;
+    unsigned long numWsIn;
+    int rval;
+
+    rval = DtWsmGetWorkspacesOccupied(XtDisplay(toplevel), 
+		XtWindow(toplevel), &paWsIn, &numWsIn );
+
+    if (rval == Success)
+    {
+
+	for (i = 0; i<numWorkspaces; i++)
+	{
+	    pbOccupy[i] = False;
+	    for (j=0; j<numWsIn; j++)
+	    {
+		if (paWs[i] == paWsIn[j])
+		{
+		    pbOccupy[i] = True;
+		    break;
+		}
+	    }
+	}
+
+	for (i = 0; i<numWorkspaces; i++)
+	{
+	    n = 0;
+	    if (pbOccupy[i])
+	    {
+		XtSetArg (args[n], XmNset, True);  n++;
+	    }
+	    else
+	    {
+		XtSetArg (args[n], XmNset, False);  n++;
+	    }
+	    XtSetValues (wWs[i], args, n);
+	}
+
+	if (paWsIn) XFree ((char *) paWsIn);
+    }
+}
+
+/*-------------------------------------------------------------
+ *	quitCB - callback for button
+ */
+static void quitCB (w, client_data, call_data) 
+Widget	w;		/*  widget id		*/
+XtPointer	client_data;	/*  data from application   */
+XtPointer	call_data;	/*  data from widget class  */
+{
+    exit (0);
+}
+
+
+/*-------------------------------------------------------------
+ *	showCB - callback for show occupancy button
+ */
+static void showCB (w, client_data, call_data) 
+Widget	w;		/*  widget id		*/
+XtPointer	client_data;	/*  data from application   */
+XtPointer	call_data;	/*  data from widget class  */
+{
+
+    ShowWorkspaceOccupancy();
+
+}
+
+/*-------------------------------------------------------------
+ *	setCB - callback for set occupancy button
+ */
+static void setCB (w, client_data, call_data) 
+Widget	w;		/*  widget id		*/
+XtPointer	client_data;	/*  data from application   */
+XtPointer	call_data;	/*  data from widget class  */
+{
+    int numSet;
+    int i;
+
+    if (!paWsSet)
+    {
+	paWsSet = (Atom *) XtMalloc (numWorkspaces * sizeof(Atom));
+    }
+
+    for (i=0, numSet=0; i<numWorkspaces; i++)
+    {
+	if (pbOccupy[i])
+	{
+	    paWsSet[numSet++] = paWs[i];
+	}
+    }
+
+    DtWsmSetWorkspacesOccupied (XtDisplay(toplevel),
+			    XtWindow(toplevel), paWsSet, numSet);
+
+}
+
+/*-------------------------------------------------------------
+ *	wsCB - callback for set occupancy button
+ */
+static void wsCB (w, client_data, call_data) 
+Widget	w;		/*  widget id		*/
+XtPointer	client_data;	/*  data from application   */
+XtPointer	call_data;	/*  data from widget class  */
+{
+    int i = (Atom) client_data; /* ws array index */
+    XmToggleButtonCallbackStruct *ptb = 
+		(XmToggleButtonCallbackStruct *) call_data;
+
+    if (ptb->reason == XmCR_VALUE_CHANGED)
+    {
+	if (ptb->set)
+	{
+	    pbOccupy[i] = True;
+	}
+	else
+	{
+	    pbOccupy[i] = False;
+	}
+    }
+}
+
+/*-------------------------------------------------------------
+ *	allWsCB - callback for occupy all button
+ */
+static void allWsCB (w, client_data, call_data) 
+Widget	w;		/*  widget id		*/
+XtPointer	client_data;	/*  data from application   */
+XtPointer	call_data;	/*  data from widget class  */
+{
+    DtWsmOccupyAllWorkspaces (XtDisplay(toplevel), XtWindow(toplevel));
+}
+