projects/dwt-mac: dwt/widgets/Link.d annotate

annotate dwt/widgets/Link.d @ 77:990305995bc6

Ported dwt.widgets.Spinner

author	Jacob Carlborg <doob@me.com>
date	Wed, 24 Dec 2008 13:06:45 +0100
parents	3607217555f2
children	c7f7f4d7091a

rev	line source
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	1 /*******************************************************************************
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	2 * Copyright (c) 2000, 2008 IBM Corporation and others.
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	3 * All rights reserved. This program and the accompanying materials
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	4 * are made available under the terms of the Eclipse Public License v1.0
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	5 * which accompanies this distribution, and is available at
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	6 * http://www.eclipse.org/legal/epl-v10.html
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	7 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	8 * Contributors:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	9 * IBM Corporation - initial API and implementation
71 3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	10 *
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	11 * Port to the D programming language:
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	12 * Jacob Carlborg <doob@me.com>
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	13 *******************************************************************************/
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	14 module dwt.widgets.Link;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	15
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	16 import dwt.dwthelper.utils;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	17
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	18 import dwt.DWT;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	19 import dwt.DWTException;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	20 import dwt.events.SelectionEvent;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	21 import dwt.events.SelectionListener;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	22 import dwt.graphics.Point;
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	23 import dwt.internal.cocoa.NSFont;
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	24 import dwt.internal.cocoa.NSRange;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	25 import dwt.internal.cocoa.NSRect;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	26 import dwt.internal.cocoa.NSScrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	27 import dwt.internal.cocoa.NSSize;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	28 import dwt.internal.cocoa.NSString;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	29 import dwt.internal.cocoa.NSTextStorage;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	30 import dwt.internal.cocoa.NSTextView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	31 import dwt.internal.cocoa.NSView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	32 import dwt.internal.cocoa.OS;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	33 import dwt.internal.cocoa.SWTScrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	34 import dwt.internal.cocoa.SWTTextView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	35
71 3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	36 static import tango.text.Text;
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	37
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	38 import objc = dwt.internal.objc.runtime;
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	39 import dwt.widgets.Composite;
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	40 import dwt.widgets.Control;
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	41
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	42
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	43 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	44 * Instances of this class represent a selectable
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	45 * user interface object that displays a text with
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	46 * links.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	47 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	48 * <dl>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	49 * <dt><b>Styles:</b></dt>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	50 * <dd>(none)</dd>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	51 * <dt><b>Events:</b></dt>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	52 * <dd>Selection</dd>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	53 * </dl>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	54 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	55 * IMPORTANT: This class is <em>not</em> intended to be subclassed.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	56 * </p>
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	57 *
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	58 * @see <a href="http://www.eclipse.org/swt/snippets/#link">Link snippets</a>
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	59 * @see <a href="http://www.eclipse.org/swt/examples.php">DWT Example: ControlExample</a>
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	60 * @see <a href="http://www.eclipse.org/swt/">Sample code and further information</a>
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	61 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	62 * @since 3.1
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	63 */
3 649b8e223d5a fix extends Frank Benoit <benoit@tionex.de> parents: 0 diff changeset	64 public class Link : Control {
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	65 NSScrollView scrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	66 String text;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	67 Point [] offsets;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	68 Point selection;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	69 String [] ids;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	70 int [] mnemonics;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	71
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	72 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	73 * Constructs a new instance of this class given its parent
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	74 * and a style value describing its behavior and appearance.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	75 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	76 * The style value is either one of the style constants defined in
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	77 * class <code>DWT</code> which is applicable to instances of this
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	78 * class, or must be built by <em>bitwise OR</em>'ing together
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	79 * (that is, using the <code>int</code> "\|" operator) two or more
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	80 * of those <code>DWT</code> style constants. The class description
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	81 * lists the style constants that are applicable to the class.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	82 * Style bits are also inherited from superclasses.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	83 * </p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	84 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	85 * @param parent a composite control which will be the parent of the new instance (cannot be null)
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	86 * @param style the style of control to construct
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	87 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	88 * @exception IllegalArgumentException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	89 * <li>ERROR_NULL_ARGUMENT - if the parent is null</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	90 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	91 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	92 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the parent</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	93 * <li>ERROR_INVALID_SUBCLASS - if this class is not an allowed subclass</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	94 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	95 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	96 * @see Widget#checkSubclass
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	97 * @see Widget#getStyle
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	98 */
5 1a8b3cb347e0 Fix Ctors to 'this' Frank Benoit <benoit@tionex.de> parents: 3 diff changeset	99 public this (Composite parent, int style) {
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	100 super (parent, style);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	101 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	102
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	103 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	104 * Adds the listener to the collection of listeners who will
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	105 * be notified when the control is selected by the user, by sending
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	106 * it one of the messages defined in the <code>SelectionListener</code>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	107 * interface.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	108 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	109 * <code>widgetSelected</code> is called when the control is selected by the user.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	110 * <code>widgetDefaultSelected</code> is not called.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	111 * </p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	112 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	113 * @param listener the listener which should be notified
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	114 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	115 * @exception IllegalArgumentException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	116 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	117 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	118 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	119 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	120 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	121 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	122 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	123 * @see SelectionListener
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	124 * @see #removeSelectionListener
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	125 * @see SelectionEvent
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	126 */
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	127 public void addSelectionListener (SelectionListener listener) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	128 checkWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	129 if (listener is null) error (DWT.ERROR_NULL_ARGUMENT);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	130 TypedListener typedListener = new TypedListener (listener);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	131 addListener (DWT.Selection, typedListener);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	132 addListener (DWT.DefaultSelection, typedListener);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	133 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	134
71 3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	135 bool textView_clickOnLink_atIndex(objc.id id, objc.SEL sel, objc.id textView, objc.id link, objc.id charIndex) {
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	136 NSString str = new NSString (link);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	137 Event event = new Event ();
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	138 event.text = str.getString();
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	139 sendEvent (DWT.Selection, event);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	140 return true;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	141 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	142
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	143 public Point computeSize (int wHint, int hHint, bool changed) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	144 checkWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	145 if (wHint !is DWT.DEFAULT && wHint < 0) wHint = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	146 if (hHint !is DWT.DEFAULT && hHint < 0) hHint = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	147 int width, height;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	148 //TODO wrapping, wHint
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	149 int borderStyle = hasBorder() ? OS.NSBezelBorder : OS.NSNoBorder;
46 cfa563df4fdd Updated Widget and Display to 3.514 Jacob Carlborg <doob@me.com> parents: 45 diff changeset	150 NSSize borderSize = NSScrollView.frameSizeForContentSize(NSSize(), false, false, borderStyle);
7 e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	151 NSTextView widget = cast(NSTextView)view;
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	152 NSSize size = widget.textStorage().size();
7 e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	153 width = cast(int)(size.width + borderSize.width);
e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	154 height = cast(int)(size.height + borderSize.height);
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	155 if (wHint !is DWT.DEFAULT) width = wHint;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	156 if (hHint !is DWT.DEFAULT) height = hHint;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	157 int border = getBorderWidth ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	158 width += border * 2;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	159 height += border * 2;
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	160
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	161 // TODO is this true? if so, can this rounding be turned off?
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	162 /*
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	163 * Bug in Cocoa. NSTextStorage.size() seems to return a width
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	164 * value that is rounded down, because its result is never
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	165 * fractional. The workaround is to increment width by 1
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	166 * to ensure that it is wide enough to show the full text.
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	167 */
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	168 width += 1;
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	169 return new Point (width, height);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	170 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	171
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	172 void createHandle () {
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	173 NSScrollView scrollWidget = cast(NSScrollView)(new SWTScrollView()).alloc();
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	174 scrollWidget.initWithFrame(new NSRect ());
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	175 scrollWidget.setDrawsBackground(false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	176 scrollWidget.setBorderType(hasBorder() ? OS.NSBezelBorder : OS.NSNoBorder);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	177
71 3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	178 NSTextView widget = cast(NSTextView)(new SWTTextView()).alloc();
46 cfa563df4fdd Updated Widget and Display to 3.514 Jacob Carlborg <doob@me.com> parents: 45 diff changeset	179 widget.initWithFrame(NSRect());
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	180 widget.setEditable(false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	181 widget.setDrawsBackground(false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	182 widget.setDelegate(widget);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	183 widget.setAutoresizingMask (OS.NSViewWidthSizable \| OS.NSViewHeightSizable);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	184 widget.textContainer().setLineFragmentPadding(0);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	185
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	186 scrollView = scrollWidget;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	187 view = widget;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	188 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	189
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	190 void createWidget () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	191 super.createWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	192 text = "";
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	193 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	194
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	195 void deregister () {
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	196 super.deregister ();
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	197 if (scrollView !is null) display.removeWidget (scrollView);
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	198 }
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	199
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	200 String getNameText () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	201 return getText ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	202 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	203
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	204
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	205 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	206 * Returns the receiver's text, which will be an empty
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	207 * string if it has never been set.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	208 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	209 * @return the receiver's text
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	210 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	211 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	212 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	213 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	214 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	215 */
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	216 public String getText () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	217 checkWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	218 return text;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	219 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	220
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	221 void register () {
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	222 super.register ();
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	223 if (scrollView !is null) display.addWidget (scrollView, this);
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	224 }
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	225
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	226 void releaseWidget () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	227 super.releaseWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	228 offsets = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	229 ids = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	230 mnemonics = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	231 text = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	232 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	233
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	234 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	235 * Removes the listener from the collection of listeners who will
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	236 * be notified when the control is selected by the user.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	237 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	238 * @param listener the listener which should no longer be notified
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	239 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	240 * @exception IllegalArgumentException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	241 * <li>ERROR_NULL_ARGUMENT - if the listener is null</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	242 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	243 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	244 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	245 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	246 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	247 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	248 * @see SelectionListener
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	249 * @see #addSelectionListener
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	250 */
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	251 public void removeSelectionListener (SelectionListener listener) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	252 checkWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	253 if (listener is null) error (DWT.ERROR_NULL_ARGUMENT);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	254 if (eventTable is null) return;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	255 eventTable.unhook (DWT.Selection, listener);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	256 eventTable.unhook (DWT.DefaultSelection, listener);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	257 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	258
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	259 String parse (String string) {
71 3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	260 int length_ = string.length ();
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	261 offsets = new Point [length_ / 4];
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	262 ids = new String [length_ / 4];
3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	263 mnemonics = new int [length_ / 4 + 1];
77 990305995bc6 Ported dwt.widgets.Spinner Jacob Carlborg <doob@me.com> parents: 71 diff changeset	264 StringBuffer result = new StringBuffer ();
71 3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	265 char [] buffer = new char [length_];
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	266 string.getChars (0, string.length (), buffer, 0);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	267 int index = 0, state = 0, linkIndex = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	268 int start = 0, tagStart = 0, linkStart = 0, endtagStart = 0, refStart = 0;
71 3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	269 while (index < length_) {
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	270 char c = Character.toLowerCase (buffer [index]);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	271 switch (state) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	272 case 0:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	273 if (c is '<') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	274 tagStart = index;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	275 state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	276 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	277 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	278 case 1:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	279 if (c is 'a') state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	280 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	281 case 2:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	282 switch (c) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	283 case 'h':
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	284 state = 7;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	285 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	286 case '>':
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	287 linkStart = index + 1;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	288 state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	289 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	290 default:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	291 if (Character.isWhitespace(c)) break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	292 else state = 13;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	293 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	294 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	295 case 3:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	296 if (c is '<') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	297 endtagStart = index;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	298 state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	299 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	300 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	301 case 4:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	302 state = c is '/' ? state + 1 : 3;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	303 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	304 case 5:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	305 state = c is 'a' ? state + 1 : 3;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	306 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	307 case 6:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	308 if (c is '>') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	309 mnemonics [linkIndex] = parseMnemonics (buffer, start, tagStart, result);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	310 int offset = result.length ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	311 parseMnemonics (buffer, linkStart, endtagStart, result);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	312 offsets [linkIndex] = new Point (offset, result.length () - 1);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	313 if (ids [linkIndex] is null) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	314 ids [linkIndex] = new String (buffer, linkStart, endtagStart - linkStart);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	315 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	316 linkIndex++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	317 start = tagStart = linkStart = endtagStart = refStart = index + 1;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	318 state = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	319 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	320 state = 3;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	321 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	322 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	323 case 7:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	324 state = c is 'r' ? state + 1 : 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	325 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	326 case 8:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	327 state = c is 'e' ? state + 1 : 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	328 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	329 case 9:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	330 state = c is 'f' ? state + 1 : 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	331 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	332 case 10:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	333 state = c is '=' ? state + 1 : 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	334 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	335 case 11:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	336 if (c is '"') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	337 state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	338 refStart = index + 1;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	339 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	340 state = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	341 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	342 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	343 case 12:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	344 if (c is '"') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	345 ids[linkIndex] = new String (buffer, refStart, index - refStart);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	346 state = 2;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	347 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	348 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	349 case 13:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	350 if (Character.isWhitespace (c)) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	351 state = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	352 } else if (c is '='){
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	353 state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	354 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	355 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	356 case 14:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	357 state = c is '"' ? state + 1 : 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	358 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	359 case 15:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	360 if (c is '"') state = 2;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	361 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	362 default:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	363 state = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	364 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	365 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	366 index++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	367 }
71 3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	368 if (start < length_) {
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	369 int tmp = parseMnemonics (buffer, start, tagStart, result);
71 3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	370 int mnemonic = parseMnemonics (buffer, Math.max (tagStart, linkStart), length_, result);
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	371 if (mnemonic is -1) mnemonic = tmp;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	372 mnemonics [linkIndex] = mnemonic;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	373 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	374 mnemonics [linkIndex] = -1;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	375 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	376 if (offsets.length !is linkIndex) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	377 Point [] newOffsets = new Point [linkIndex];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	378 System.arraycopy (offsets, 0, newOffsets, 0, linkIndex);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	379 offsets = newOffsets;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	380 String [] newIDs = new String [linkIndex];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	381 System.arraycopy (ids, 0, newIDs, 0, linkIndex);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	382 ids = newIDs;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	383 int [] newMnemonics = new int [linkIndex + 1];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	384 System.arraycopy (mnemonics, 0, newMnemonics, 0, linkIndex + 1);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	385 mnemonics = newMnemonics;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	386 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	387 return result.toString ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	388 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	389
77 990305995bc6 Ported dwt.widgets.Spinner Jacob Carlborg <doob@me.com> parents: 71 diff changeset	390 int parseMnemonics (char[] buffer, int start, int end, StringBuffer result) {
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	391 int mnemonic = -1, index = start;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	392 while (index < end) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	393 if (buffer [index] is '&') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	394 if (index + 1 < end && buffer [index + 1] is '&') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	395 result.append (buffer [index]);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	396 index++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	397 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	398 mnemonic = result.length();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	399 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	400 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	401 result.append (buffer [index]);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	402 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	403 index++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	404 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	405 return mnemonic;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	406 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	407
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	408 void setFont(NSFont font) {
71 3607217555f2 Ported dwt.widgets.Link Jacob Carlborg <doob@me.com> parents: 46 diff changeset	409 (cast(NSTextView) view).setFont(font);
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	410 }
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	411
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	412 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	413 * Sets the receiver's text.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	414 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	415 * The string can contain both regular text and hyperlinks. A hyperlink
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	416 * is delimited by an anchor tag, <A> and </A>. Within an
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	417 * anchor, a single HREF attribute is supported. When a hyperlink is
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	418 * selected, the text field of the selection event contains either the
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	419 * text of the hyperlink or the value of its HREF, if one was specified.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	420 * In the rare case of identical hyperlinks within the same string, the
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	421 * HREF tag can be used to distinguish between them. The string may
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	422 * include the mnemonic character and line delimiters.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	423 * </p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	424 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	425 * @param string the new text
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	426 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	427 * @exception IllegalArgumentException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	428 * <li>ERROR_NULL_ARGUMENT - if the text is null</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	429 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	430 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	431 * <li>ERROR_WIDGET_DISPOSED - if the receiver has been disposed</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	432 * <li>ERROR_THREAD_INVALID_ACCESS - if not called from the thread that created the receiver</li>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	433 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	434 */
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	435 public void setText (String string) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	436 checkWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	437 if (string is null) error (DWT.ERROR_NULL_ARGUMENT);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	438 if (string.equals (text)) return;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	439 text = string;
7 e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	440 NSTextView widget = cast(NSTextView)view;
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	441 widget.setString(NSString.stringWith(parse(string)));
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	442 NSTextStorage textStorage = widget.textStorage();
46 cfa563df4fdd Updated Widget and Display to 3.514 Jacob Carlborg <doob@me.com> parents: 45 diff changeset	443 NSRange range = NSRange();
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	444 for (int i = 0; i < offsets.length; i++) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	445 range.location = offsets[i].x;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	446 range.length = offsets[i].y - offsets[i].x + 1;
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	447 textStorage.addAttribute(OS.NSLinkAttributeName, NSString.stringWith(ids[i]), range);
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	448 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	449 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	450
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	451 void setZOrder () {
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	452 super.setZOrder ();
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	453 if (scrollView !is null) scrollView.setDocumentView (view);
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	454 }
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	455
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	456 NSView topView () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	457 return scrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	458 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	459
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	460 //int traversalCode (int key, int theEvent) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	461 // if (offsets.length is 0) return 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	462 // int bits = super.traversalCode (key, theEvent);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	463 // if (key is 48 /* Tab */ && theEvent !is 0) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	464 // int [] modifiers = new int [1];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	465 // OS.GetEventParameter (theEvent, OS.kEventParamKeyModifiers, OS.typeUInt32, null, 4, null, modifiers);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	466 // bool next = (modifiers [0] & OS.shiftKey) is 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	467 // if (next && focusIndex < offsets.length - 1) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	468 // return bits & ~ DWT.TRAVERSE_TAB_NEXT;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	469 // }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	470 // if (!next && focusIndex > 0) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	471 // return bits & ~ DWT.TRAVERSE_TAB_PREVIOUS;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	472 // }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	473 // }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	474 // return bits;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	475 //}
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	476
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	477 }

Mercurial > projects > dwt-mac

annotate dwt/widgets/Link.d @ 77:990305995bc6