Snippet268.d

#!/usr/bin/env dub
/+
dub.sdl:
    name "snippet268"
    dependency "dwt" path="../../../../../../"
    lflags "/subsystem:console:4" platform="x86_omf"
    libs \
      "atk-1.0" \
      "cairo" \
      "dl" \
      "fontconfig" \
      "gdk-x11-2.0" \
      "gdk_pixbuf-2.0" \
      "glib-2.0" \
      "gmodule-2.0" \
      "gnomeui-2" \
      "gnomevfs-2" \
      "gobject-2.0" \
      "gthread-2.0" \
      "gtk-x11-2.0" \
      "pango-1.0" \
      "pangocairo-1.0" \
      "X11" \
      "Xcomposite" \
      "Xcursor" \
      "Xdamage" \
      "Xext" \
      "Xfixes" \
      "Xi" \
      "Xinerama" \
      "Xrandr" \
      "Xrender" \
      "Xtst" \
      platform="linux"
+/

/*******************************************************************************
 * Copyright (c) 2000, 2004 IBM Corporation and others.
 * All rights reserved. This program and the accompanying materials
 * are made available under the terms of the Eclipse Public License v1.0
 * which accompanies this distribution, and is available at
 * http://www.eclipse.org/legal/epl-v10.html
 *
 * Contributors:
 *     IBM Corporation - initial API and implementation
 * D Port:
 *     Thomas Demmer <t_demmer AT web DOT de>
 *******************************************************************************/
module org.eclipse.swt.snippets.Snippet268;
  
/*
 * UI Automation (for testing tools) snippet: post mouse wheel events to a styled text
 *
 * For a list of all SWT example snippets see
 * http://www.eclipse.org/swt/snippets/
 * 
 * @since 3.0
 */
import org.eclipse.swt.SWT;
import org.eclipse.swt.widgets.Display;
import org.eclipse.swt.widgets.Event;
import org.eclipse.swt.widgets.Listener;
import org.eclipse.swt.widgets.Shell;

import java.lang.all;

import org.eclipse.swt.custom.StyledText;
import org.eclipse.swt.graphics.Point;
import org.eclipse.swt.layout.FillLayout;

version(Tango){
    import tango.io.Stdout;
    import tango.util.Convert;
} else { // Phobos
    import std.stdio;
    import std.conv;
}

void main(String[] args) {
    Display display = new Display();
    Shell shell = new Shell(display);
    shell.setLayout(new FillLayout());
    StyledText styledText = new StyledText(shell, SWT.V_SCROLL);
    String multiLineString = "";
    for (int i = 0; i < 200; i++) {
        multiLineString ~= "This is line number " ~ to!(String)(i) ~
            " in the multi-line string.\n";
    }
    styledText.setText(multiLineString);
    shell.setSize(styledText.computeSize(SWT.DEFAULT, 400));
    shell.open();
    styledText.addListener(SWT.MouseWheel, dgListener( (Event e){
        version(Tango){
            Stdout.formatln("Mouse Wheel event {}\n", e);
            Stdout.flush();
        } else {
            writefln("Mouse Wheel event %s", e);
        }
    }));
    bool disposed = false;
    Point pt = display.map(shell, null, 50, 50);
    Thread thread = new Thread({
        Event event;
        for (int i = 0; i < 50; i++) {
            event = new Event();
            event.type = SWT.MouseWheel;
            event.detail = SWT.SCROLL_LINE;
            event.x = pt.x;
            event.y = pt.y;
            event.count = -2;
            if (disposed) return;
            display.syncExec(new class Runnable {
                override void run() {
                    display.post(event);
                }
            });
            try {
                Thread.sleep(400);
            } catch (InterruptedException e) {}
        }
        version(Tango){
            Stdout("Thread done\n").flush(); 
        } else {
            writeln("Thread done");
        }
    });
  
    thread.start();
    while (!shell.isDisposed()) {
        if (!display.readAndDispatch()) display.sleep();
    }
    disposed = true;
    thread.join();
    display.dispose();
}