Mirah/SWTSnippets/Snippet15

/*******************************************************************************
 * Copyright (c) 2000, 2011 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
 *******************************************************************************/

/*
 * Tree example snippet: create a tree
 *
 * For a list of SWT example snippets ported to Mirah, see
 * http://wiki.eclipse.org/Mirah/SWTSnippets
 */
import org.eclipse.swt.*
import org.eclipse.swt.widgets.*
import org.eclipse.swt.layout.*

display = Display.new
shell = Shell.new display 
shell.setLayout FillLayout.new 
tree = Tree.new shell, SWT.BORDER
4.times do |i|
	iItem = TreeItem.new tree, 0
	iItem.setText "TreeItem (0) - #{i}"
	4.times do |j|
		jItem = TreeItem.new iItem, 0
		jItem.setText "TreeItem (1) - #{j}"
		4.times do |k|
			kItem = TreeItem.new jItem, 0
			kItem.setText "TreeItem (2) - #{k}"
			4.times do |l|
				lItem = TreeItem.new kItem, 0
				lItem.setText "TreeItem (3) - #{l}"
			end
		end
	end
end
shell.setSize 200, 200
shell.open 
until shell.isDisposed
	unless display.readAndDispatch
		display.sleep
	end
end
display.dispose