1 /*------------------------------------------------------------\
2 |                                                             |
3 | This file is part of the Alliance CAD System Copyright      |
4 | (C) Laboratoire LIP6 - D�partement ASIM Universite P&M Curie|
5 |                                                             |
6 | Home page      : http://www-asim.lip6.fr/alliance/          |
7 | E-mail         : mailto:alliance-users@asim.lip6.fr       |
8 |                                                             |
9 | This progam is  free software; you can redistribute it      |
10 | and/or modify it under the  terms of the GNU General Public |
11 | License as  published by the Free Software Foundation;      |
12 | either version 2 of the License, or (at your option) any    |
13 | later version.                                              |
14 |                                                             |
15 | Alliance VLSI  CAD System  is distributed  in the hope that |
16 | it  will be useful, but WITHOUT  ANY WARRANTY;              |
17 | without even the  implied warranty of MERCHANTABILITY or    |
18 | FITNESS FOR A PARTICULAR PURPOSE. See the GNU General       |
19 | Public License for more details.                            |
20 |                                                             |
21 | You should have received a copy  of the GNU General Public  |
22 | License along with the GNU C Library; see the file COPYING. |
23 | If not, write to the Free Software Foundation, Inc.,        |
24 | 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.                     |
25 |                                                             |
26 \------------------------------------------------------------*/
27 
28 /*------------------------------------------------------------\
29 |                                                             |
30 | Tool    :                   GRAAL                           |
31 |                                                             |
32 | File    :                   icon.c                          |
33 |                                                             |
34 | Author  :                Jacomme Ludovic                    |
35 |                                                             |
36 | Date    :                  28.03.95                         |
37 |                                                             |
38 \------------------------------------------------------------*/
39 
40 /*------------------------------------------------------------\
41 |                                                             |
42 |                         Include Files                       |
43 |                                                             |
44 \------------------------------------------------------------*/
45 
46 # include <Xm/Xm.h>
47 # include <X11/Intrinsic.h>
48 # include "mut.h"
49 # include "rds.h"
50 # include "GTB.h"
51 # include "GTB_icon.h"
52 
53 /*------------------------------------------------------------\
54 |                                                             |
55 |                           Constants                         |
56 |                                                             |
57 \------------------------------------------------------------*/
58 /*------------------------------------------------------------\
59 |                                                             |
60 |                            Types                            |
61 |                                                             |
62 \------------------------------------------------------------*/
63 /*------------------------------------------------------------\
64 |                                                             |
65 |                          Variables                          |
66 |                                                             |
67 \------------------------------------------------------------*/
68 /*------------------------------------------------------------\
69 |                                                             |
70 |                          Functions                          |
71 |                                                             |
72 \------------------------------------------------------------*/
73 /*------------------------------------------------------------\
74 |                                                             |
75 |                        GraalSetIcon                         |
76 |                                                             |
77 \------------------------------------------------------------*/
78 
GraalSetIcon(ShellWidget,IconBits,IconWidth,IconHeight)79 void GraalSetIcon( ShellWidget, IconBits, IconWidth, IconHeight )
80 
81      Widget  ShellWidget;
82      char   *IconBits;
83      int     IconWidth;
84      int     IconHeight;
85 {
86   Pixmap IconPixmap;
87 
88   rdsbegin();
89 
90   IconPixmap = XCreatePixmapFromBitmapData( XtDisplay( ShellWidget ),
91                                             RootWindowOfScreen( XtScreen( ShellWidget ) ),
92                                             IconBits, IconWidth, IconHeight,
93                                             WhitePixelOfScreen( XtScreen( ShellWidget ) ),
94                                             BlackPixelOfScreen( XtScreen( ShellWidget ) ),
95                                             DefaultDepthOfScreen( XtScreen( ShellWidget ) ) );
96   XtVaSetValues( ShellWidget,
97                  XmNiconPixmap, IconPixmap,
98                  XmNiconic, False,
99                  NULL );
100 
101   rdsend();
102 }
103 
104