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

annotate dwt/widgets/Link.d @ 46:cfa563df4fdd

Updated Widget and Display to 3.514

author	Jacob Carlborg <doob@me.com>
date	Fri, 05 Dec 2008 16:00:41 +0100
parents	d8635bb48c7c
children	3607217555f2

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
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	10 *******************************************************************************/
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	11 module dwt.widgets.Link;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	12
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	13 import dwt.dwthelper.utils;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	14
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	15 import dwt.DWT;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	16 import dwt.DWTException;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	17 import dwt.events.SelectionEvent;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	18 import dwt.events.SelectionListener;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	19 import dwt.graphics.Point;
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	20 import dwt.internal.cocoa.NSFont;
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	21 import dwt.internal.cocoa.NSRange;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	22 import dwt.internal.cocoa.NSRect;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	23 import dwt.internal.cocoa.NSScrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	24 import dwt.internal.cocoa.NSSize;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	25 import dwt.internal.cocoa.NSString;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	26 import dwt.internal.cocoa.NSTextStorage;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	27 import dwt.internal.cocoa.NSTextView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	28 import dwt.internal.cocoa.NSView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	29 import dwt.internal.cocoa.OS;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	30 import dwt.internal.cocoa.SWTScrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	31 import dwt.internal.cocoa.SWTTextView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	32
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	33 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	34 * 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	35 * 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	36 * links.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	37 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	38 * <dl>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	39 * <dt><b>Styles:</b></dt>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	40 * <dd>(none)</dd>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	41 * <dt><b>Events:</b></dt>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	42 * <dd>Selection</dd>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	43 * </dl>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	44 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	45 * 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	46 * </p>
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	47 *
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	48 * @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	49 * @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	50 * @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	51 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	52 * @since 3.1
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	53 */
3 649b8e223d5a fix extends Frank Benoit <benoit@tionex.de> parents: 0 diff changeset	54 public class Link : Control {
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	55 NSScrollView scrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	56 String text;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	57 Point [] offsets;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	58 Point selection;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	59 String [] ids;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	60 int [] mnemonics;
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 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	63 * 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	64 * 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	65 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	66 * 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	67 * 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	68 * 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	69 * (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	70 * 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	71 * 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	72 * 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	73 * </p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	74 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	75 * @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	76 * @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	77 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	78 * @exception IllegalArgumentException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	79 * <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	80 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	81 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	82 * <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	83 * <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	84 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	85 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	86 * @see Widget#checkSubclass
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	87 * @see Widget#getStyle
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	88 */
5 1a8b3cb347e0 Fix Ctors to 'this' Frank Benoit <benoit@tionex.de> parents: 3 diff changeset	89 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	90 super (parent, style);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	91 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	92
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	93 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	94 * 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	95 * 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	96 * 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	97 * interface.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	98 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	99 * <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	100 * <code>widgetDefaultSelected</code> is not called.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	101 * </p>
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 * @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	104 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	105 * @exception IllegalArgumentException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	106 * <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	107 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	108 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	109 * <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	110 * <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	111 * </ul>
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 * @see SelectionListener
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	114 * @see #removeSelectionListener
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	115 * @see SelectionEvent
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	116 */
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	117 public void addSelectionListener (SelectionListener listener) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	118 checkWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	119 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	120 TypedListener typedListener = new TypedListener (listener);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	121 addListener (DWT.Selection, typedListener);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	122 addListener (DWT.DefaultSelection, typedListener);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	123 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	124
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	125 bool textView_clickOnLink_atIndex(int /long/ id, int /long/ sel, int /long/ textView, int /long/ link, int /long/ charIndex) {
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	126 NSString str = new NSString (link);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	127 Event event = new Event ();
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	128 event.text = str.getString();
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	129 sendEvent (DWT.Selection, event);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	130 return true;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	131 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	132
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	133 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	134 checkWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	135 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	136 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	137 int width, height;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	138 //TODO wrapping, wHint
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	139 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	140 NSSize borderSize = NSScrollView.frameSizeForContentSize(NSSize(), false, false, borderStyle);
7 e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	141 NSTextView widget = cast(NSTextView)view;
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	142 NSSize size = widget.textStorage().size();
7 e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	143 width = cast(int)(size.width + borderSize.width);
e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	144 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	145 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	146 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	147 int border = getBorderWidth ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	148 width += border * 2;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	149 height += border * 2;
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	150
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	151 // 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	152 /*
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	153 * 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	154 * 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	155 * fractional. The workaround is to increment width by 1
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	156 * 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	157 */
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	158 width += 1;
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	159 return new Point (width, height);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	160 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	161
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	162 void createHandle () {
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	163 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	164 scrollWidget.initWithFrame(new NSRect ());
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	165 scrollWidget.setDrawsBackground(false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	166 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	167
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	168 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	169 widget.initWithFrame(NSRect());
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	170 widget.setEditable(false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	171 widget.setDrawsBackground(false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	172 widget.setDelegate(widget);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	173 widget.setAutoresizingMask (OS.NSViewWidthSizable \| OS.NSViewHeightSizable);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	174 widget.textContainer().setLineFragmentPadding(0);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	175
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	176 scrollView = scrollWidget;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	177 view = widget;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	178 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	179
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	180 void createWidget () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	181 super.createWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	182 text = "";
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	183 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	184
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	185 void deregister () {
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	186 super.deregister ();
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	187 if (scrollView !is null) display.removeWidget (scrollView);
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	188 }
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	189
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	190 String getNameText () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	191 return getText ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	192 }
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
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	195 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	196 * 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	197 * 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	198 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	199 * @return the receiver's text
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	200 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	201 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	202 * <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	203 * <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	204 * </ul>
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 public String getText () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	207 checkWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	208 return text;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	209 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	210
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	211 void register () {
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	212 super.register ();
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	213 if (scrollView !is null) display.addWidget (scrollView, this);
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	214 }
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	215
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	216 void releaseWidget () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	217 super.releaseWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	218 offsets = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	219 ids = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	220 mnemonics = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	221 text = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	222 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	223
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	224 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	225 * 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	226 * 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	227 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	228 * @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	229 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	230 * @exception IllegalArgumentException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	231 * <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	232 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	233 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	234 * <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	235 * <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	236 * </ul>
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 * @see SelectionListener
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	239 * @see #addSelectionListener
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	240 */
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	241 public void removeSelectionListener (SelectionListener listener) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	242 checkWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	243 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	244 if (eventTable is null) return;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	245 eventTable.unhook (DWT.Selection, listener);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	246 eventTable.unhook (DWT.DefaultSelection, listener);
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
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	249 String parse (String string) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	250 int length = string.length ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	251 offsets = new Point [length / 4];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	252 ids = new String [length / 4];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	253 mnemonics = new int [length / 4 + 1];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	254 StringBuffer result = new StringBuffer ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	255 char [] buffer = new char [length];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	256 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	257 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	258 int start = 0, tagStart = 0, linkStart = 0, endtagStart = 0, refStart = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	259 while (index < length) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	260 char c = Character.toLowerCase (buffer [index]);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	261 switch (state) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	262 case 0:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	263 if (c is '<') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	264 tagStart = index;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	265 state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	266 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	267 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	268 case 1:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	269 if (c is 'a') state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	270 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	271 case 2:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	272 switch (c) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	273 case 'h':
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	274 state = 7;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	275 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	276 case '>':
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	277 linkStart = index + 1;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	278 state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	279 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	280 default:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	281 if (Character.isWhitespace(c)) break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	282 else state = 13;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	283 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	284 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	285 case 3:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	286 if (c is '<') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	287 endtagStart = index;
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 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	290 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	291 case 4:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	292 state = c is '/' ? state + 1 : 3;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	293 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	294 case 5:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	295 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	296 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	297 case 6:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	298 if (c is '>') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	299 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	300 int offset = result.length ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	301 parseMnemonics (buffer, linkStart, endtagStart, result);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	302 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	303 if (ids [linkIndex] is null) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	304 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	305 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	306 linkIndex++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	307 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	308 state = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	309 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	310 state = 3;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	311 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	312 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	313 case 7:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	314 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	315 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	316 case 8:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	317 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	318 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	319 case 9:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	320 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	321 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	322 case 10:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	323 state = c is '=' ? state + 1 : 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	324 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	325 case 11:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	326 if (c is '"') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	327 state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	328 refStart = index + 1;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	329 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	330 state = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	331 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	332 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	333 case 12:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	334 if (c is '"') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	335 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	336 state = 2;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	337 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	338 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	339 case 13:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	340 if (Character.isWhitespace (c)) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	341 state = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	342 } else if (c is '='){
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	343 state++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	344 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	345 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	346 case 14:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	347 state = c is '"' ? state + 1 : 0;
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 15:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	350 if (c is '"') state = 2;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	351 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	352 default:
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	353 state = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	354 break;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	355 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	356 index++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	357 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	358 if (start < length) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	359 int tmp = parseMnemonics (buffer, start, tagStart, result);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	360 int mnemonic = parseMnemonics (buffer, Math.max (tagStart, linkStart), length, result);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	361 if (mnemonic is -1) mnemonic = tmp;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	362 mnemonics [linkIndex] = mnemonic;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	363 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	364 mnemonics [linkIndex] = -1;
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 if (offsets.length !is linkIndex) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	367 Point [] newOffsets = new Point [linkIndex];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	368 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	369 offsets = newOffsets;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	370 String [] newIDs = new String [linkIndex];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	371 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	372 ids = newIDs;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	373 int [] newMnemonics = new int [linkIndex + 1];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	374 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	375 mnemonics = newMnemonics;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	376 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	377 return result.toString ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	378 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	379
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	380 int parseMnemonics (char[] buffer, int start, int end, StringBuffer result) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	381 int mnemonic = -1, index = start;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	382 while (index < end) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	383 if (buffer [index] is '&') {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	384 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	385 result.append (buffer [index]);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	386 index++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	387 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	388 mnemonic = result.length();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	389 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	390 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	391 result.append (buffer [index]);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	392 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	393 index++;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	394 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	395 return mnemonic;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	396 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	397
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	398 void setFont(NSFont font) {
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	399 ((NSTextView) view).setFont(font);
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	400 }
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	401
0 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 * Sets the receiver's text.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	404 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	405 * 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	406 * 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	407 * 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	408 * 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	409 * 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	410 * 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	411 * 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	412 * 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	413 * </p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	414 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	415 * @param string the new text
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	416 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	417 * @exception IllegalArgumentException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	418 * <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	419 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	420 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	421 * <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	422 * <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	423 * </ul>
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 public void setText (String string) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	426 checkWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	427 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	428 if (string.equals (text)) return;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	429 text = string;
7 e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	430 NSTextView widget = cast(NSTextView)view;
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	431 widget.setString(NSString.stringWith(parse(string)));
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	432 NSTextStorage textStorage = widget.textStorage();
46 cfa563df4fdd Updated Widget and Display to 3.514 Jacob Carlborg <doob@me.com> parents: 45 diff changeset	433 NSRange range = NSRange();
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	434 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	435 range.location = offsets[i].x;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	436 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	437 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	438 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	439 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	440
45 d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	441 void setZOrder () {
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	442 super.setZOrder ();
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	443 if (scrollView !is null) scrollView.setDocumentView (view);
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	444 }
d8635bb48c7c Merge with SWT 3.5 Jacob Carlborg <doob@me.com> parents: 7 diff changeset	445
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	446 NSView topView () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	447 return scrollView;
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 //int traversalCode (int key, int theEvent) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	451 // 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	452 // int bits = super.traversalCode (key, theEvent);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	453 // 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	454 // int [] modifiers = new int [1];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	455 // 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	456 // 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	457 // if (next && focusIndex < offsets.length - 1) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	458 // return bits & ~ DWT.TRAVERSE_TAB_NEXT;
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 // if (!next && focusIndex > 0) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	461 // return bits & ~ DWT.TRAVERSE_TAB_PREVIOUS;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	462 // }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	463 // }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	464 // return bits;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	465 //}
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	466
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	467 }

Mercurial > projects > dwt-mac

annotate dwt/widgets/Link.d @ 46:cfa563df4fdd