Peter Howkins
291 lines
7.5 KiB
C
291 lines
7.5 KiB
C
/*
|
|
* CDE - Common Desktop Environment
|
|
*
|
|
* Copyright (c) 1993-2012, The Open Group. All rights reserved.
|
|
*
|
|
* These libraries and programs are free software; you can
|
|
* redistribute them and/or modify them under the terms of the GNU
|
|
* Lesser General Public License as published by the Free Software
|
|
* Foundation; either version 2 of the License, or (at your option)
|
|
* any later version.
|
|
*
|
|
* These libraries and programs are distributed in the hope that
|
|
* they will be useful, but WITHOUT ANY WARRANTY; without even the
|
|
* implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
|
* PURPOSE. See the GNU Lesser General Public License for more
|
|
* details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with these librararies and programs; if not, write
|
|
* to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
|
|
* Floor, Boston, MA 02110-1301 USA
|
|
*/
|
|
/* $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);
|
|
}
|
|
}
|