Mercurial > projects > dwt-linux
annotate dwt/widgets/Button.d @ 87:4f37e84078de
TabFolder and TabItem
| author | Frank Benoit <benoit@tionex.de> |
|---|---|
| date | Wed, 16 Jan 2008 11:21:06 +0100 |
| parents | 5899e0b43e5d |
| children | f2e04420fd6c |
| rev | line source |
|---|---|
| 72 | 1 /******************************************************************************* |
| 37 | 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> | |
| 37 | 12 *******************************************************************************/ |
| 13 module dwt.widgets.Button; | |
| 14 | |
| 15 import dwt.widgets.Control; | |
| 16 | |
| 44 | 17 import dwt.internal.gtk.OS; |
| 71 | 18 import dwt.DWT; |
| 44 | 19 import dwt.graphics.Point; |
| 20 import dwt.graphics.Image; | |
| 21 import dwt.widgets.ImageList; | |
| 22 import dwt.widgets.Composite; | |
| 23 import dwt.events.SelectionListener; | |
| 24 import dwt.widgets.TypedListener; | |
| 25 import dwt.widgets.Decorations; | |
| 37 | 26 |
| 44 | 27 import tango.stdc.stringz; |
| 60 | 28 import tango.io.Stdout; |
| 37 | 29 |
| 30 /** | |
| 31 * Instances of this class represent a selectable user interface object that | |
| 32 * issues notification when pressed and released. | |
| 33 * <dl> | |
| 34 * <dt><b>Styles:</b></dt> | |
| 35 * <dd>ARROW, CHECK, PUSH, RADIO, TOGGLE, FLAT</dd> | |
| 36 * <dd>UP, DOWN, LEFT, RIGHT, CENTER</dd> | |
| 37 * <dt><b>Events:</b></dt> | |
| 38 * <dd>Selection</dd> | |
| 39 * </dl> | |
| 40 * <p> | |
| 41 * Note: Only one of the styles ARROW, CHECK, PUSH, RADIO, and TOGGLE | |
| 42 * may be specified. | |
| 43 * </p><p> | |
| 44 * Note: Only one of the styles LEFT, RIGHT, and CENTER may be specified. | |
| 45 * </p><p> | |
| 46 * Note: Only one of the styles UP, DOWN, LEFT, and RIGHT may be specified | |
| 47 * when the ARROW style is specified. | |
| 48 * </p><p> | |
| 49 * IMPORTANT: This class is intended to be subclassed <em>only</em> | |
| 71 | 50 * within the DWT implementation. |
| 37 | 51 * </p> |
| 52 */ | |
| 44 | 53 public class Button : Control { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
54 GtkWidget* boxHandle, labelHandle, imageHandle, arrowHandle, groupHandle; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
55 bool selected; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
56 ImageList imageList; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
57 Image image; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
58 char[] text; |
| 37 | 59 |
| 60 /** | |
| 61 * Constructs a new instance of this class given its parent | |
| 62 * and a style value describing its behavior and appearance. | |
| 63 * <p> | |
| 64 * The style value is either one of the style constants defined in | |
| 71 | 65 * class <code>DWT</code> which is applicable to instances of this |
| 37 | 66 * class, or must be built by <em>bitwise OR</em>'ing together |
| 67 * (that is, using the <code>int</code> "|" operator) two or more | |
| 71 | 68 * of those <code>DWT</code> style constants. The class description |
| 37 | 69 * lists the style constants that are applicable to the class. |
| 70 * Style bits are also inherited from superclasses. | |
| 71 * </p> | |
| 72 * | |
| 73 * @param parent a composite control which will be the parent of the new instance (cannot be null) | |
| 74 * @param style the style of control to construct | |
| 75 * | |
| 76 * @exception IllegalArgumentException <ul> | |
| 77 * <li>ERROR_NULL_ARGUMENT - if the parent is null</li> | |
| 78 * </ul> | |
| 71 | 79 * @exception DWTException <ul> |
| 37 | 80 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the parent</li> |
| 81 * <li>ERROR_INVALID_SUBCLASS - if this class is not an allowed subclass</li> | |
| 82 * </ul> | |
| 83 * | |
| 71 | 84 * @see DWT#ARROW |
| 85 * @see DWT#CHECK | |
| 86 * @see DWT#PUSH | |
| 87 * @see DWT#RADIO | |
| 88 * @see DWT#TOGGLE | |
| 89 * @see DWT#FLAT | |
| 90 * @see DWT#LEFT | |
| 91 * @see DWT#RIGHT | |
| 92 * @see DWT#CENTER | |
| 37 | 93 * @see Widget#checkSubclass |
| 94 * @see Widget#getStyle | |
| 95 */ | |
| 44 | 96 public this (Composite parent, int style) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
97 super (parent, checkStyle (style)); |
| 37 | 98 } |
| 99 | |
| 100 static int checkStyle (int style) { | |
| 71 | 101 style = checkBits (style, DWT.PUSH, DWT.ARROW, DWT.CHECK, DWT.RADIO, DWT.TOGGLE, 0); |
| 102 if ((style & (DWT.PUSH | DWT.TOGGLE)) !is 0) { | |
| 103 return checkBits (style, DWT.CENTER, DWT.LEFT, DWT.RIGHT, 0, 0, 0); | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
104 } |
| 71 | 105 if ((style & (DWT.CHECK | DWT.RADIO)) !is 0) { |
| 106 return checkBits (style, DWT.LEFT, DWT.RIGHT, DWT.CENTER, 0, 0, 0); | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
107 } |
| 71 | 108 if ((style & DWT.ARROW) !is 0) { |
| 109 style |= DWT.NO_FOCUS; | |
| 110 return checkBits (style, DWT.UP, DWT.DOWN, DWT.LEFT, DWT.RIGHT, 0, 0); | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
111 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
112 return style; |
| 37 | 113 } |
| 114 | |
| 115 /** | |
| 116 * Adds the listener to the collection of listeners who will | |
| 117 * be notified when the control is selected by the user, by sending | |
| 118 * it one of the messages defined in the <code>SelectionListener</code> | |
| 119 * interface. | |
| 120 * <p> | |
| 121 * <code>widgetSelected</code> is called when the control is selected by the user. | |
| 122 * <code>widgetDefaultSelected</code> is not called. | |
| 123 * </p> | |
| 124 * | |
| 125 * @param listener the listener which should be notified | |
| 126 * | |
| 127 * @exception IllegalArgumentException <ul> | |
| 128 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li> | |
| 129 * </ul> | |
| 71 | 130 * @exception DWTException <ul> |
| 37 | 131 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li> |
| 132 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li> | |
| 133 * </ul> | |
| 134 * | |
| 135 * @see SelectionListener | |
| 136 * @see #removeSelectionListener | |
| 137 * @see SelectionEvent | |
| 138 */ | |
| 139 public void addSelectionListener (SelectionListener listener) { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
140 checkWidget (); |
| 71 | 141 if (listener is null) 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:
58
diff
changeset
|
142 TypedListener typedListener = new TypedListener (listener); |
| 71 | 143 addListener (DWT.Selection,typedListener); |
| 144 addListener (DWT.DefaultSelection,typedListener); | |
| 37 | 145 } |
| 146 | |
| 87 | 147 alias Control.computeSize computeSize; |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
148 override public Point computeSize (int wHint, int hHint, bool changed) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
149 checkWidget (); |
| 71 | 150 if (wHint !is DWT.DEFAULT && wHint < 0) wHint = 0; |
| 151 if (hHint !is DWT.DEFAULT && hHint < 0) hHint = 0; | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
152 /* |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
153 * Feature in GTK, GtkCheckButton and GtkRadioButton allocate |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
154 * only the minimum size necessary for its child. This causes the child |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
155 * alignment to fail. The fix is to set the child size to the size |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
156 * of the button. |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
157 */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
158 forceResize (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
159 int reqWidth = -1, reqHeight = -1; |
| 71 | 160 if ((style & (DWT.CHECK | DWT.RADIO)) !is 0) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
161 OS.gtk_widget_get_size_request (boxHandle, &reqWidth, &reqHeight); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
162 OS.gtk_widget_set_size_request (boxHandle, -1, -1); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
163 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
164 Point size = computeNativeSize (handle, wHint, hHint, changed); |
| 71 | 165 if ((style & (DWT.CHECK | DWT.RADIO)) !is 0) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
166 OS.gtk_widget_set_size_request (boxHandle, reqWidth, reqHeight); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
167 } |
| 71 | 168 if (wHint !is DWT.DEFAULT || hHint !is DWT.DEFAULT) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
169 if ((OS.GTK_WIDGET_FLAGS (handle) & OS.GTK_CAN_DEFAULT) !is 0) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
170 GtkBorder border; |
| 44 | 171 GtkBorder* buffer; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
172 OS.gtk_widget_style_get1 (handle, OS.default_border.ptr, cast(int*)&buffer ); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
173 if (buffer !is null) { |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
174 border = *buffer; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
175 } else { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
176 /* Use the GTK+ default value of 1 for each. */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
177 border.left = border.right = border.top = border.bottom = 1; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
178 } |
| 71 | 179 if (wHint !is DWT.DEFAULT) size.x += border.left + border.right; |
| 180 if (hHint !is DWT.DEFAULT) size.y += border.top + border.bottom; | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
181 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
182 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
183 return size; |
| 37 | 184 } |
| 185 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
186 override void createHandle (int index) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
187 state |= HANDLE; |
| 71 | 188 if ((style & DWT.PUSH) is 0) state |= THEME_BACKGROUND; |
| 189 int bits = DWT.ARROW | DWT.TOGGLE | DWT.CHECK | DWT.RADIO | DWT.PUSH; | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
190 fixedHandle = cast(GtkWidget*)OS.g_object_new (display.gtk_fixed_get_type (), null); |
| 71 | 191 if (fixedHandle is null) 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:
58
diff
changeset
|
192 OS.gtk_fixed_set_has_window (cast(GtkFixed*)fixedHandle, true); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
193 switch (style & bits) { |
| 71 | 194 case DWT.ARROW: |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
195 int arrow_type = OS.GTK_ARROW_UP; |
| 71 | 196 if ((style & DWT.UP) !is 0) arrow_type = OS.GTK_ARROW_UP; |
| 197 if ((style & DWT.DOWN) !is 0) arrow_type = OS.GTK_ARROW_DOWN; | |
| 198 if ((style & DWT.LEFT) !is 0) arrow_type = OS.GTK_ARROW_LEFT; | |
| 199 if ((style & DWT.RIGHT) !is 0) arrow_type = OS.GTK_ARROW_RIGHT; | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
200 handle = OS.gtk_button_new (); |
| 71 | 201 if (handle is null) 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:
58
diff
changeset
|
202 arrowHandle = OS.gtk_arrow_new (arrow_type, OS.GTK_SHADOW_OUT); |
| 71 | 203 if (arrowHandle is null) 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:
58
diff
changeset
|
204 break; |
| 71 | 205 case DWT.TOGGLE: |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
206 handle = OS.gtk_toggle_button_new (); |
| 71 | 207 if (handle is null) 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:
58
diff
changeset
|
208 break; |
| 71 | 209 case DWT.CHECK: |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
210 handle = OS.gtk_check_button_new (); |
| 71 | 211 if (handle is null) 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:
58
diff
changeset
|
212 break; |
| 71 | 213 case DWT.RADIO: |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
214 /* |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
215 * Feature in GTK. In GTK, radio button must always be part of |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
216 * a radio button group. In a GTK radio group, one button is always |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
217 * selected. This means that it is not possible to have a single |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
218 * radio button that is unselected. This is necessary to allow |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
219 * applications to implement their own radio behavior or use radio |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
220 * buttons outside of radio groups. The fix is to create a hidden |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
221 * radio button for each radio button we create and add them |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
222 * to the same group. This allows the visible button to be |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
223 * unselected. |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
224 */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
225 groupHandle = cast(GtkWidget*)OS.gtk_radio_button_new (null); |
| 71 | 226 if (groupHandle is null) 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:
58
diff
changeset
|
227 OS.g_object_ref (groupHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
228 OS.gtk_object_sink (cast(GtkObject*)groupHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
229 handle = OS.gtk_radio_button_new ( OS.gtk_radio_button_get_group (cast(GtkRadioButton*)groupHandle)); |
| 71 | 230 if (handle is null) 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:
58
diff
changeset
|
231 break; |
| 71 | 232 case DWT.PUSH: |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
233 default: |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
234 handle = OS.gtk_button_new (); |
| 71 | 235 if (handle is null) 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:
58
diff
changeset
|
236 OS.GTK_WIDGET_SET_FLAGS(handle, OS.GTK_CAN_DEFAULT); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
237 break; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
238 } |
| 71 | 239 if ((style & DWT.ARROW) !is 0) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
240 OS.gtk_container_add (cast(GtkContainer*)handle, arrowHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
241 } else { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
242 boxHandle = OS.gtk_hbox_new (false, 4); |
| 71 | 243 if (boxHandle is null) 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:
58
diff
changeset
|
244 labelHandle = OS.gtk_label_new_with_mnemonic (null); |
| 71 | 245 if (labelHandle is null) 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:
58
diff
changeset
|
246 imageHandle = OS.gtk_image_new (); |
| 71 | 247 if (imageHandle is null) 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:
58
diff
changeset
|
248 OS.gtk_container_add (cast(GtkContainer*)handle, boxHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
249 OS.gtk_container_add (cast(GtkContainer*)boxHandle, imageHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
250 OS.gtk_container_add (cast(GtkContainer*)boxHandle, labelHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
251 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
252 OS.gtk_container_add (cast(GtkContainer*)fixedHandle, handle); |
| 37 | 253 |
| 71 | 254 if ((style & DWT.ARROW) !is 0) return; |
| 255 _setAlignment (style & (DWT.LEFT | DWT.CENTER | DWT.RIGHT)); | |
| 37 | 256 } |
| 257 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
258 override void createWidget (int index) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
259 super.createWidget (index); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
260 text = ""; |
| 37 | 261 } |
| 262 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
263 override void deregister () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
264 super.deregister (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
265 if (boxHandle !is null) display.removeWidget (boxHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
266 if (labelHandle !is null) display.removeWidget (labelHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
267 if (imageHandle !is null) display.removeWidget (imageHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
268 if (arrowHandle !is null) display.removeWidget (arrowHandle); |
| 37 | 269 } |
| 270 | |
| 44 | 271 override GtkWidget* fontHandle () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
272 if (labelHandle !is null) return labelHandle; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
273 return super.fontHandle (); |
| 37 | 274 } |
| 275 | |
| 276 /** | |
| 277 * Returns a value which describes the position of the | |
| 278 * text or image in the receiver. The value will be one of | |
| 279 * <code>LEFT</code>, <code>RIGHT</code> or <code>CENTER</code> | |
| 280 * unless the receiver is an <code>ARROW</code> button, in | |
| 281 * which case, the alignment will indicate the direction of | |
| 282 * the arrow (one of <code>LEFT</code>, <code>RIGHT</code>, | |
| 283 * <code>UP</code> or <code>DOWN</code>). | |
| 284 * | |
| 285 * @return the alignment | |
| 286 * | |
| 71 | 287 * @exception DWTException <ul> |
| 37 | 288 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li> |
| 289 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li> | |
| 290 * </ul> | |
| 291 */ | |
| 292 public int getAlignment () { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
293 checkWidget (); |
| 71 | 294 if ((style & DWT.ARROW) !is 0) { |
| 295 if ((style & DWT.UP) !is 0) return DWT.UP; | |
| 296 if ((style & DWT.DOWN) !is 0) return DWT.DOWN; | |
| 297 if ((style & DWT.LEFT) !is 0) return DWT.LEFT; | |
| 298 if ((style & DWT.RIGHT) !is 0) return DWT.RIGHT; | |
| 299 return DWT.UP; | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
300 } |
| 71 | 301 if ((style & DWT.LEFT) !is 0) return DWT.LEFT; |
| 302 if ((style & DWT.CENTER) !is 0) return DWT.CENTER; | |
| 303 if ((style & DWT.RIGHT) !is 0) return DWT.RIGHT; | |
| 304 return DWT.LEFT; | |
| 37 | 305 } |
| 306 | |
| 307 /** | |
| 308 * Returns the receiver's image if it has one, or null | |
| 309 * if it does not. | |
| 310 * | |
| 311 * @return the receiver's image | |
| 312 * | |
| 71 | 313 * @exception DWTException <ul> |
| 37 | 314 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li> |
| 315 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li> | |
| 316 * </ul> | |
| 317 */ | |
| 318 public Image getImage () { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
319 checkWidget (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
320 return image; |
| 37 | 321 } |
| 322 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
323 override char[] getNameText () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
324 return getText (); |
| 37 | 325 } |
| 326 | |
| 327 /** | |
| 328 * Returns <code>true</code> if the receiver is selected, | |
| 329 * and false otherwise. | |
| 330 * <p> | |
| 331 * When the receiver is of type <code>CHECK</code> or <code>RADIO</code>, | |
| 332 * it is selected when it is checked. When it is of type <code>TOGGLE</code>, | |
| 333 * it is selected when it is pushed in. If the receiver is of any other type, | |
| 334 * this method returns false. | |
| 335 * | |
| 336 * @return the selection state | |
| 337 * | |
| 71 | 338 * @exception DWTException <ul> |
| 37 | 339 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li> |
| 340 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li> | |
| 341 * </ul> | |
| 342 */ | |
| 44 | 343 public bool getSelection () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
344 checkWidget (); |
| 71 | 345 if ((style & (DWT.CHECK | DWT.RADIO | DWT.TOGGLE)) is 0) return false; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
346 return cast(bool)OS.gtk_toggle_button_get_active (cast(GtkToggleButton*)handle); |
| 37 | 347 } |
| 348 | |
| 349 /** | |
| 350 * Returns the receiver's text, which will be an empty | |
| 351 * string if it has never been set or if the receiver is | |
| 352 * an <code>ARROW</code> button. | |
| 353 * | |
| 354 * @return the receiver's text | |
| 355 * | |
| 71 | 356 * @exception DWTException <ul> |
| 37 | 357 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li> |
| 358 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li> | |
| 359 * </ul> | |
| 360 */ | |
| 44 | 361 public char[] getText () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
362 checkWidget(); |
| 71 | 363 if ((style & DWT.ARROW) !is 0) return ""; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
364 return text; |
| 37 | 365 } |
| 366 | |
| 44 | 367 override int /*long*/ gtk_button_press_event (GtkWidget* widget, GdkEventButton* event) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
368 auto result = super.gtk_button_press_event (widget, event); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
369 if (result !is 0) return result; |
| 71 | 370 if ((style & DWT.RADIO) !is 0) selected = getSelection (); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
371 return result; |
| 37 | 372 } |
| 373 | |
| 44 | 374 override int /*long*/ gtk_clicked (GtkWidget* widget) { |
| 71 | 375 if ((style & DWT.RADIO) !is 0) { |
| 376 if ((parent.getStyle () & DWT.NO_RADIO_GROUP) !is 0) { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
377 setSelection (!selected); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
378 } else { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
379 selectRadio (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
380 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
381 } |
| 71 | 382 postEvent (DWT.Selection); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
383 return 0; |
| 37 | 384 } |
| 385 | |
| 44 | 386 override int /*long*/ gtk_focus_in_event (GtkWidget* widget, GdkEventFocus* event) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
387 auto result = super.gtk_focus_in_event (widget, event); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
388 // widget could be disposed at this point |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
389 if (handle is null) return 0; |
| 71 | 390 if ((style & DWT.PUSH) !is 0 && OS.GTK_WIDGET_HAS_DEFAULT (handle)) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
391 Decorations menuShell = menuShell (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
392 menuShell.defaultButton = this; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
393 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
394 return result; |
| 37 | 395 } |
| 396 | |
| 44 | 397 override int /*long*/ gtk_focus_out_event (GtkWidget* widget, GdkEventFocus* event) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
398 auto result = super.gtk_focus_out_event (widget, event); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
399 // widget could be disposed at this point |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
400 if (handle is null) return 0; |
| 71 | 401 if ((style & DWT.PUSH) !is 0 && !OS.GTK_WIDGET_HAS_DEFAULT (handle)) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
402 Decorations menuShell = menuShell (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
403 if (menuShell.defaultButton is this) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
404 menuShell.defaultButton = null; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
405 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
406 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
407 return result; |
| 37 | 408 } |
| 409 | |
| 44 | 410 override int /*long*/ gtk_key_press_event (GtkWidget* widget, GdkEventKey* event) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
411 auto result = super.gtk_key_press_event (widget, event); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
412 if (result !is 0) return result; |
| 71 | 413 if ((style & DWT.RADIO) !is 0) selected = getSelection (); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
414 return result; |
| 37 | 415 } |
| 416 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
417 override void hookEvents () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
418 super.hookEvents(); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
419 OS.g_signal_connect_closure (handle, OS.clicked.ptr, display.closures [CLICKED], false); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
420 if (labelHandle !is null) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
421 OS.g_signal_connect_closure_by_id (cast(void*)labelHandle, display.signalIds [MNEMONIC_ACTIVATE], 0, display.closures [MNEMONIC_ACTIVATE], false); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
422 } |
| 37 | 423 } |
| 424 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
425 override bool isDescribedByLabel () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
426 return false; |
| 37 | 427 } |
| 428 | |
| 44 | 429 alias Control.mnemonicHit mnemonicHit; |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
430 override bool mnemonicHit (char key) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
431 if (labelHandle is null) return false; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
432 bool result = super.mnemonicHit (labelHandle, key); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
433 if (result) setFocus (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
434 return result; |
| 37 | 435 } |
| 436 | |
| 44 | 437 alias Control.mnemonicMatch mnemonicMatch; |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
438 override bool mnemonicMatch (char key) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
439 if (labelHandle is null) return false; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
440 return mnemonicMatch (labelHandle, key); |
| 37 | 441 } |
| 442 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
443 override void register () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
444 super.register (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
445 if (boxHandle !is null) display.addWidget (boxHandle, this); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
446 if (labelHandle !is null) display.addWidget (labelHandle, this); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
447 if (imageHandle !is null) display.addWidget (imageHandle, this); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
448 if (arrowHandle !is null) display.addWidget (arrowHandle, this); |
| 37 | 449 } |
| 450 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
451 override void releaseHandle () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
452 super.releaseHandle (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
453 boxHandle = imageHandle = labelHandle = arrowHandle = null; |
| 37 | 454 } |
| 455 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
456 override void releaseWidget () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
457 super.releaseWidget (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
458 if (groupHandle !is null) OS.g_object_unref (groupHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
459 groupHandle = null; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
460 if (imageList !is null) imageList.dispose (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
461 imageList = null; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
462 image = null; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
463 text = null; |
| 37 | 464 } |
| 465 | |
| 466 /** | |
| 467 * Removes the listener from the collection of listeners who will | |
| 468 * be notified when the control is selected by the user. | |
| 469 * | |
| 470 * @param listener the listener which should no longer be notified | |
| 471 * | |
| 472 * @exception IllegalArgumentException <ul> | |
| 473 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li> | |
| 474 * </ul> | |
| 71 | 475 * @exception DWTException <ul> |
| 37 | 476 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li> |
| 477 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li> | |
| 478 * </ul> | |
| 479 * | |
| 480 * @see SelectionListener | |
| 481 * @see #addSelectionListener | |
| 482 */ | |
| 483 public void removeSelectionListener (SelectionListener listener) { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
484 checkWidget(); |
| 71 | 485 if (listener is null) 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:
58
diff
changeset
|
486 if (eventTable is null) return; |
| 71 | 487 eventTable.unhook (DWT.Selection, listener); |
| 488 eventTable.unhook (DWT.DefaultSelection,listener); | |
| 37 | 489 } |
| 490 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
491 override void resizeHandle (int width, int height) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
492 super.resizeHandle (width, height); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
493 /* |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
494 * Feature in GTK, GtkCheckButton and GtkRadioButton allocate |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
495 * only the minimum size necessary for its child. This causes the child |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
496 * alignment to fail. The fix is to set the child size to the size |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
497 * of the button. |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
498 */ |
| 71 | 499 if ((style & (DWT.CHECK | DWT.RADIO)) !is 0) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
500 OS.gtk_widget_set_size_request (boxHandle, width, -1); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
501 } |
| 37 | 502 } |
| 503 | |
| 504 void selectRadio () { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
505 /* |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
506 * This code is intentionally commented. When two groups |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
507 * of radio buttons with the same parent are separated by |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
508 * another control, the correct behavior should be that |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
509 * the two groups act independently. This is consistent |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
510 * with radio tool and menu items. The commented code |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
511 * implements this behavior. |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
512 */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
513 // int index = 0; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
514 // Control [] children = parent._getChildren (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
515 // while (index < children.length && children [index] !is this) index++; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
516 // int i = index - 1; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
517 // while (i >= 0 && children [i].setRadioSelection (false)) --i; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
518 // int j = index + 1; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
519 // while (j < children.length && children [j].setRadioSelection (false)) j++; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
520 // setSelection (true); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
521 Control [] children = parent._getChildren (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
522 for (int i=0; i<children.length; i++) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
523 Control child = children [i]; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
524 if (this !is child) child.setRadioSelection (false); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
525 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
526 setSelection (true); |
| 37 | 527 } |
| 528 | |
| 529 /** | |
| 530 * Controls how text, images and arrows will be displayed | |
| 531 * in the receiver. The argument should be one of | |
| 532 * <code>LEFT</code>, <code>RIGHT</code> or <code>CENTER</code> | |
| 533 * unless the receiver is an <code>ARROW</code> button, in | |
| 534 * which case, the argument indicates the direction of | |
| 535 * the arrow (one of <code>LEFT</code>, <code>RIGHT</code>, | |
| 536 * <code>UP</code> or <code>DOWN</code>). | |
| 537 * | |
| 538 * @param alignment the new alignment | |
| 539 * | |
| 71 | 540 * @exception DWTException <ul> |
| 37 | 541 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li> |
| 542 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li> | |
| 543 * </ul> | |
| 544 */ | |
| 545 public void setAlignment (int alignment) { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
546 checkWidget (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
547 _setAlignment (alignment); |
| 37 | 548 } |
| 549 | |
| 550 void _setAlignment (int alignment) { | |
| 71 | 551 if ((style & DWT.ARROW) !is 0) { |
| 552 if ((style & (DWT.UP | DWT.DOWN | DWT.LEFT | DWT.RIGHT)) is 0) return; | |
| 553 style &= ~(DWT.UP | DWT.DOWN | DWT.LEFT | DWT.RIGHT); | |
| 554 style |= alignment & (DWT.UP | DWT.DOWN | DWT.LEFT | DWT.RIGHT); | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
555 int arrow_type = OS.GTK_ARROW_UP; |
| 71 | 556 bool isRTL = (style & DWT.RIGHT_TO_LEFT) !is 0; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
557 switch (alignment) { |
| 71 | 558 case DWT.UP: arrow_type = OS.GTK_ARROW_UP; break; |
| 559 case DWT.DOWN: arrow_type = OS.GTK_ARROW_DOWN; break; | |
| 560 case DWT.LEFT: arrow_type = isRTL ? OS.GTK_ARROW_RIGHT : OS.GTK_ARROW_LEFT; break; | |
| 561 case DWT.RIGHT: arrow_type = isRTL ? OS.GTK_ARROW_LEFT : OS.GTK_ARROW_RIGHT; break; | |
|
55
93981635e709
Checked and inserted missing default switch cases.
Frank Benoit <benoit@tionex.de>
parents:
44
diff
changeset
|
562 default: |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
563 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
564 OS.gtk_arrow_set (cast(GtkArrow*)arrowHandle, arrow_type, OS.GTK_SHADOW_OUT); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
565 return; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
566 } |
| 71 | 567 if ((alignment & (DWT.LEFT | DWT.RIGHT | DWT.CENTER)) is 0) return; |
| 568 style &= ~(DWT.LEFT | DWT.RIGHT | DWT.CENTER); | |
| 569 style |= alignment & (DWT.LEFT | DWT.RIGHT | DWT.CENTER); | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
570 /* Alignment not honoured when image and text are visible */ |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
571 bool bothVisible = OS.GTK_WIDGET_VISIBLE (labelHandle) && OS.GTK_WIDGET_VISIBLE (imageHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
572 if (bothVisible) { |
| 71 | 573 if ((style & (DWT.RADIO | DWT.CHECK)) !is 0) alignment = DWT.LEFT; |
| 574 if ((style & (DWT.PUSH | DWT.TOGGLE)) !is 0) alignment = DWT.CENTER; | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
575 } |
| 71 | 576 if ((alignment & DWT.LEFT) !is 0) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
577 if (bothVisible) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
578 OS.gtk_box_set_child_packing (cast(GtkBox*)boxHandle, labelHandle, false, false, 0, OS.GTK_PACK_START); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
579 OS.gtk_box_set_child_packing (cast(GtkBox*)boxHandle, imageHandle, false, false, 0, OS.GTK_PACK_START); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
580 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
581 OS.gtk_misc_set_alignment (cast(GtkMisc*)labelHandle, 0.0f, 0.5f); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
582 OS.gtk_label_set_justify (cast(GtkLabel*)labelHandle, OS.GTK_JUSTIFY_LEFT); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
583 OS.gtk_misc_set_alignment (cast(GtkMisc*)imageHandle, 0.0f, 0.5f); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
584 return; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
585 } |
| 71 | 586 if ((alignment & DWT.CENTER) !is 0) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
587 if (bothVisible) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
588 OS.gtk_box_set_child_packing (cast(GtkBox*)boxHandle, labelHandle, true, true, 0, OS.GTK_PACK_END); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
589 OS.gtk_box_set_child_packing (cast(GtkBox*)boxHandle, imageHandle, true, true, 0, OS.GTK_PACK_START); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
590 OS.gtk_misc_set_alignment (cast(GtkMisc*)labelHandle, 0f, 0.5f); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
591 OS.gtk_misc_set_alignment (cast(GtkMisc*)imageHandle, 1f, 0.5f); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
592 } else { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
593 OS.gtk_misc_set_alignment (cast(GtkMisc*)labelHandle, 0.5f, 0.5f); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
594 OS.gtk_label_set_justify (cast(GtkLabel*)labelHandle, OS.GTK_JUSTIFY_CENTER); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
595 OS.gtk_misc_set_alignment (cast(GtkMisc*)imageHandle, 0.5f, 0.5f); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
596 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
597 return; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
598 } |
| 71 | 599 if ((alignment & DWT.RIGHT) !is 0) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
600 if (bothVisible) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
601 OS.gtk_box_set_child_packing (cast(GtkBox*)boxHandle, labelHandle, false, false, 0, OS.GTK_PACK_END); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
602 OS.gtk_box_set_child_packing (cast(GtkBox*)boxHandle, imageHandle, false, false, 0, OS.GTK_PACK_END); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
603 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
604 OS.gtk_misc_set_alignment (cast(GtkMisc*)labelHandle, 1.0f, 0.5f); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
605 OS.gtk_label_set_justify (cast(GtkLabel*)labelHandle, OS.GTK_JUSTIFY_RIGHT); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
606 OS.gtk_misc_set_alignment (cast(GtkMisc*)imageHandle, 1.0f, 0.5f); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
607 return; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
608 } |
| 37 | 609 } |
| 610 | |
| 44 | 611 alias Control.setBackgroundColor setBackgroundColor; |
| 612 override void setBackgroundColor (GdkColor* color) { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
613 super.setBackgroundColor (color); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
614 setBackgroundColor(fixedHandle, color); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
615 if (labelHandle !is null) setBackgroundColor(labelHandle, color); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
616 if (imageHandle !is null) setBackgroundColor(imageHandle, color); |
| 37 | 617 } |
| 618 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
619 override void setFontDescription (PangoFontDescription* font) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
620 super.setFontDescription (font); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
621 if (labelHandle !is null) OS.gtk_widget_modify_font (labelHandle, font); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
622 if (imageHandle !is null) OS.gtk_widget_modify_font (imageHandle, font); |
| 37 | 623 } |
| 624 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
625 override bool setRadioSelection (bool value) { |
| 71 | 626 if ((style & DWT.RADIO) is 0) return false; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
627 if (getSelection () !is value) { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
628 setSelection (value); |
| 71 | 629 postEvent (DWT.Selection); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
630 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
631 return true; |
| 37 | 632 } |
| 633 | |
| 44 | 634 alias Control.setForegroundColor setForegroundColor; |
| 635 override void setForegroundColor (GdkColor* color) { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
636 super.setForegroundColor (color); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
637 setForegroundColor (fixedHandle, color); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
638 if (labelHandle !is null) setForegroundColor (labelHandle, color); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
639 if (imageHandle !is null) setForegroundColor (imageHandle, color); |
| 37 | 640 } |
| 641 | |
| 642 /** | |
| 643 * Sets the receiver's image to the argument, which may be | |
| 644 * <code>null</code> indicating that no image should be displayed. | |
| 645 * <p> | |
| 646 * Note that a Button can display an image and text simultaneously | |
| 647 * on Windows (starting with XP), GTK+ and OSX. On other platforms, | |
| 648 * a Button that has an image and text set into it will display the | |
| 649 * image or text that was set most recently. | |
| 650 * </p> | |
| 651 * @param image the image to display on the receiver (may be <code>null</code>) | |
| 652 * | |
| 653 * @exception IllegalArgumentException <ul> | |
| 654 * <li>ERROR_INVALID_ARGUMENT - if the image has been disposed</li> | |
| 655 * </ul> | |
| 71 | 656 * @exception DWTException <ul> |
| 37 | 657 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li> |
| 658 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li> | |
| 659 * </ul> | |
| 660 */ | |
| 661 public void setImage (Image image) { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
662 checkWidget (); |
| 71 | 663 if ((style & DWT.ARROW) !is 0) return; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
664 if (imageList !is null) imageList.dispose (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
665 imageList = null; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
666 if (image !is null) { |
| 71 | 667 if (image.isDisposed()) 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:
58
diff
changeset
|
668 imageList = new ImageList (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
669 int imageIndex = imageList.add (image); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
670 auto pixbuf = imageList.getPixbuf (imageIndex); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
671 OS.gtk_image_set_from_pixbuf (cast(GtkImage*)imageHandle, pixbuf); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
672 if (text.length is 0) OS.gtk_widget_hide (labelHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
673 OS.gtk_widget_show (imageHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
674 } else { |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
675 OS.gtk_image_set_from_pixbuf (cast(GtkImage*)imageHandle, null); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
676 OS.gtk_widget_show (labelHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
677 OS.gtk_widget_hide (imageHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
678 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
679 this.image = image; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
680 _setAlignment (style); |
| 37 | 681 } |
| 682 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
683 override void setOrientation () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
684 super.setOrientation (); |
| 71 | 685 if ((style & DWT.RIGHT_TO_LEFT) !is 0) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
686 if (labelHandle !is null) OS.gtk_widget_set_direction (labelHandle, OS.GTK_TEXT_DIR_RTL); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
687 if (imageHandle !is null) OS.gtk_widget_set_direction (imageHandle, OS.GTK_TEXT_DIR_RTL); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
688 if (arrowHandle !is null) { |
| 71 | 689 switch (style & (DWT.LEFT | DWT.RIGHT)) { |
| 690 case DWT.LEFT: OS.gtk_arrow_set (cast(GtkArrow*)arrowHandle, OS.GTK_ARROW_RIGHT, OS.GTK_SHADOW_OUT); break; | |
| 691 case DWT.RIGHT: OS.gtk_arrow_set (cast(GtkArrow*)arrowHandle, OS.GTK_ARROW_LEFT, OS.GTK_SHADOW_OUT); break; | |
|
55
93981635e709
Checked and inserted missing default switch cases.
Frank Benoit <benoit@tionex.de>
parents:
44
diff
changeset
|
692 default: |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
693 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
694 } |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
695 } |
| 37 | 696 } |
| 697 | |
| 698 /** | |
| 699 * Sets the selection state of the receiver, if it is of type <code>CHECK</code>, | |
| 700 * <code>RADIO</code>, or <code>TOGGLE</code>. | |
| 701 * | |
| 702 * <p> | |
| 703 * When the receiver is of type <code>CHECK</code> or <code>RADIO</code>, | |
| 704 * it is selected when it is checked. When it is of type <code>TOGGLE</code>, | |
| 705 * it is selected when it is pushed in. | |
| 706 * | |
| 707 * @param selected the new selection state | |
| 708 * | |
| 71 | 709 * @exception DWTException <ul> |
| 37 | 710 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li> |
| 711 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li> | |
| 712 * </ul> | |
| 713 */ | |
| 44 | 714 public void setSelection (bool selected) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
715 checkWidget(); |
| 71 | 716 if ((style & (DWT.CHECK | DWT.RADIO | DWT.TOGGLE)) is 0) return; |
|
66
bb2217c09e61
Fixed signal blocking/unblocking:
Frank Benoit <benoit@tionex.de>
parents:
60
diff
changeset
|
717 OS.g_signal_handlers_block_matched (handle, OS.G_SIGNAL_MATCH_DATA, 0, 0, null, null, udCLICKED); |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
718 OS.gtk_toggle_button_set_active (cast(GtkToggleButton*)handle, selected); |
| 71 | 719 if ((style & DWT.RADIO) !is 0) OS.gtk_toggle_button_set_active (cast(GtkToggleButton*)groupHandle, !selected); |
|
66
bb2217c09e61
Fixed signal blocking/unblocking:
Frank Benoit <benoit@tionex.de>
parents:
60
diff
changeset
|
720 OS.g_signal_handlers_unblock_matched (handle, OS.G_SIGNAL_MATCH_DATA, 0, 0, null, null, udCLICKED); |
| 37 | 721 } |
| 722 | |
| 723 /** | |
| 724 * Sets the receiver's text. | |
| 725 * <p> | |
| 726 * This method sets the button label. The label may include | |
| 727 * the mnemonic character but must not contain line delimiters. | |
| 728 * </p> | |
| 729 * <p> | |
| 730 * Mnemonics are indicated by an '&' that causes the next | |
| 731 * character to be the mnemonic. When the user presses a | |
| 732 * key sequence that matches the mnemonic, a selection | |
| 733 * event occurs. On most platforms, the mnemonic appears | |
| 734 * underlined but may be emphasized in a platform specific | |
| 735 * manner. The mnemonic indicator character '&' can be | |
| 736 * escaped by doubling it in the string, causing a single | |
| 737 * '&' to be displayed. | |
| 738 * </p><p> | |
| 739 * Note that a Button can display an image and text simultaneously | |
| 740 * on Windows (starting with XP), GTK+ and OSX. On other platforms, | |
| 741 * a Button that has an image and text set into it will display the | |
| 742 * image or text that was set most recently. | |
| 743 * </p> | |
| 744 * @param string the new text | |
| 745 * | |
| 746 * @exception IllegalArgumentException <ul> | |
| 747 * <li>ERROR_NULL_ARGUMENT - if the text is null</li> | |
| 748 * </ul> | |
| 71 | 749 * @exception DWTException <ul> |
| 37 | 750 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li> |
| 751 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li> | |
| 752 * </ul> | |
| 753 */ | |
| 44 | 754 public void setText (char[] string) { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
755 checkWidget (); |
| 71 | 756 if (string is null) error (DWT.ERROR_NULL_ARGUMENT); |
| 757 if ((style & DWT.ARROW) !is 0) return; | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
758 text = string; |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
759 char [] chars = fixMnemonic (string); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
760 OS.gtk_label_set_text_with_mnemonic (cast(GtkLabel*)labelHandle, toStringz(chars)); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
761 if (image is null) OS.gtk_widget_hide (imageHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
762 OS.gtk_widget_show (labelHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
763 _setAlignment (style); |
| 37 | 764 } |
| 765 | |
|
58
a5c274fa5af9
extended helloworld crashing
Frank Benoit <benoit@tionex.de>
parents:
55
diff
changeset
|
766 override void showWidget () { |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
767 super.showWidget (); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
768 if (boxHandle !is null) OS.gtk_widget_show (boxHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
769 if (labelHandle !is null) OS.gtk_widget_show (labelHandle); |
|
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
770 if (arrowHandle !is null) OS.gtk_widget_show (arrowHandle); |
| 37 | 771 } |
| 772 | |
| 44 | 773 alias Control.traversalCode traversalCode; |
| 774 override int traversalCode (int key, GdkEventKey* event) { | |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
775 int code = super.traversalCode (key, event); |
| 71 | 776 if ((style & DWT.RADIO) !is 0) code |= DWT.TRAVERSE_ARROW_NEXT | DWT.TRAVERSE_ARROW_PREVIOUS; |
|
59
8cec8f536af3
All D sources complete gvim retab (4 spaces), bug with Composite moveAbove/moveBelow fixed.
Frank Benoit <benoit@tionex.de>
parents:
58
diff
changeset
|
777 return code; |
| 37 | 778 } |
| 779 | |
| 780 } |