Initial import of the CDE 2.1.30 sources from the Open Group.
This commit is contained in:
Peter Howkins
268
cde/lib/DtSvc/DtUtil1/WmWsHints.c
Normal file
268
cde/lib/DtSvc/DtUtil1/WmWsHints.c
Normal file
@@ -0,0 +1,268 @@
|
||||
/* $XConsortium: WmWsHints.c /main/5 1996/05/20 16:08:33 drk $
|
||||
*
|
||||
* (c) Copyright 1996 Digital Equipment Corporation.
|
||||
* (c) Copyright 1993,1994,1996 Hewlett-Packard Company.
|
||||
* (c) Copyright 1993,1994,1996 International Business Machines Corp.
|
||||
* (c) Copyright 1993,1994,1996 Sun Microsystems, Inc.
|
||||
* (c) Copyright 1993,1994,1996 Novell, Inc.
|
||||
* (c) Copyright 1996 FUJITSU LIMITED.
|
||||
* (c) Copyright 1996 Hitachi.
|
||||
*/
|
||||
|
||||
/************************************<+>*************************************
|
||||
****************************************************************************
|
||||
**
|
||||
** File: WmWsHints.c
|
||||
**
|
||||
** Project: DT Workspace Manager
|
||||
**
|
||||
** Description: Set and Get workspace hints.
|
||||
**
|
||||
****************************************************************************
|
||||
************************************<+>*************************************/
|
||||
#include <stdio.h>
|
||||
#include <X11/Xlib.h>
|
||||
#include <X11/Xutil.h>
|
||||
#include <Dt/Wsm.h>
|
||||
#include <Dt/WsmP.h>
|
||||
#include <Xm/Xm.h>
|
||||
#include <Xm/AtomMgr.h>
|
||||
|
||||
/*************************************<->*************************************
|
||||
*
|
||||
* _DtWsmSetWorkspaceHints (display, window, pWsHints)
|
||||
*
|
||||
*
|
||||
* Description:
|
||||
* -----------
|
||||
* Set the contents of the _DT_WORKSPACE_HINTS property on a window
|
||||
*
|
||||
*
|
||||
* Inputs:
|
||||
* ------
|
||||
* display - display
|
||||
* window - window to get hints from
|
||||
* pWsHints - pointer to workspace hints
|
||||
*
|
||||
* Comments:
|
||||
* ---------
|
||||
* The internal form of the property is a structure. The structure
|
||||
* must be unwound and turned into a simple array of "long"s before
|
||||
* being written out.
|
||||
*
|
||||
* This function currently only deals with version 1 of the property
|
||||
* structure. The passed in pWsHints->version is ignored.
|
||||
*
|
||||
*************************************<->***********************************/
|
||||
void
|
||||
_DtWsmSetWorkspaceHints(
|
||||
Display *display,
|
||||
Window window,
|
||||
DtWorkspaceHints *pWsHints)
|
||||
{
|
||||
unsigned int iSizeWsHints;
|
||||
Atom property;
|
||||
long *pPropValue, *pP;
|
||||
int i;
|
||||
|
||||
/*
|
||||
* Unwind structure into a simple array of longs.
|
||||
*
|
||||
* Compute size of property to write (don't count
|
||||
* pointer to workspaces, it will be unwound).
|
||||
*/
|
||||
iSizeWsHints = sizeof(DtWorkspaceHints) - sizeof(long);
|
||||
if (pWsHints->flags & DT_WORKSPACE_HINTS_WORKSPACES)
|
||||
{
|
||||
iSizeWsHints += pWsHints->numWorkspaces * sizeof(long);
|
||||
}
|
||||
pP = pPropValue = (long *) XtMalloc (iSizeWsHints);
|
||||
|
||||
*pP++ = 1; /* only deals with version 1 !! */
|
||||
*pP++ = pWsHints->flags;
|
||||
|
||||
if (pWsHints->flags & DT_WORKSPACE_HINTS_WSFLAGS)
|
||||
*pP++ = pWsHints->wsflags;
|
||||
else
|
||||
*pP++ = 0L;
|
||||
|
||||
if (pWsHints->flags & DT_WORKSPACE_HINTS_WORKSPACES)
|
||||
{
|
||||
*pP++ = pWsHints->numWorkspaces;
|
||||
for (i=0; i<pWsHints->numWorkspaces; i++)
|
||||
{
|
||||
*pP++ = pWsHints->pWorkspaces[i];
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
*pP++ = 0L; /* numWorkspaces */
|
||||
}
|
||||
|
||||
property = XmInternAtom (display, _XA_DT_WORKSPACE_HINTS, False);
|
||||
XChangeProperty (display, window, property,
|
||||
property, 32, PropModeReplace,
|
||||
(unsigned char *)pPropValue, (iSizeWsHints/sizeof(long)));
|
||||
}
|
||||
|
||||
|
||||
/*************************************<->*************************************
|
||||
*
|
||||
* int _DtWsmGetWorkspaceHints (display, window, ppWsHints)
|
||||
*
|
||||
*
|
||||
* Description:
|
||||
* -----------
|
||||
* Get the contents of the _DT_WORKSPACE_HINTS property from a window
|
||||
*
|
||||
*
|
||||
* Inputs:
|
||||
* ------
|
||||
* display - display
|
||||
* window - window to get hints from
|
||||
* ppWsHints - pointer to pointer to workspace hints
|
||||
*
|
||||
* Outputs:
|
||||
* *ppWsHints - allocated workspace hints data.
|
||||
*
|
||||
* Comments:
|
||||
* ---------
|
||||
* The internal form of the property is a structure. The property
|
||||
* is read in and packed into data allocated for the structure.
|
||||
* Free the workspace hints by calling _DtWsmFreeWorkspaceHints.
|
||||
*
|
||||
* This function currently only deals with version 1 of the property
|
||||
* structure.
|
||||
*
|
||||
*************************************<->***********************************/
|
||||
int
|
||||
_DtWsmGetWorkspaceHints(
|
||||
Display *display,
|
||||
Window window,
|
||||
DtWorkspaceHints **ppWsHints)
|
||||
{
|
||||
unsigned int iSizeWsHints;
|
||||
Atom property;
|
||||
DtWorkspaceHints *pWsH;
|
||||
long *pP = NULL;
|
||||
long *pProp = NULL;
|
||||
int i;
|
||||
Atom actualType;
|
||||
int actualFormat;
|
||||
unsigned long leftover, lcount;
|
||||
int rcode;
|
||||
|
||||
property = XmInternAtom (display, _XA_DT_WORKSPACE_HINTS, False);
|
||||
if ((rcode = XGetWindowProperty(
|
||||
display,
|
||||
window,
|
||||
property,
|
||||
0L,
|
||||
(long)BUFSIZ,
|
||||
False,
|
||||
property,
|
||||
&actualType,
|
||||
&actualFormat,
|
||||
&lcount,
|
||||
&leftover,
|
||||
(unsigned char **)&pProp))==Success)
|
||||
{
|
||||
if (actualType != property)
|
||||
{
|
||||
/* wrong type, force failure */
|
||||
rcode = BadValue;
|
||||
}
|
||||
else
|
||||
{
|
||||
pP = pProp;
|
||||
pWsH = (DtWorkspaceHints *)
|
||||
XtMalloc (sizeof(DtWorkspaceHints) * sizeof(long));
|
||||
|
||||
pWsH->version = *pP++;
|
||||
|
||||
/*
|
||||
* Only handles version 1
|
||||
*
|
||||
* (Fudge the test a little so that newer versions
|
||||
* won't be treated as older versions. This assumes
|
||||
* that customers will migrate their software after
|
||||
* a couple of revisions of these hints.)
|
||||
*/
|
||||
if (pWsH->version > 5)
|
||||
{
|
||||
/*
|
||||
* Assume old version of hints which was a simple
|
||||
* list of atoms.
|
||||
*/
|
||||
pWsH->version = 1;
|
||||
pWsH->flags = DT_WORKSPACE_HINTS_WORKSPACES;
|
||||
pWsH->wsflags = 0;
|
||||
pWsH->numWorkspaces = lcount;
|
||||
|
||||
/* reset pointer to first atom in list */
|
||||
pP--;
|
||||
}
|
||||
else
|
||||
{
|
||||
pWsH->flags = *pP++;
|
||||
pWsH->wsflags = *pP++;
|
||||
pWsH->numWorkspaces = *pP++;
|
||||
}
|
||||
|
||||
if (pWsH->flags & DT_WORKSPACE_HINTS_WORKSPACES)
|
||||
{
|
||||
pWsH->pWorkspaces = (Atom *)
|
||||
XtMalloc (pWsH->numWorkspaces * sizeof (Atom));
|
||||
for (i=0; i<pWsH->numWorkspaces; i++)
|
||||
{
|
||||
pWsH->pWorkspaces[i] = *pP++;
|
||||
}
|
||||
}
|
||||
else
|
||||
{
|
||||
pWsH->pWorkspaces = NULL;
|
||||
}
|
||||
*ppWsHints = pWsH;
|
||||
}
|
||||
|
||||
if (pProp && (actualType != None))
|
||||
{
|
||||
XFree ((char *)pProp);
|
||||
}
|
||||
}
|
||||
|
||||
return (rcode);
|
||||
}
|
||||
|
||||
|
||||
/*************************************<->*************************************
|
||||
*
|
||||
* _DtWsmFreeWorkspaceHints (pWsHints)
|
||||
*
|
||||
*
|
||||
* Description:
|
||||
* -----------
|
||||
* Free a workspace hints structure returned from _DtWsmGetWorkspaceHints
|
||||
*
|
||||
* Inputs:
|
||||
* ------
|
||||
* pWsHints - pointer to workspace hints
|
||||
*
|
||||
* Outputs:
|
||||
*
|
||||
* Comments:
|
||||
* ---------
|
||||
*************************************<->***********************************/
|
||||
void
|
||||
_DtWsmFreeWorkspaceHints(
|
||||
DtWorkspaceHints *pWsHints)
|
||||
{
|
||||
if (pWsHints)
|
||||
{
|
||||
if (pWsHints->pWorkspaces)
|
||||
{
|
||||
XtFree ((char *) pWsHints->pWorkspaces);
|
||||
}
|
||||
XtFree ((char *)pWsHints);
|
||||
}
|
||||
}
|
||||
Reference in New Issue
Block a user