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

annotate dwt/widgets/Scrollable.d @ 25:060cdd4457aa

Ported dwt.widgets.Scrollable

author	Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com>
date	Mon, 08 Sep 2008 17:44:31 +0200
parents	e831403a80a9
children	642f460a0908

rev	line source
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	1 /*******************************************************************************
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	2 * Copyright (c) 2000, 2007 IBM Corporation and others.
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
25 060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	10 *
060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	11 * Port to the D programming language:
060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	12 * Jacob Carlborg <jacob.carlborg@gmail.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.Scrollable;
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
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	17 import dwt.DWT;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	18 import dwt.DWTException;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	19 import dwt.graphics.Rectangle;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	20 import dwt.internal.cocoa.NSRect;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	21 import dwt.internal.cocoa.NSScrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	22 import dwt.internal.cocoa.NSScroller;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	23 import dwt.internal.cocoa.NSSize;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	24 import dwt.internal.cocoa.NSView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	25 import dwt.internal.cocoa.OS;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	26 import dwt.internal.cocoa.SWTScrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	27
25 060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	28 import dwt.dwthelper.utils;
060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	29 import dwt.widgets.Composite;
060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	30 import dwt.widgets.Control;
060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	31 import dwt.widgets.Display;
060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	32 import dwt.widgets.ScrollBar;
060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	33 import dwt.widgets.Widget;
060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	34
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	35 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	36 * This class is the abstract superclass of all classes which
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	37 * represent controls that have standard scroll bars.
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>H_SCROLL, V_SCROLL</dd>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	41 * <dt><b>Events:</b>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	42 * <dd>(none)</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 intended to be subclassed <em>only</em>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	46 * within the DWT implementation.
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 */
3 649b8e223d5a fix extends Frank Benoit <benoit@tionex.de> parents: 0 diff changeset	49 public abstract class Scrollable : Control {
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	50 SWTScrollView scrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	51 ScrollBar horizontalBar, verticalBar;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	52
5 1a8b3cb347e0 Fix Ctors to 'this' Frank Benoit <benoit@tionex.de> parents: 3 diff changeset	53 this () {
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	54 /* Do nothing */
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	55 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	56
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	57 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	58 * 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	59 * 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	60 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	61 * 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	62 * 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	63 * 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	64 * (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	65 * 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	66 * 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	67 * 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	68 * </p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	69 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	70 * @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	71 * @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	72 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	73 * @exception IllegalArgumentException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	74 * <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	75 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	76 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	77 * <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	78 * <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	79 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	80 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	81 * @see DWT#H_SCROLL
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	82 * @see DWT#V_SCROLL
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	83 * @see Widget#checkSubclass
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	84 * @see Widget#getStyle
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	85 */
5 1a8b3cb347e0 Fix Ctors to 'this' Frank Benoit <benoit@tionex.de> parents: 3 diff changeset	86 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	87 super (parent, style);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	88 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	89
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	90 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	91 * Given a desired <em>client area</em> for the receiver
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	92 * (as described by the arguments), returns the bounding
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	93 * rectangle which would be required to produce that client
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	94 * area.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	95 * <p>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	96 * In other words, it returns a rectangle such that, if the
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	97 * receiver's bounds were set to that rectangle, the area
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	98 * of the receiver which is capable of displaying data
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	99 * (that is, not covered by the "trimmings") would be the
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	100 * rectangle described by the arguments (relative to the
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	101 * receiver's parent).
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	102 * </p>
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 * @param x the desired x coordinate of the client area
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	105 * @param y the desired y coordinate of the client area
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	106 * @param width the desired width of the client area
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	107 * @param height the desired height of the client area
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	108 * @return the required bounds to produce the given client area
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	109 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	110 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	111 * <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	112 * <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	113 * </ul>
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 * @see #getClientArea
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 Rectangle computeTrim (int x, int y, int width, int height) {
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 (scrollView !is null) {
25 060cdd4457aa Ported dwt.widgets.Scrollable Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: 7 diff changeset	120 NSSize size = NSSize();
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	121 size.width = width;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	122 size.height = height;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	123 int border = hasBorder() ? OS.NSBezelBorder : OS.NSNoBorder;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	124 size = NSScrollView.frameSizeForContentSize(size, (style & DWT.H_SCROLL) !is 0, (style & DWT.V_SCROLL) !is 0, border);
7 e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	125 width = cast(int)size.width;
e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	126 height = cast(int)size.height;
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	127 NSRect frame = scrollView.contentView().frame();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	128 x -= frame.x;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	129 y -= frame.y;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	130 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	131 return new Rectangle (x, y, width, height);
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
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	134 ScrollBar createScrollBar (int style) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	135 if (scrollView is null) return null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	136 ScrollBar bar = new ScrollBar ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	137 bar.parent = this;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	138 bar.style = style;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	139 bar.display = display;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	140 NSScroller scroller;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	141 int actionSelector;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	142 if ((style & DWT.H_SCROLL) !is 0) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	143 scroller = scrollView.horizontalScroller();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	144 actionSelector = OS.sel_sendHorizontalSelection;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	145 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	146 scroller = scrollView.verticalScroller();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	147 actionSelector = OS.sel_sendVerticalSelection;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	148 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	149 bar.view = scroller;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	150 bar.createJNIRef();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	151 scroller.setTag(bar.jniRef);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	152 if ((state & CANVAS) is 0) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	153 bar.target = scroller.target();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	154 bar.actionSelector = scroller.action();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	155 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	156 scroller.setTarget(scrollView);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	157 scroller.setAction(actionSelector);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	158 return bar;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	159 }
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 void createWidget () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	162 super.createWidget ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	163 if ((style & DWT.H_SCROLL) !is 0) horizontalBar = createScrollBar (DWT.H_SCROLL);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	164 if ((style & DWT.V_SCROLL) !is 0) verticalBar = createScrollBar (DWT.V_SCROLL);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	165 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	166
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	167 /**
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	168 * Returns a rectangle which describes the area of the
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	169 * receiver which is capable of displaying data (that is,
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	170 * not covered by the "trimmings").
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 * @return the client area
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	173 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	174 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	175 * <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	176 * <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	177 * </ul>
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 * @see #computeTrim
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	180 */
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	181 public Rectangle getClientArea () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	182 checkWidget();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	183 if (scrollView !is null) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	184 NSSize size = scrollView.contentSize();
7 e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	185 return new Rectangle(0, 0, cast(int)size.width, cast(int)size.height);
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	186 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	187 NSRect rect = view.bounds();
7 e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	188 return new Rectangle(0, 0, cast(int)rect.width, cast(int)rect.height);
0 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 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	191
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 * Returns the receiver's horizontal scroll bar if it has
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	194 * one, and null if it does not.
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 * @return the horizontal scroll bar (or null)
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	197 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	198 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	199 * <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	200 * <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	201 * </ul>
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 public ScrollBar getHorizontalBar () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	204 checkWidget();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	205 return horizontalBar;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	206 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	207
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 * Returns the receiver's vertical scroll bar if it has
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	210 * one, and null if it does not.
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	211 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	212 * @return the vertical scroll bar (or null)
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	213 *
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	214 * @exception DWTException <ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	215 * <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	216 * <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	217 * </ul>
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	218 */
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	219 public ScrollBar getVerticalBar () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	220 checkWidget();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	221 return verticalBar;
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 bool hooksKeys () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	225 return hooks (DWT.KeyDown) \|\| hooks (DWT.KeyUp) \|\| hooks (DWT.Traverse);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	226 }
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
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	229 void releaseHandle () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	230 super.releaseHandle ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	231 if (scrollView !is null) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	232 scrollView.setTag(-1);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	233 scrollView.release();
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 scrollView = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	236 }
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 void releaseChildren (bool destroy) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	239 if (horizontalBar !is null) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	240 horizontalBar.release (false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	241 horizontalBar = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	242 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	243 if (verticalBar !is null) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	244 verticalBar.release (false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	245 verticalBar = null;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	246 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	247 super.releaseChildren (destroy);
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
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	250 void resizeClientArea () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	251 // if (scrolledHandle is 0) return;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	252 // if ((state & CANVAS) is 0) return;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	253 // int vWidth = 0, hHeight = 0;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	254 // int [] outMetric = new int [1];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	255 // OS.GetThemeMetric (OS.kThemeMetricScrollBarWidth, outMetric);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	256 // bool isVisibleHBar = horizontalBar !is null && horizontalBar.getVisible ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	257 // bool isVisibleVBar = verticalBar !is null && verticalBar.getVisible ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	258 // if (isVisibleHBar) hHeight = outMetric [0];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	259 // if (isVisibleVBar) vWidth = outMetric [0];
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	260 // int width, height;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	261 // CGRect rect = new CGRect ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	262 // OS.HIViewGetBounds (scrolledHandle, rect);
7 e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	263 // width = cast(int) rect.width;
e831403a80a9 Add 'cast' to casts Frank Benoit <benoit@tionex.de> parents: 5 diff changeset	264 // height = cast(int) rect.height;
0 380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	265 // Rect inset = inset ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	266 // width = Math.max (0, width - vWidth - inset.left - inset.right);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	267 // height = Math.max (0, height - hHeight - inset.top - inset.bottom);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	268 // setBounds (handle, inset.left, inset.top, width, height, true, true, false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	269 // if (isVisibleHBar) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	270 // setBounds (horizontalBar.handle, inset.left, inset.top + height, width, hHeight, true, true, false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	271 // }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	272 // if (isVisibleVBar) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	273 // setBounds (verticalBar.handle, inset.left + width, inset.top, vWidth, height, true, true, false);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	274 // }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	275 }
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 void sendHorizontalSelection () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	278 horizontalBar.sendSelection ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	279 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	280
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	281 bool sendMouseWheel (short wheelAxis, int wheelDelta) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	282 // if ((state & CANVAS) !is 0) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	283 // ScrollBar bar = wheelAxis is OS.kEventMouseWheelAxisX ? horizontalBar : verticalBar;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	284 // if (bar !is null && bar.getEnabled ()) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	285 // bar.setSelection (Math.max (0, bar.getSelection () - bar.getIncrement () * wheelDelta));
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	286 // Event event = new Event ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	287 // event.detail = wheelDelta > 0 ? DWT.PAGE_UP : DWT.PAGE_DOWN;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	288 // bar.sendEvent (DWT.Selection, event);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	289 // return true;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	290 // }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	291 // }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	292 return false;
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
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	295 void sendVerticalSelection () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	296 verticalBar.sendSelection ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	297 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	298
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	299 bool setScrollBarVisible (ScrollBar bar, bool visible) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	300 if (scrollView is null) return false;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	301 if ((state & CANVAS) is 0) return false;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	302 if (visible) {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	303 if ((bar.state & HIDDEN) is 0) return false;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	304 bar.state &= ~HIDDEN;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	305 } else {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	306 if ((bar.state & HIDDEN) !is 0) return false;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	307 bar.state \|= HIDDEN;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	308 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	309 resizeClientArea ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	310 // setVisible (bar.handle, visible);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	311 bar.sendEvent (visible ? DWT.Show : DWT.Hide);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	312 sendEvent (DWT.Resize);
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	313 return true;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	314 }
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 NSView topView () {
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	317 if (scrollView !is null) return scrollView;
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	318 return super.topView ();
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	319 }
380af2bdd8e5 Upload of whole dwt tree Jacob Carlborg <doob@me.com> <jacob.carlborg@gmail.com> parents: diff changeset	320 }

Mercurial > projects > dwt-mac

annotate dwt/widgets/Scrollable.d @ 25:060cdd4457aa