← Back to branch summary

~ubuntu-branches/ubuntu/utopic/gridengine/utopic

« back to all changes in this revision

Viewing changes to source/3rdparty/qmon/Xmt310/Xmt/SetValue.c

  • Committer: Bazaar Package Importer
  • Author(s): Mark Hymers
  • Date: 2008-06-25 22:36:13 UTC
  • Revision ID: james.westby@ubuntu.com-20080625223613-tvd9xlhuoct9kyhm
Tags: upstream-6.2~beta2
Import upstream version 6.2~beta2

Show diffs side-by-side

added added

removed removed

Lines of Context:
source/3rdparty/qmon/Xmt310/Xmt/SetValue.c
 
1
/* 
 
2
 * Motif Tools Library, Version 3.1
 
3
 * $Id$
 
4
 * 
 
5
 * Written by David Flanagan.
 
6
 * Copyright (c) 1992-2001 by David Flanagan.
 
7
 * All Rights Reserved.  See the file COPYRIGHT for details.
 
8
 * This is open source software.  See the file LICENSE for details.
 
9
 * There is no warranty for this software.  See NO_WARRANTY for details.
 
10
 *
 
11
 * $Log$
 
12
 * Revision 1.1.1.1  2001/07/18 11:06:03  root
 
13
 * Initial checkin.
 
14
 *
 
15
 * Revision 1.2  2001/06/12 16:25:28  andre
 
16
 * *** empty log message ***
 
17
 *
 
18
 *
 
19
 */
 
20
 
 
21
#include <Xmt/Xmt.h>
 
22
#include <Xmt/SetValue.h>
 
23
 
 
24
#if NeedFunctionPrototypes
 
25
void XmtSetValue(Widget w, StringConst res, StringConst val)
 
26
#else
 
27
void XmtSetValue(w, res, val)
 
28
Widget w;
 
29
StringConst res;
 
30
StringConst val;
 
31
#endif
 
32
{
 
33
    XtVaSetValues(w, XtVaTypedArg, res, XtRString, val, strlen(val)+1, NULL);
 
34
}
 
35
 
 
36
#if NeedFunctionPrototypes
 
37
void XmtSetTypedValue(Widget w, StringConst resource,
 
38
                      StringConst type, StringConst value)
 
39
#else
 
40
void XmtSetTypedValue(w, resource, type, value)
 
41
Widget w;
 
42
StringConst resource;
 
43
StringConst type;
 
44
StringConst value;
 
45
#endif
 
46
{
 
47
    XrmValue from, to;
 
48
    Arg arg;
 
49
 
 
50
    from.addr = (XtPointer) value;
 
51
    from.size = strlen(value) + 1;
 
52
    to.addr = NULL;
 
53
    to.size = 0;
 
54
 
 
55
    if (XtConvertAndStore(w, XtRString, &from, type, &to)) {
 
56
        arg.name = (String) resource;
 
57
        switch (to.size) {
 
58
        case sizeof(char):   arg.value = *(char *)to.addr; break;
 
59
        case sizeof(short):  arg.value = *(short *)to.addr; break;
 
60
        case sizeof(int):    arg.value = *(int *)to.addr; break;
 
61
        default:             arg.value = (XtArgVal)to.addr; break;
 
62
        }
 
63
        XtSetValues(w, &arg, 1);
 
64
    }
 
65
    else {
 
66
        XmtWarningMsg("XmtSetTypedValue", "convert",
 
67
                      "Can't set resource '%s' of widget '%s':\n\t conversion failed.",
 
68
                      resource, XtName(w));
 
69
    }
 
70
}