XTkBitmapWidgetsExtras.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Christian Jacobi, December 28, 1992 5:03:58 pm PST
Christian Jacobi, December 28, 1992 5:19 pm PST
DIRECTORY
XlBitmap USING [Bitmap],
XTkBitmapWidgets USING [BitmapWidget];
XTkBitmapWidgetsExtras: CEDAR DEFINITIONS
~ BEGIN
FollowColors: PROC [widget: XTkBitmapWidgets.BitmapWidget, bitmap: XlBitmap.Bitmap];
Establishes bitmap with bitmap-widget, such that the bitmap's color map is set (using FollowColorsOnce) whenever appropriate.
A widget can only have one bitmap following; this un-establishes any previously established bitmaps for widget.
Clients beware: a bitmap supports only one color map at each instant. If a bitmap follows multiple widgets, a random color map is used.
FollowColorsOnce: PROC [widget: XTkBitmapWidgets.BitmapWidget, bitmap: XlBitmap.Bitmap];
Sets bitmap's color map from bitmap-widget, if widget currently could display colors.
Sets widgets ICCCM mumbo jumbo if necessary.
END.