]> git.zerfleddert.de Git - micropolis/blob - src/tk/tkpixmap.c
src/sim/makefile: Micropolis build fixes for recent macOS
[micropolis] / src / tk / tkpixmap.c
1 /*
2 * tkPixmap.c --
3 *
4 * This file maintains a database of read-only pixmaps for the Tk
5 * toolkit. This allows pixmaps to be shared between widgets and
6 * also avoids interactions with the X server.
7 *
8 * Copyright 1992 by Sven Delmas
9 *
10 * This source is based upon the file tkBitmap.c from:
11 *
12 * Copyright 1990-1992 Regents of the University of California
13 * Permission to use, copy, modify, and distribute this
14 * software and its documentation for any purpose and without
15 * fee is hereby granted, provided that the above copyright
16 * notice appear in all copies. The University of California
17 * makes no representations about the suitability of this
18 * software for any purpose. It is provided "as is" without
19 * express or implied warranty.
20 * file: /user6/ouster/wish/RCS/tkBitmap.c,v 1.16
21 * 92/08/24 09:45:43 ouster Exp $ SPRITE (Berkeley);
22 */
23
24 #if defined(USE_XPM3)
25
26 #ifndef lint
27 static char *AtFSid = "$Header: tkPixmap.c[1.1] Mon Sep 28 14:12:35 1992 garfield@cs.tu-berlin.de frozen $";
28 #endif /* not lint */
29
30 #include "tkconfig.h"
31 #include "tk.h"
32
33 /*
34 * The includes below are for pre-defined bitmaps.
35 */
36
37 #include "bitmaps/gray50"
38 #include "bitmaps/gray25"
39
40 /*
41 * Include the xpm 3 defines for color pixmaps
42 */
43 //#include "xpmtk.h"
44 #include <X11/xpm.h>
45
46 /*
47 * One of the following data structures exists for each bitmap that is
48 * currently in use. Each structure is indexed with both "idTable" and
49 * "nameTable".
50 */
51
52 typedef struct {
53 Pixmap bitmap; /* X identifier for bitmap. None means this
54 * bitmap was created by Tk_DefinePixmap
55 * and it isn't currently in use. */
56 unsigned int width, height; /* Dimensions of bitmap. */
57 Display *display; /* Display for which bitmap is valid. */
58 int refCount; /* Number of active uses of bitmap. */
59 Tcl_HashEntry *hashPtr; /* Entry in nameTable for this structure
60 * (needed when deleting). */
61 } TkBitmap;
62
63 /*
64 * Hash table to map from a textual description of a bitmap to the
65 * TkBitmap record for the bitmap, and key structure used in that
66 * hash table:
67 */
68
69 static Tcl_HashTable nameTable;
70 typedef struct {
71 Tk_Uid name; /* Textual name for desired bitmap. */
72 Screen *screen; /* Screen for which bitmap will be used. */
73 } NameKey;
74
75 /*
76 * Hash table that maps from bitmap identifiers to the TkBitmap structure
77 * for the pixmap. This table is indexed by Bitmap ids, and is used by
78 * Tk_FreePixmap.
79 */
80
81 static Tcl_HashTable idTable;
82
83 /*
84 * For each call to Tk_DefinePixmap one of the following structures is
85 * created to hold information about the pixmap.
86 */
87
88 typedef struct {
89 char *source; /* Bits for bitmap. */
90 Pixmap pixmap; /* Pre-defined pixmap */
91 unsigned int width, height; /* Dimensions of bitmap. */
92 } PredefBitmap;
93
94 /*
95 * Hash table create by Tk_DefinePixmap to map from a name to a
96 * collection of in-core data about a bitmap. The table is
97 * indexed by the address of the data for the bitmap, and the entries
98 * contain pointers to PredefBitmap structures.
99 */
100
101 static Tcl_HashTable predefTable;
102
103 /*
104 * Hash table used by Tk_GetPixmapFromData to map from a collection
105 * of in-core data about a bitmap to a Tk_Uid giving an automatically-
106 * generated name for the bitmap:
107 */
108
109 static Tcl_HashTable dataTable;
110 typedef struct {
111 char *source; /* Bitmap bits. */
112 unsigned int width, height; /* Dimensions of bitmap. */
113 } DataKey;
114
115 static int initialized = 0; /* 0 means static structures haven't been
116 * initialized yet. */
117
118 /*
119 * Forward declarations for procedures defined in this file:
120 */
121
122 static void PixmapInit _ANSI_ARGS_((Tk_Window tkwin));
123 \f
124 /*
125 *----------------------------------------------------------------------
126 *
127 * Tk_GetPixmap --
128 *
129 * Given a string describing a bitmap or pixmap, locate (or create
130 * if necessary) a pixmap that fits the description.
131 *
132 * Results:
133 * The return value is the X identifer for the desired pixmap,
134 * unless string couldn't be parsed correctly. In this case,
135 * None is returned and an error message is left in
136 * interp->result. The caller should never modify the pixmap
137 * that is returned, and should eventually call Tk_FreePixmap
138 * when the pixmap is no longer needed.
139 *
140 * Side effects:
141 * The pixmap is added to an internal database with a reference count.
142 * For each call to this procedure, there should eventually be a call
143 * to Tk_FreePixmap, so that the database can be cleaned up when pixmaps
144 * aren't needed anymore.
145 *
146 *----------------------------------------------------------------------
147 */
148 Pixmap
149 Tk_GetPixmap(interp, tkwin, string)
150 Tcl_Interp *interp; /* Interpreter to use for error reporting. */
151 Tk_Window tkwin; /* Window in which pixmap will be used. */
152 Tk_Uid string; /* Description of pixmap. See manual entry
153 * for details on legal syntax. */
154 {
155 NameKey key;
156 Tcl_HashEntry *nameHashPtr, *idHashPtr, *predefHashPtr;
157 register TkBitmap *bitmapPtr;
158 PredefBitmap *predefPtr;
159 int new;
160 Pixmap bitmap;
161 Pixmap bitmap_shape;
162 unsigned int width, height;
163 int dummy2;
164 XpmAttributes xpm_attributes;
165 Display *dpy = Tk_Display(tkwin);
166
167 if (!initialized) {
168 PixmapInit(tkwin);
169 }
170
171 key.name = string;
172 key.screen = Tk_Screen(tkwin);
173 nameHashPtr = Tcl_CreateHashEntry(&nameTable, (char *) &key, &new);
174 if (!new) {
175 bitmapPtr = (TkBitmap *) Tcl_GetHashValue(nameHashPtr);
176 bitmapPtr->refCount++;
177 return bitmapPtr->bitmap;
178 }
179
180 /*
181 * No suitable bitmap exists. Create a new bitmap from the
182 * information contained in the string. If the string starts
183 * with "@" then the rest of the string is a file name containing
184 * the bitmap. Otherwise the string must refer to a bitmap
185 * defined by a call to Tk_DefinePixmap.
186 */
187
188 if (*string == '@') {
189 string = Tcl_TildeSubst(interp, string + 1);
190 if (string == NULL) {
191 goto error;
192 }
193
194 if (XReadBitmapFile(dpy, RootWindowOfScreen(Tk_Screen(tkwin)),
195 string, &width, &height, &bitmap_shape, &dummy2, &dummy2)
196 != BitmapSuccess)
197 {
198 xpm_attributes.visual = Tk_DefaultVisual(Tk_Screen(tkwin));
199 xpm_attributes.colormap = Tk_DefaultColormap(Tk_Screen(tkwin));
200 xpm_attributes.depth = Tk_DefaultDepth(Tk_Screen(tkwin));
201 xpm_attributes.valuemask = XpmVisual | XpmColormap | XpmDepth;
202
203 if (XpmReadFileToPixmap(dpy, RootWindowOfScreen(Tk_Screen(tkwin)),
204 string, &bitmap, &bitmap_shape,
205 &xpm_attributes) != BitmapSuccess) {
206 Tcl_AppendResult(interp, "error reading bitmap file \"",
207 string, "\"", (char *) NULL);
208 goto error;
209 } {
210 width = xpm_attributes.width;
211 height = xpm_attributes.height;
212 XpmFreeAttributes(&xpm_attributes);
213 }
214 } else {
215 bitmap = XCreatePixmap(dpy, RootWindowOfScreen(Tk_Screen(tkwin)),
216 width, height,
217 Tk_DefaultDepth(Tk_Screen(tkwin)));
218 XCopyPlane(dpy, bitmap_shape, bitmap,
219 Tk_DefaultGC(Tk_Screen(tkwin)),
220 0, 0, width, height, 0, 0, 1);
221 }
222 } else {
223 /* first try for a display-specific version */
224 predefHashPtr = Tcl_FindHashEntry(&predefTable, (char *) &key);
225 if (predefHashPtr == NULL) {
226 /* try for a non-display specific version */
227 key.screen = (Screen*) NULL;
228 predefHashPtr = Tcl_FindHashEntry(&predefTable, (char *) &key);
229 if (predefHashPtr == NULL) {
230 /* give up */
231 Tcl_AppendResult(interp, "pixmap \"", string,
232 "\" not defined", (char *) NULL);
233 goto error;
234 }
235 }
236 predefPtr = (PredefBitmap *) Tcl_GetHashValue(predefHashPtr);
237 width = predefPtr->width;
238 height = predefPtr->height;
239 if (predefPtr->source != NULL) {
240 bitmap_shape =
241 XCreateBitmapFromData(dpy, Tk_DefaultRootWindow(dpy),
242 predefPtr->source, width, height);
243 bitmap = XCreatePixmap(dpy, RootWindowOfScreen(Tk_Screen(tkwin)),
244 width, height,
245 Tk_DefaultDepth(Tk_Screen(tkwin)));
246 XCopyPlane(dpy, bitmap_shape, bitmap,
247 Tk_DefaultGC(Tk_Screen(tkwin)),
248 0, 0, width, height, 0, 0, 1);
249 } else {
250 if (predefPtr->pixmap != None) {
251 bitmap = predefPtr->pixmap;
252 } else {
253 bitmap =
254 XCreatePixmap(dpy, RootWindowOfScreen(Tk_Screen(tkwin)),
255 width, height,
256 Tk_DefaultDepth(Tk_Screen(tkwin)));
257 }
258 }
259 }
260
261 /*
262 * Add information about this bitmap to our database.
263 */
264
265 bitmapPtr = (TkBitmap *) ckalloc(sizeof(TkBitmap));
266 bitmapPtr->bitmap = bitmap;
267 bitmapPtr->width = width;
268 bitmapPtr->height = height;
269 bitmapPtr->display = dpy;
270 bitmapPtr->refCount = 1;
271 bitmapPtr->hashPtr = nameHashPtr;
272 idHashPtr = Tcl_CreateHashEntry(&idTable, (char *) bitmapPtr->bitmap,
273 &new);
274 if (!new) {
275 /* deh patched to support multiple displays */
276 /* panic("pixmap already registered in Tk_GetPixmap"); */
277 bitmapPtr->refCount = 1000;
278 }
279 Tcl_SetHashValue(nameHashPtr, bitmapPtr);
280 Tcl_SetHashValue(idHashPtr, bitmapPtr);
281 return bitmapPtr->bitmap;
282
283 error:
284 Tcl_DeleteHashEntry(nameHashPtr);
285 return None;
286 }
287 \f
288 /*
289 *----------------------------------------------------------------------
290 *
291 * Tk_DefinePixmap --
292 *
293 * This procedure associates a textual name with a binary pixmap
294 * description, so that the name may be used to refer to the
295 * pixmap in future calls to Tk_GetPixmap. The pixmap can
296 * be pre-created by the user, or can be created later
297 * by Tk_GetPixmap(). Since pixmaps are display-specific,
298 * a user supplied pixmap will be associated with tkwin's display.
299 * If pixmap is given as None, then a new pixmap will be created
300 * by Tk_GetPixmap for each unique display.
301 *
302 * Results:
303 * A standard Tcl result. If an error occurs then TCL_ERROR is
304 * returned and a message is left in interp->result.
305 *
306 * Side effects:
307 * "Name" is entered into the pixmap table and may be used from
308 * here on to refer to the given pixmap.
309 *
310 *----------------------------------------------------------------------
311 */
312
313 int
314 Tk_DefinePixmap(interp, name, tkwin, pixmap, source, width, height)
315 Tcl_Interp *interp; /* Interpreter to use for error reporting. */
316 Tk_Uid name; /* Name to use for bitmap. Must not already
317 * be defined as a bitmap. */
318 Tk_Window tkwin; /* any window on screen where pixmap lives */
319 Pixmap pixmap; /* pixmap to associate with name,
320 * or None to create a new pixmap */
321 char *source; /* Address of bits for bitmap. */
322 unsigned int width; /* Width of bitmap. */
323 unsigned int height; /* Height of bitmap. */
324 {
325 int new;
326 Tcl_HashEntry *predefHashPtr;
327 PredefBitmap *predefPtr;
328 NameKey key;
329
330 if (!initialized) {
331 PixmapInit(tkwin);
332 }
333
334 key.name = name;
335 key.screen = (pixmap != None) ? Tk_Screen(tkwin) : (Screen *)NULL;
336 predefHashPtr = Tcl_CreateHashEntry(&predefTable, (char *) &key, &new);
337 if (!new) {
338 Tcl_AppendResult(interp, "bitmap \"", name,
339 "\" is already defined", (char *) NULL);
340 return TCL_ERROR;
341 }
342 predefPtr = (PredefBitmap *) malloc(sizeof(PredefBitmap));
343 predefPtr->source = source;
344 predefPtr->pixmap = pixmap;
345 predefPtr->width = width;
346 predefPtr->height = height;
347 Tcl_SetHashValue(predefHashPtr, predefPtr);
348 return TCL_OK;
349 }
350 \f
351 /*
352 *--------------------------------------------------------------
353 *
354 * Tk_NameOfPixmap --
355 *
356 * Given a pixmap, return a textual string identifying the
357 * pixmap.
358 *
359 * Results:
360 * The return value is the string name associated with pixmap.
361 *
362 * Side effects:
363 * None.
364 *
365 *--------------------------------------------------------------
366 */
367
368 Tk_Uid
369 Tk_NameOfPixmap(bitmap)
370 Pixmap bitmap; /* Bitmap whose name is wanted. */
371 {
372 Tcl_HashEntry *idHashPtr;
373 TkBitmap *bitmapPtr;
374
375 if (!initialized) {
376 unknown:
377 panic("Tk_NameOfPixmap received unknown pixmap argument");
378 }
379
380 idHashPtr = Tcl_FindHashEntry(&idTable, (char *) bitmap);
381 if (idHashPtr == NULL) {
382 goto unknown;
383 }
384 bitmapPtr = (TkBitmap *) Tcl_GetHashValue(idHashPtr);
385 if (bitmapPtr->hashPtr == NULL) {
386 /* the bitmap has been un-defined */
387 return Tk_GetUid("UndefinedBitmap");
388 }
389 return ((NameKey *) bitmapPtr->hashPtr->key.words)->name;
390 }
391 \f
392 /*
393 *--------------------------------------------------------------
394 *
395 * Tk_SizeOfPixmap --
396 *
397 * Given a pixmap managed by this module, returns the width
398 * and height of the pixmap..
399 *
400 * Results:
401 * The words at *widthPtr and *heightPtr are filled in with
402 * the dimenstions of pixmap.
403 *
404 * Side effects:
405 * If pixmap isn't managed by this module then the procedure
406 * panics..
407 *
408 *--------------------------------------------------------------
409 */
410
411 void
412 Tk_SizeOfPixmap(bitmap, widthPtr, heightPtr)
413 Pixmap bitmap; /* Bitmap whose size is wanted. */
414 unsigned int *widthPtr; /* Store bitmap width here. */
415 unsigned int *heightPtr; /* Store bitmap height here. */
416 {
417 Tcl_HashEntry *idHashPtr;
418 TkBitmap *bitmapPtr;
419
420 if (!initialized) {
421 unknownBitmap:
422 panic("Tk_SizeOfPixmap received unknown pixmap argument");
423 }
424
425 idHashPtr = Tcl_FindHashEntry(&idTable, (char *) bitmap);
426 if (idHashPtr == NULL) {
427 goto unknownBitmap;
428 }
429 bitmapPtr = (TkBitmap *) Tcl_GetHashValue(idHashPtr);
430 *widthPtr = bitmapPtr->width;
431 *heightPtr = bitmapPtr->height;
432 }
433 \f
434 /*
435 *----------------------------------------------------------------------
436 *
437 * Tk_FreePixmap --
438 *
439 * This procedure is called to release a pixmap allocated by
440 * Tk_GetPixmap.
441 *
442 * Results:
443 * None.
444 *
445 * Side effects:
446 * The reference count associated with bitmap is decremented, and
447 * it is officially deallocated if no-one is using it anymore.
448 *
449 *----------------------------------------------------------------------
450 */
451
452 void
453 Tk_FreePixmap(bitmap)
454 Pixmap bitmap; /* Bitmap to be released. */
455 {
456 Tcl_HashEntry *idHashPtr;
457 register TkBitmap *bitmapPtr;
458
459 if (!initialized) {
460 panic("Tk_FreePixmap called before Tk_GetPixmap");
461 }
462
463 idHashPtr = Tcl_FindHashEntry(&idTable, (char *) bitmap);
464 if (idHashPtr == NULL) {
465 panic("Tk_FreePixmap received unknown pixmap argument");
466 }
467 bitmapPtr = (TkBitmap *) Tcl_GetHashValue(idHashPtr);
468 bitmapPtr->refCount--;
469 if (bitmapPtr->refCount == 0) {
470 XFreePixmap(bitmapPtr->display, bitmapPtr->bitmap);
471 Tcl_DeleteHashEntry(idHashPtr);
472 if (bitmapPtr->hashPtr != NULL) {
473 /* If hashPtr is NULL, the bitmap has been undefined,
474 * and already removed from the name table */
475 Tcl_DeleteHashEntry(bitmapPtr->hashPtr);
476 }
477 ckfree((char *) bitmapPtr);
478 }
479 }
480 \f
481 /*
482 *----------------------------------------------------------------------
483 *
484 * Tk_GetPixmapFromData --
485 *
486 * Given a description of the bits for a pixmap, make a pixmap that
487 * has the given properties.
488 *
489 * Results:
490 * The return value is the X identifer for the desired pixmap,
491 * unless it couldn't be created properly. In this case, None is
492 * returned and an error message is left in interp->result. The
493 * caller should never modify the bitmap that is returned, and
494 * should eventually call Tk_FreePixmap when the pixmap is no
495 * longer needed.
496 *
497 * Side effects:
498 * The pixmap is added to an internal database with a reference count.
499 * For each call to this procedure, there should eventually be a call
500 * to Tk_FreePixmap, so that the database can be cleaned up when pixmaps
501 * aren't needed anymore.
502 *
503 *----------------------------------------------------------------------
504 */
505
506 /* ARGSUSED */
507 Pixmap
508 Tk_GetPixmapFromData(interp, tkwin, source, width, height)
509 Tcl_Interp *interp; /* Interpreter to use for error reporting. */
510 Tk_Window tkwin; /* Window in which bitmap will be used. */
511 char *source; /* Bitmap data for bitmap shape. */
512 unsigned int width, height; /* Dimensions of bitmap. */
513 {
514 DataKey key;
515 Tcl_HashEntry *dataHashPtr;
516 Tk_Uid name = NULL; /* Initialization need only to prevent
517 * compiler warning. */
518 int new;
519 static autoNumber = 0;
520 char string[20];
521
522 if (!initialized) {
523 PixmapInit(tkwin);
524 }
525
526 key.source = source;
527 key.width = width;
528 key.height = height;
529 dataHashPtr = Tcl_CreateHashEntry(&dataTable, (char *) &key, &new);
530 if (!new) {
531 name = (Tk_Uid) Tcl_GetHashValue(dataHashPtr);
532 } else {
533 autoNumber++;
534 sprintf(string, "_tk%d", autoNumber);
535 name = Tk_GetUid(string);
536 Tcl_SetHashValue(dataHashPtr, name);
537 if (Tk_DefinePixmap(interp, name, tkwin, None, source, width,
538 height) != TCL_OK) {
539 Tcl_DeleteHashEntry(dataHashPtr);
540 return TCL_ERROR;
541 }
542 }
543 return Tk_GetPixmap(interp, tkwin, name);
544 }
545 \f
546 /*
547 *----------------------------------------------------------------------
548 *
549 * PixmapInit --
550 *
551 * Initialize the structures used for pixmap management.
552 *
553 * Results:
554 * None.
555 *
556 * Side effects:
557 * Read the code.
558 *
559 *----------------------------------------------------------------------
560 */
561
562 static void
563 PixmapInit(tkwin)
564 Tk_Window tkwin; /* any window on screen where pixmap lives */
565 {
566 Tcl_Interp *dummy;
567
568 dummy = Tcl_CreateInterp();
569 initialized = 1;
570 Tcl_InitHashTable(&nameTable, sizeof(NameKey)/sizeof(int));
571 Tcl_InitHashTable(&dataTable, sizeof(DataKey)/sizeof(int));
572 Tcl_InitHashTable(&predefTable, sizeof(NameKey)/sizeof(int));
573 Tcl_InitHashTable(&idTable, TCL_ONE_WORD_KEYS);
574
575 Tk_DefinePixmap(dummy, Tk_GetUid("gray50"), tkwin, None,
576 (char *)gray50_bits, gray50_width, gray50_height);
577 Tk_DefinePixmap(dummy, Tk_GetUid("gray25"), tkwin, None,
578 (char *)gray25_bits, gray25_width, gray25_height);
579 Tcl_DeleteInterp(dummy);
580 }
581 \f
582 /*
583 *----------------------------------------------------------------------
584 *
585 * Tk_UndefinePixmap --
586 *
587 * This procedure removes any association "name" with
588 * a bitmap or pixmap. This can be used to undefine
589 * names defined by either Tk_DefinePixmap or Tk_DefinePixmap.
590 * If tkwin is NULL, only display-independent pixmaps will
591 * be removed, otherwise both display-independent and
592 * the pixmap associated with tkwin will be undefined.
593 *
594 * Results:
595 * A standard Tcl result. If an error occurs then TCL_ERROR is
596 * returned and a message is left in interp->result.
597 *
598 * Side effects:
599 * "Name" is removed from the predef table.
600 *
601 *----------------------------------------------------------------------
602 */
603
604 int
605 Tk_UndefinePixmap(interp, name, tkwin)
606 Tcl_Interp *interp; /* Interpreter to use for error reporting. */
607 Tk_Uid name; /* Name of bitmap/pixmap to undefine */
608 Tk_Window tkwin; /* any window on screen where pixmap lives */
609 {
610 NameKey key;
611 Tcl_HashEntry *predefHashPtr, *nameHashPtr;
612 TkBitmap *bitmapPtr;
613 int cnt = 0;
614
615 if (!initialized) {
616 PixmapInit(tkwin);
617 }
618
619 key.name = name;
620 key.screen = (Screen *) NULL;
621 predefHashPtr = Tcl_FindHashEntry(&predefTable, (char*)&key);
622 if (predefHashPtr != NULL) {
623 ++cnt;
624 Tcl_DeleteHashEntry(predefHashPtr);
625 }
626
627 key.screen = Tk_Screen(tkwin);
628 predefHashPtr = Tcl_FindHashEntry(&predefTable, (char*)&key);
629 if (predefHashPtr != NULL) {
630 ++cnt;
631 Tcl_DeleteHashEntry(predefHashPtr);
632 }
633 if (cnt == 0) {
634 Tcl_AppendResult(interp, "pixmap \"", name,
635 "\" doesn't exist", (char *) NULL);
636 return TCL_ERROR;
637 }
638
639 /*
640 * Remove it from the name table if it is there (it might not
641 * have been created yet, it which case we wont find it). We
642 * delete it from the name table and mark the hashPtr as NULL
643 * so that we know it has been deleted. The pixmap still exists,
644 * and well later be freed and removed from idTable by Tk_FreeBitmap().
645 */
646 nameHashPtr = Tcl_FindHashEntry(&nameTable, (char *) &key);
647 if (nameHashPtr != NULL) {
648 bitmapPtr = (TkBitmap *) Tcl_GetHashValue(nameHashPtr);
649 /* assert(nameHashPtr == bitmapPtr->hashPtr); */
650 /* assert(bitmapPtr->refCount > 0); */
651 bitmapPtr->hashPtr = (Tcl_HashEntry*) NULL;
652 Tcl_DeleteHashEntry(nameHashPtr);
653 }
654 return TCL_OK;
655 }
656
657 #endif
Impressum, Datenschutz