Mercurial > projects > dwt-linux
annotate dwt/graphics/Cursor.d @ 238:380bad9f6852
reverted char[] to String
| author | Frank Benoit <benoit@tionex.de> |
|---|---|
| date | Mon, 05 May 2008 00:42:55 +0200 |
| parents | b6bee07cfc0b |
| children | ce446666f5a2 |
| rev | line source |
|---|---|
| 72 | 1 /******************************************************************************* |
| 18 | 2 * Copyright (c) 2000, 2007 IBM Corporation and others. |
| 3 * All rights reserved. This program and the accompanying materials | |
| 4 * are made available under the terms of the Eclipse Public License v1.0 | |
| 5 * which accompanies this distribution, and is available at | |
| 6 * http://www.eclipse.org/legal/epl-v10.html | |
| 7 * | |
| 8 * Contributors: | |
| 9 * IBM Corporation - initial API and implementation | |
| 72 | 10 * Port to the D programming language: |
| 11 * Frank Benoit <benoit@tionex.de> | |
| 18 | 12 *******************************************************************************/ |
| 13 module dwt.graphics.Cursor; | |
| 14 | |
| 238 | 15 import dwt.dwthelper.utils; |
| 16 | |
| 18 | 17 |
| 71 | 18 import dwt.DWT; |
| 20 | 19 import dwt.graphics.Resource; |
| 20 import dwt.graphics.Device; | |
| 21 import dwt.graphics.ImageData; | |
| 22 import dwt.graphics.RGB; | |
| 23 import dwt.graphics.PaletteData; | |
| 24 | |
| 25 import dwt.internal.gtk.OS; | |
| 26 | |
| 27 import tango.text.convert.Format; | |
| 28 import tango.stdc.string; | |
| 18 | 29 |
| 30 /** | |
| 31 * Instances of this class manage operating system resources that | |
| 32 * specify the appearance of the on-screen pointer. To create a | |
| 33 * cursor you specify the device and either a simple cursor style | |
| 34 * describing one of the standard operating system provided cursors | |
| 35 * or the image and mask data for the desired appearance. | |
| 36 * <p> | |
| 37 * Application code must explicitly invoke the <code>Cursor.dispose()</code> | |
| 38 * method to release the operating system resources managed by each instance | |
| 39 * when those instances are no longer required. | |
| 40 * </p> | |
| 41 * <dl> | |
| 42 * <dt><b>Styles:</b></dt> | |
| 43 * <dd> | |
| 44 * CURSOR_ARROW, CURSOR_WAIT, CURSOR_CROSS, CURSOR_APPSTARTING, CURSOR_HELP, | |
| 45 * CURSOR_SIZEALL, CURSOR_SIZENESW, CURSOR_SIZENS, CURSOR_SIZENWSE, CURSOR_SIZEWE, | |
| 46 * CURSOR_SIZEN, CURSOR_SIZES, CURSOR_SIZEE, CURSOR_SIZEW, CURSOR_SIZENE, CURSOR_SIZESE, | |
| 47 * CURSOR_SIZESW, CURSOR_SIZENW, CURSOR_UPARROW, CURSOR_IBEAM, CURSOR_NO, CURSOR_HAND | |
| 48 * </dd> | |
| 49 * </dl> | |
| 50 * <p> | |
| 51 * Note: Only one of the above styles may be specified. | |
| 52 * </p> | |
| 53 */ | |
| 20 | 54 public final class Cursor : Resource { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
55 /** |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
56 * the handle to the OS cursor resource |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
57 * (Warning: This field is platform dependent) |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
58 * <p> |
| 71 | 59 * <b>IMPORTANT:</b> This field is <em>not</em> part of the DWT |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
60 * public API. It is marked public only so that it can be shared |
| 71 | 61 * within the packages provided by DWT. It is not available on all |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
62 * platforms and should never be accessed from application code. |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
63 * </p> |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
64 */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
65 public GdkCursor* handle; |
| 18 | 66 |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
67 static const byte[] APPSTARTING_SRC = [ cast(byte) |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
68 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x04, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
69 0x0c, 0x00, 0x00, 0x00, 0x1c, 0x00, 0x00, 0x00, 0x3c, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
70 0x7c, 0x00, 0x00, 0x00, cast(byte)0xfc, 0x00, 0x00, 0x00, cast(byte)0xfc, 0x01, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
71 cast(byte)0xfc, 0x3b, 0x00, 0x00, 0x7c, 0x38, 0x00, 0x00, 0x6c, 0x54, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
72 cast(byte)0xc4, cast(byte)0xdc, 0x00, 0x00, cast(byte)0xc0, 0x44, 0x00, 0x00, cast(byte)0x80, 0x39, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
73 cast(byte)0x80, 0x39, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
74 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
75 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
76 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
77 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
78 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00]; |
| 18 | 79 |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
80 static const byte[] APPSTARTING_MASK = [ cast(byte) |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
81 0x00, 0x00, 0x00, 0x00, 0x06, 0x00, 0x00, 0x00, 0x0e, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
82 0x1e, 0x00, 0x00, 0x00, 0x3e, 0x00, 0x00, 0x00, 0x7e, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
83 cast(byte)0xfe, 0x00, 0x00, 0x00, cast(byte)0xfe, 0x01, 0x00, 0x00, cast(byte)0xfe, 0x3b, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
84 cast(byte)0xfe, 0x7f, 0x00, 0x00, cast(byte)0xfe, 0x7f, 0x00, 0x00, cast(byte)0xfe, cast(byte)0xfe, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
85 cast(byte)0xee, cast(byte)0xff, 0x01, 0x00, cast(byte)0xe4, cast(byte)0xff, 0x00, 0x00, cast(byte)0xc0, 0x7f, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
86 cast(byte)0xc0, 0x7f, 0x00, 0x00, cast(byte)0x80, 0x39, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
87 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
88 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
89 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
90 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
91 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00, 0x00]; |
| 18 | 92 |
| 20 | 93 this () { |
| 18 | 94 } |
| 95 | |
| 96 /** | |
| 97 * Constructs a new cursor given a device and a style | |
| 98 * constant describing the desired cursor appearance. | |
| 99 * <p> | |
| 100 * You must dispose the cursor when it is no longer required. | |
| 101 * </p> | |
| 102 * | |
| 103 * @param device the device on which to allocate the cursor | |
| 104 * @param style the style of cursor to allocate | |
| 105 * | |
| 106 * @exception IllegalArgumentException <ul> | |
| 107 * <li>ERROR_NULL_ARGUMENT - if device is null and there is no current device</li> | |
| 108 * <li>ERROR_INVALID_ARGUMENT - when an unknown style is specified</li> | |
| 109 * </ul> | |
| 71 | 110 * @exception DWTError <ul> |
| 18 | 111 * <li>ERROR_NO_HANDLES - if a handle could not be obtained for cursor creation</li> |
| 112 * </ul> | |
| 113 * | |
| 71 | 114 * @see DWT#CURSOR_ARROW |
| 115 * @see DWT#CURSOR_WAIT | |
| 116 * @see DWT#CURSOR_CROSS | |
| 117 * @see DWT#CURSOR_APPSTARTING | |
| 118 * @see DWT#CURSOR_HELP | |
| 119 * @see DWT#CURSOR_SIZEALL | |
| 120 * @see DWT#CURSOR_SIZENESW | |
| 121 * @see DWT#CURSOR_SIZENS | |
| 122 * @see DWT#CURSOR_SIZENWSE | |
| 123 * @see DWT#CURSOR_SIZEWE | |
| 124 * @see DWT#CURSOR_SIZEN | |
| 125 * @see DWT#CURSOR_SIZES | |
| 126 * @see DWT#CURSOR_SIZEE | |
| 127 * @see DWT#CURSOR_SIZEW | |
| 128 * @see DWT#CURSOR_SIZENE | |
| 129 * @see DWT#CURSOR_SIZESE | |
| 130 * @see DWT#CURSOR_SIZESW | |
| 131 * @see DWT#CURSOR_SIZENW | |
| 132 * @see DWT#CURSOR_UPARROW | |
| 133 * @see DWT#CURSOR_IBEAM | |
| 134 * @see DWT#CURSOR_NO | |
| 135 * @see DWT#CURSOR_HAND | |
| 18 | 136 */ |
| 20 | 137 public this(Device device, int style) { |
| 194 | 138 if (device is null) device = Device.getDevice(); |
| 139 if (device is null) DWT.error(DWT.ERROR_NULL_ARGUMENT); | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
140 this.device = device; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
141 int shape = 0; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
142 switch (style) { |
| 71 | 143 case DWT.CURSOR_APPSTARTING: break; |
| 144 case DWT.CURSOR_ARROW: shape = OS.GDK_LEFT_PTR; break; | |
| 145 case DWT.CURSOR_WAIT: shape = OS.GDK_WATCH; break; | |
| 146 case DWT.CURSOR_CROSS: shape = OS.GDK_CROSS; break; | |
| 147 case DWT.CURSOR_HAND: shape = OS.GDK_HAND2; break; | |
| 148 case DWT.CURSOR_HELP: shape = OS.GDK_QUESTION_ARROW; break; | |
| 149 case DWT.CURSOR_SIZEALL: shape = OS.GDK_FLEUR; break; | |
| 150 case DWT.CURSOR_SIZENESW: shape = OS.GDK_SIZING; break; | |
| 151 case DWT.CURSOR_SIZENS: shape = OS.GDK_DOUBLE_ARROW; break; | |
| 152 case DWT.CURSOR_SIZENWSE: shape = OS.GDK_SIZING; break; | |
| 153 case DWT.CURSOR_SIZEWE: shape = OS.GDK_SB_H_DOUBLE_ARROW; break; | |
| 154 case DWT.CURSOR_SIZEN: shape = OS.GDK_TOP_SIDE; break; | |
| 155 case DWT.CURSOR_SIZES: shape = OS.GDK_BOTTOM_SIDE; break; | |
| 156 case DWT.CURSOR_SIZEE: shape = OS.GDK_RIGHT_SIDE; break; | |
| 157 case DWT.CURSOR_SIZEW: shape = OS.GDK_LEFT_SIDE; break; | |
| 158 case DWT.CURSOR_SIZENE: shape = OS.GDK_TOP_RIGHT_CORNER; break; | |
| 159 case DWT.CURSOR_SIZESE: shape = OS.GDK_BOTTOM_RIGHT_CORNER; break; | |
| 160 case DWT.CURSOR_SIZESW: shape = OS.GDK_BOTTOM_LEFT_CORNER; break; | |
| 161 case DWT.CURSOR_SIZENW: shape = OS.GDK_TOP_LEFT_CORNER; break; | |
| 162 case DWT.CURSOR_UPARROW: shape = OS.GDK_SB_UP_ARROW; break; | |
| 163 case DWT.CURSOR_IBEAM: shape = OS.GDK_XTERM; break; | |
| 164 case DWT.CURSOR_NO: shape = OS.GDK_X_CURSOR; break; | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
165 default: |
| 71 | 166 DWT.error(DWT.ERROR_INVALID_ARGUMENT); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
167 } |
| 194 | 168 if (shape is 0 && style is DWT.CURSOR_APPSTARTING) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
169 handle = createCursor(APPSTARTING_SRC, APPSTARTING_MASK, 32, 32, 2, 2, true); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
170 } else { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
171 handle = OS.gdk_cursor_new(shape); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
172 } |
| 71 | 173 if (handle is null) DWT.error(DWT.ERROR_NO_HANDLES); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
174 if (device.tracking) device.new_Object(this); |
| 18 | 175 } |
| 176 | |
| 177 /** | |
| 178 * Constructs a new cursor given a device, image and mask | |
| 179 * data describing the desired cursor appearance, and the x | |
| 180 * and y coordinates of the <em>hotspot</em> (that is, the point | |
| 181 * within the area covered by the cursor which is considered | |
| 182 * to be where the on-screen pointer is "pointing"). | |
| 183 * <p> | |
| 184 * The mask data is allowed to be null, but in this case the source | |
| 185 * must be an ImageData representing an icon that specifies both | |
| 186 * color data and mask data. | |
| 187 * <p> | |
| 188 * You must dispose the cursor when it is no longer required. | |
| 189 * </p> | |
| 190 * | |
| 191 * @param device the device on which to allocate the cursor | |
| 192 * @param source the color data for the cursor | |
| 193 * @param mask the mask data for the cursor (or null) | |
| 194 * @param hotspotX the x coordinate of the cursor's hotspot | |
| 195 * @param hotspotY the y coordinate of the cursor's hotspot | |
| 196 * | |
| 197 * @exception IllegalArgumentException <ul> | |
| 198 * <li>ERROR_NULL_ARGUMENT - if device is null and there is no current device</li> | |
| 199 * <li>ERROR_NULL_ARGUMENT - if the source is null</li> | |
| 200 * <li>ERROR_NULL_ARGUMENT - if the mask is null and the source does not have a mask</li> | |
| 201 * <li>ERROR_INVALID_ARGUMENT - if the source and the mask are not the same | |
| 202 * size, or if the hotspot is outside the bounds of the image</li> | |
| 203 * </ul> | |
| 71 | 204 * @exception DWTError <ul> |
| 18 | 205 * <li>ERROR_NO_HANDLES - if a handle could not be obtained for cursor creation</li> |
| 206 * </ul> | |
| 207 */ | |
| 20 | 208 public this(Device device, ImageData source, ImageData mask, int hotspotX, int hotspotY) { |
| 194 | 209 if (device is null) device = Device.getDevice(); |
| 210 if (device is null) DWT.error(DWT.ERROR_NULL_ARGUMENT); | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
211 this.device = device; |
| 194 | 212 if (source is null) DWT.error(DWT.ERROR_NULL_ARGUMENT); |
| 213 if (mask is null) { | |
| 214 if (!(source.getTransparencyType() is DWT.TRANSPARENCY_MASK)) DWT.error(DWT.ERROR_NULL_ARGUMENT); | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
215 mask = source.getTransparencyMask(); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
216 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
217 /* Check the bounds. Mask must be the same size as source */ |
| 194 | 218 if (mask.width !is source.width || mask.height !is source.height) { |
| 71 | 219 DWT.error(DWT.ERROR_INVALID_ARGUMENT); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
220 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
221 /* Check the hotspots */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
222 if (hotspotX >= source.width || hotspotX < 0 || |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
223 hotspotY >= source.height || hotspotY < 0) { |
| 71 | 224 DWT.error(DWT.ERROR_INVALID_ARGUMENT); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
225 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
226 /* Convert depth to 1 */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
227 source = ImageData.convertMask(source); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
228 mask = ImageData.convertMask(mask); |
| 18 | 229 |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
230 /* Swap the bits in each byte and convert to appropriate scanline pad */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
231 byte[] sourceData = new byte[source.data.length]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
232 byte[] maskData = new byte[mask.data.length]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
233 byte[] data = source.data; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
234 for (int i = 0; i < data.length; i++) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
235 byte s = data[i]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
236 sourceData[i] = cast(byte)(((s & 0x80) >> 7) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
237 ((s & 0x40) >> 5) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
238 ((s & 0x20) >> 3) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
239 ((s & 0x10) >> 1) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
240 ((s & 0x08) << 1) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
241 ((s & 0x04) << 3) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
242 ((s & 0x02) << 5) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
243 ((s & 0x01) << 7)); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
244 sourceData[i] = cast(byte) ~sourceData[i]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
245 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
246 sourceData = ImageData.convertPad(sourceData, source.width, source.height, source.depth, source.scanlinePad, 1); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
247 data = mask.data; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
248 for (int i = 0; i < data.length; i++) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
249 byte s = data[i]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
250 maskData[i] = cast(byte)(((s & 0x80) >> 7) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
251 ((s & 0x40) >> 5) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
252 ((s & 0x20) >> 3) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
253 ((s & 0x10) >> 1) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
254 ((s & 0x08) << 1) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
255 ((s & 0x04) << 3) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
256 ((s & 0x02) << 5) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
257 ((s & 0x01) << 7)); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
258 maskData[i] = cast(byte) ~maskData[i]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
259 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
260 maskData = ImageData.convertPad(maskData, mask.width, mask.height, mask.depth, mask.scanlinePad, 1); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
261 handle = createCursor(maskData, sourceData, source.width, source.height, hotspotX, hotspotY, true); |
| 71 | 262 if (handle is null) DWT.error(DWT.ERROR_NO_HANDLES); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
263 if (device.tracking) device.new_Object(this); |
| 18 | 264 } |
| 265 | |
| 266 /** | |
| 267 * Constructs a new cursor given a device, image data describing | |
| 268 * the desired cursor appearance, and the x and y coordinates of | |
| 269 * the <em>hotspot</em> (that is, the point within the area | |
| 270 * covered by the cursor which is considered to be where the | |
| 271 * on-screen pointer is "pointing"). | |
| 272 * <p> | |
| 273 * You must dispose the cursor when it is no longer required. | |
| 274 * </p> | |
| 275 * | |
| 276 * @param device the device on which to allocate the cursor | |
| 277 * @param source the image data for the cursor | |
| 278 * @param hotspotX the x coordinate of the cursor's hotspot | |
| 279 * @param hotspotY the y coordinate of the cursor's hotspot | |
| 280 * | |
| 281 * @exception IllegalArgumentException <ul> | |
| 282 * <li>ERROR_NULL_ARGUMENT - if device is null and there is no current device</li> | |
| 283 * <li>ERROR_NULL_ARGUMENT - if the image is null</li> | |
| 284 * <li>ERROR_INVALID_ARGUMENT - if the hotspot is outside the bounds of the | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
285 * image</li> |
| 18 | 286 * </ul> |
| 71 | 287 * @exception DWTError <ul> |
| 18 | 288 * <li>ERROR_NO_HANDLES - if a handle could not be obtained for cursor creation</li> |
| 289 * </ul> | |
| 290 * | |
| 291 * @since 3.0 | |
| 292 */ | |
| 20 | 293 public this(Device device, ImageData source, int hotspotX, int hotspotY) { |
| 194 | 294 if (device is null) device = Device.getDevice(); |
| 295 if (device is null) DWT.error(DWT.ERROR_NULL_ARGUMENT); | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
296 this.device = device; |
| 194 | 297 if (source is null) DWT.error(DWT.ERROR_NULL_ARGUMENT); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
298 if (hotspotX >= source.width || hotspotX < 0 || |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
299 hotspotY >= source.height || hotspotY < 0) { |
| 71 | 300 DWT.error(DWT.ERROR_INVALID_ARGUMENT); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
301 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
302 GdkDisplay* display; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
303 if (OS.GTK_VERSION >= OS.buildVERSION(2, 4, 0) && OS.gdk_display_supports_cursor_color(display = OS.gdk_display_get_default ())) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
304 int width = source.width; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
305 int height = source.height; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
306 PaletteData palette = source.palette; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
307 auto pixbuf = OS.gdk_pixbuf_new(OS.GDK_COLORSPACE_RGB, true, 8, width, height); |
| 71 | 308 if (pixbuf is null) DWT.error(DWT.ERROR_NO_HANDLES); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
309 int stride = OS.gdk_pixbuf_get_rowstride(pixbuf); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
310 auto data = OS.gdk_pixbuf_get_pixels(pixbuf); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
311 byte[] buffer = source.data; |
| 194 | 312 if (!palette.isDirect || source.depth !is 24 || stride !is source.bytesPerLine || palette.redMask !is 0xFF000000 || palette.greenMask !is 0xFF0000 || palette.blueMask !is 0xFF00) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
313 buffer = new byte[source.width * source.height * 4]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
314 if (palette.isDirect) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
315 ImageData.blit(ImageData.BLIT_SRC, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
316 source.data, source.depth, source.bytesPerLine, source.getByteOrder(), 0, 0, source.width, source.height, palette.redMask, palette.greenMask, palette.blueMask, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
317 ImageData.ALPHA_OPAQUE, null, 0, 0, 0, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
318 buffer, 32, source.width * 4, ImageData.MSB_FIRST, 0, 0, source.width, source.height, 0xFF000000, 0xFF0000, 0xFF00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
319 false, false); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
320 } else { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
321 RGB[] rgbs = palette.getRGBs(); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
322 int length = rgbs.length; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
323 byte[] srcReds = new byte[length]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
324 byte[] srcGreens = new byte[length]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
325 byte[] srcBlues = new byte[length]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
326 for (int i = 0; i < rgbs.length; i++) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
327 RGB rgb = rgbs[i]; |
| 194 | 328 if (rgb is null) continue; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
329 srcReds[i] = cast(byte)rgb.red; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
330 srcGreens[i] = cast(byte)rgb.green; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
331 srcBlues[i] = cast(byte)rgb.blue; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
332 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
333 ImageData.blit(ImageData.BLIT_SRC, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
334 source.data, source.depth, source.bytesPerLine, source.getByteOrder(), 0, 0, source.width, source.height, srcReds, srcGreens, srcBlues, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
335 ImageData.ALPHA_OPAQUE, null, 0, 0, 0, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
336 buffer, 32, source.width * 4, ImageData.MSB_FIRST, 0, 0, source.width, source.height, 0xFF000000, 0xFF0000, 0xFF00, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
337 false, false); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
338 } |
| 194 | 339 if (source.maskData !is null || source.transparentPixel !is -1) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
340 ImageData mask = source.getTransparencyMask(); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
341 byte[] maskData = mask.data; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
342 int maskBpl = mask.bytesPerLine; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
343 int offset = 3, maskOffset = 0; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
344 for (int y = 0; y<source.height; y++) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
345 for (int x = 0; x<source.width; x++) { |
| 194 | 346 buffer[offset] = ((maskData[maskOffset + (x >> 3)]) & (1 << (7 - (x & 0x7)))) !is 0 ? cast(byte)0xff : 0; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
347 offset += 4; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
348 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
349 maskOffset += maskBpl; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
350 } |
| 194 | 351 } else if (source.alpha !is -1) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
352 byte alpha = cast(byte)source.alpha; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
353 for (int i=3; i<buffer.length; i+=4) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
354 buffer[i] = alpha; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
355 } |
| 194 | 356 } else if (source.alphaData !is null) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
357 byte[] alphaData = source.alphaData; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
358 for (int i=3; i<buffer.length; i+=4) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
359 buffer[i] = alphaData[i/4]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
360 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
361 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
362 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
363 memmove(data, buffer.ptr, stride * height); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
364 handle = OS.gdk_cursor_new_from_pixbuf(display, pixbuf, hotspotX, hotspotY); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
365 OS.g_object_unref(pixbuf); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
366 } else { |
| 18 | 367 |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
368 ImageData mask = source.getTransparencyMask(); |
| 18 | 369 |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
370 /* Ensure depth is equal to 1 */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
371 if (source.depth > 1) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
372 /* Create a destination image with no data */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
373 ImageData newSource = new ImageData( |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
374 source.width, source.height, 1, ImageData.bwPalette(), |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
375 1, null, 0, null, null, -1, -1, 0, 0, 0, 0, 0); |
| 18 | 376 |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
377 byte[] newReds = [ cast(byte)0, cast(byte)255 ], newGreens = newReds, newBlues = newReds; |
| 18 | 378 |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
379 /* Convert the source to a black and white image of depth 1 */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
380 PaletteData palette = source.palette; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
381 if (palette.isDirect) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
382 ImageData.blit(ImageData.BLIT_SRC, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
383 source.data, source.depth, source.bytesPerLine, source.getByteOrder(), 0, 0, source.width, source.height, palette.redMask, palette.greenMask, palette.blueMask, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
384 ImageData.ALPHA_OPAQUE, null, 0, 0, 0, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
385 newSource.data, newSource.depth, newSource.bytesPerLine, newSource.getByteOrder(), 0, 0, newSource.width, newSource.height, newReds, newGreens, newBlues, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
386 false, false); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
387 } else { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
388 RGB[] rgbs = palette.getRGBs(); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
389 int length = rgbs.length; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
390 byte[] srcReds = new byte[length]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
391 byte[] srcGreens = new byte[length]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
392 byte[] srcBlues = new byte[length]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
393 for (int i = 0; i < rgbs.length; i++) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
394 RGB rgb = rgbs[i]; |
| 194 | 395 if (rgb is null) continue; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
396 srcReds[i] = cast(byte)rgb.red; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
397 srcGreens[i] = cast(byte)rgb.green; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
398 srcBlues[i] = cast(byte)rgb.blue; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
399 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
400 ImageData.blit(ImageData.BLIT_SRC, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
401 source.data, source.depth, source.bytesPerLine, source.getByteOrder(), 0, 0, source.width, source.height, srcReds, srcGreens, srcBlues, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
402 ImageData.ALPHA_OPAQUE, null, 0, 0, 0, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
403 newSource.data, newSource.depth, newSource.bytesPerLine, newSource.getByteOrder(), 0, 0, newSource.width, newSource.height, newReds, newGreens, newBlues, |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
404 false, false); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
405 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
406 source = newSource; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
407 } |
| 18 | 408 |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
409 /* Swap the bits in each byte and convert to appropriate scanline pad */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
410 byte[] sourceData = new byte[source.data.length]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
411 byte[] maskData = new byte[mask.data.length]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
412 byte[] data = source.data; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
413 for (int i = 0; i < data.length; i++) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
414 byte s = data[i]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
415 sourceData[i] = cast(byte)(((s & 0x80) >> 7) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
416 ((s & 0x40) >> 5) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
417 ((s & 0x20) >> 3) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
418 ((s & 0x10) >> 1) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
419 ((s & 0x08) << 1) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
420 ((s & 0x04) << 3) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
421 ((s & 0x02) << 5) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
422 ((s & 0x01) << 7)); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
423 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
424 sourceData = ImageData.convertPad(sourceData, source.width, source.height, source.depth, source.scanlinePad, 1); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
425 data = mask.data; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
426 for (int i = 0; i < data.length; i++) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
427 byte s = data[i]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
428 maskData[i] = cast(byte)(((s & 0x80) >> 7) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
429 ((s & 0x40) >> 5) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
430 ((s & 0x20) >> 3) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
431 ((s & 0x10) >> 1) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
432 ((s & 0x08) << 1) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
433 ((s & 0x04) << 3) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
434 ((s & 0x02) << 5) | |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
435 ((s & 0x01) << 7)); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
436 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
437 maskData = ImageData.convertPad(maskData, mask.width, mask.height, mask.depth, mask.scanlinePad, 1); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
438 handle = createCursor(sourceData, maskData, source.width, source.height, hotspotX, hotspotY, false); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
439 } |
| 71 | 440 if (handle is null) DWT.error(DWT.ERROR_NO_HANDLES); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
441 if (device.tracking) device.new_Object(this); |
| 18 | 442 } |
| 443 | |
| 20 | 444 GdkCursor* createCursor(byte[] sourceData, byte[] maskData, int width, int height, int hotspotX, int hotspotY, bool reverse) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
445 auto sourcePixmap = OS.gdk_bitmap_create_from_data(null, cast(char*)sourceData.ptr, width, height); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
446 auto maskPixmap = OS.gdk_bitmap_create_from_data(null, cast(char*)maskData.ptr, width, height); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
447 GdkCursor* cursor = null; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
448 if (sourcePixmap !is null && maskPixmap !is null) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
449 GdkColor* foreground = new GdkColor(); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
450 if (!reverse) foreground.red = foreground.green = foreground.blue = 0xFFFF; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
451 GdkColor* background = new GdkColor(); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
452 if (reverse) background.red = background.green = background.blue = 0xFFFF; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
453 cursor = OS.gdk_cursor_new_from_pixmap (cast(GdkPixmap*)sourcePixmap, cast(GdkPixmap*)maskPixmap, foreground, background, hotspotX, hotspotY); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
454 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
455 if (sourcePixmap !is null) OS.g_object_unref (sourcePixmap); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
456 if (maskPixmap !is null) OS.g_object_unref (maskPixmap); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
457 return cursor; |
| 18 | 458 } |
| 459 | |
| 460 /** | |
| 461 * Disposes of the operating system resources associated with | |
| 462 * the cursor. Applications must dispose of all cursors which | |
| 463 * they allocate. | |
| 464 */ | |
|
150
f2e04420fd6c
reworked overrides and superclass aliases
Frank Benoit <benoit@tionex.de>
parents:
72
diff
changeset
|
465 public override void dispose() { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
466 if (handle is null) return; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
467 if (device.isDisposed()) return; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
468 OS.gdk_cursor_destroy(handle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
469 handle = null; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
470 if (device.tracking) device.dispose_Object(this); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
471 device = null; |
| 18 | 472 } |
| 473 | |
| 474 /** | |
| 475 * Compares the argument to the receiver, and returns true | |
| 476 * if they represent the <em>same</em> object using a class | |
| 477 * specific comparison. | |
| 478 * | |
| 479 * @param object the object to compare with this object | |
| 480 * @return <code>true</code> if the object is the same as this object and <code>false</code> otherwise | |
| 481 * | |
| 482 * @see #hashCode | |
| 483 */ | |
| 20 | 484 public override int opEquals(Object object) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
485 if (object is this) return true; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
486 if ( auto cursor = cast(Cursor)object ){ |
| 20 | 487 return device is cursor.device && handle is cursor.handle; |
| 488 } | |
| 489 return false; | |
| 18 | 490 } |
| 491 | |
| 492 /** | |
| 493 * Invokes platform specific functionality to allocate a new cursor. | |
| 494 * <p> | |
| 495 * <b>IMPORTANT:</b> This method is <em>not</em> part of the public | |
| 496 * API for <code>Cursor</code>. It is marked public only so that it | |
| 71 | 497 * can be shared within the packages provided by DWT. It is not |
| 18 | 498 * available on all platforms, and should never be called from |
| 499 * application code. | |
| 500 * </p> | |
| 501 * | |
| 502 * @param device the device on which to allocate the color | |
| 503 * @param handle the handle for the cursor | |
| 504 * | |
| 505 * @private | |
| 506 */ | |
| 20 | 507 public static Cursor gtk_new(Device device, GdkCursor* handle) { |
| 194 | 508 if (device is null) device = Device.getDevice(); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
509 Cursor cursor = new Cursor(); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
510 cursor.handle = handle; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
511 cursor.device = device; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
512 return cursor; |
| 18 | 513 } |
| 514 | |
| 515 /** | |
| 516 * Returns an integer hash code for the receiver. Any two | |
| 517 * objects that return <code>true</code> when passed to | |
| 518 * <code>equals</code> must return the same value for this | |
| 519 * method. | |
| 520 * | |
| 521 * @return the receiver's hash | |
| 522 * | |
| 523 * @see #equals | |
| 524 */ | |
| 20 | 525 public override hash_t toHash() { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
526 return cast(hash_t)handle; |
| 18 | 527 } |
| 528 | |
| 529 /** | |
| 530 * Returns <code>true</code> if the cursor has been disposed, | |
| 531 * and <code>false</code> otherwise. | |
| 532 * <p> | |
| 533 * This method gets the dispose state for the cursor. | |
| 534 * When a cursor has been disposed, it is an error to | |
| 535 * invoke any other method using the cursor. | |
| 536 * | |
| 537 * @return <code>true</code> when the cursor is disposed and <code>false</code> otherwise | |
| 538 */ | |
|
150
f2e04420fd6c
reworked overrides and superclass aliases
Frank Benoit <benoit@tionex.de>
parents:
72
diff
changeset
|
539 public override bool isDisposed() { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
540 return handle is null; |
| 18 | 541 } |
| 542 | |
| 543 /** | |
| 544 * Returns a string containing a concise, human-readable | |
| 545 * description of the receiver. | |
| 546 * | |
| 547 * @return a string representation of the receiver | |
| 548 */ | |
| 238 | 549 public override String toString () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
550 if (isDisposed()) return "Cursor {*DISPOSED*}"; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
33
diff
changeset
|
551 return Format( "Cursor {{{}}", handle ); |
| 18 | 552 } |
| 553 | |
| 554 } |