equal
deleted
inserted
replaced
9845 hasShapeExtension ifFalse:[^ self]. |
9845 hasShapeExtension ifFalse:[^ self]. |
9846 |
9846 |
9847 %{ /* NOCONTEXT */ |
9847 %{ /* NOCONTEXT */ |
9848 |
9848 |
9849 #ifdef SHAPE |
9849 #ifdef SHAPE |
|
9850 Pixmap shapeBitmap; |
|
9851 |
|
9852 if (__isExternalAddress(aPixmapId)) |
|
9853 shapeBitmap = _PixmapVal(aPixmapId); |
|
9854 else |
|
9855 shapeBitmap = (Pixmap)0; |
|
9856 |
9850 if (ISCONNECTED |
9857 if (ISCONNECTED |
9851 && __isExternalAddress(aWindowId) |
9858 && __isExternalAddress(aWindowId)) { |
9852 && __isExternalAddress(aPixmapId)) { |
|
9853 ENTER_XLIB(); |
9859 ENTER_XLIB(); |
9854 XShapeCombineMask(myDpy, _WindowVal(aWindowId), ShapeBounding, |
9860 XShapeCombineMask(myDpy, _WindowVal(aWindowId), ShapeBounding, |
9855 0, 0, _PixmapVal(aPixmapId), ShapeSet); |
9861 0, 0, shapeBitmap, ShapeSet); |
9856 LEAVE_XLIB(); |
9862 LEAVE_XLIB(); |
9857 RETURN ( self ); |
9863 RETURN ( self ); |
9858 } |
9864 } |
9859 #endif |
9865 #endif |
9860 %}. |
9866 %}. |
10106 hasShapeExtension ifFalse:[^ self]. |
10112 hasShapeExtension ifFalse:[^ self]. |
10107 |
10113 |
10108 %{ /* NOCONTEXT */ |
10114 %{ /* NOCONTEXT */ |
10109 |
10115 |
10110 #ifdef SHAPE |
10116 #ifdef SHAPE |
|
10117 Pixmap shapeBitmap; |
|
10118 |
|
10119 if (__isExternalAddress(aPixmapId)) |
|
10120 shapeBitmap = _PixmapVal(aPixmapId); |
|
10121 else |
|
10122 shapeBitmap = (Pixmap)0; |
|
10123 |
10111 if (ISCONNECTED |
10124 if (ISCONNECTED |
10112 && __isExternalAddress(aWindowId) |
10125 && __isExternalAddress(aWindowId)) { |
10113 && __isExternalAddress(aPixmapId)) { |
|
10114 ENTER_XLIB(); |
10126 ENTER_XLIB(); |
10115 XShapeCombineMask(myDpy, _WindowVal(aWindowId), ShapeClip, |
10127 XShapeCombineMask(myDpy, _WindowVal(aWindowId), ShapeClip, |
10116 0, 0, |
10128 0, 0, |
10117 _PixmapVal(aPixmapId), ShapeSet); |
10129 shapeBitmap, ShapeSet); |
10118 LEAVE_XLIB(); |
10130 LEAVE_XLIB(); |
10119 RETURN ( self ); |
10131 RETURN ( self ); |
10120 } |
10132 } |
10121 #endif |
10133 #endif |
10122 %}. |
10134 %}. |
10178 ! ! |
10190 ! ! |
10179 |
10191 |
10180 !XWorkstation class methodsFor:'documentation'! |
10192 !XWorkstation class methodsFor:'documentation'! |
10181 |
10193 |
10182 version |
10194 version |
10183 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.317 1999-05-31 15:32:31 cg Exp $' |
10195 ^ '$Header: /cvs/stx/stx/libview/XWorkstation.st,v 1.318 1999-06-05 22:21:46 cg Exp $' |
10184 ! ! |
10196 ! ! |
10185 XWorkstation initialize! |
10197 XWorkstation initialize! |