summaryrefslogtreecommitdiffstats
path: root/qtsharp/src/examples/samples/display.cs
blob: daf8daa0870b6cc31814fa44f2d961ad04d4e1d1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
namespace QtSamples {

	using Qt;
	using System;

	public class Display : TQMainWindow {

		private TextArea textarea;
		private TQScrollView scrollview;
		private TQMenuBar menubar;
		private TQPopupMenu filemenu, aboutmenu;

		private class TextArea : TQTextEdit {

			public TextArea (TQWidget parent) : base (parent)
			{
				TQFile file = new TQFile ("display.cs");
				if ( file.Open(1) ) {
					TQTextStream ts = new TQTextStream (file);
					this.SetText (ts.Read ());
					this.SetTabStopWidth (30);
				}
			}
		}

		public Display ()
		{
			filemenu = new TQPopupMenu (null, "filemenu");
			filemenu.InsertItem	("&Quit", tqApp, TQT_SLOT ("quit()"));

			aboutmenu = new TQPopupMenu(null, "aboutmenu");
			aboutmenu.InsertItem("&About Qt-Sharp", this, TQT_SLOT("slotAbout()"));

			menubar = new TQMenuBar(this, "");
			menubar.InsertItem("&File", filemenu);
			menubar.InsertItem("&About", aboutmenu);

			textarea = new TextArea (this);
			textarea.SetGeometry(0, menubar.Height(), Width(), Height() - menubar.Height());
			this.SetCentralWidget (textarea);
		}

		public void slotAbout ()
		{
			TQMessageBox.Information (
				this, "About Qt-Sharp-0.7",
					  "A Qt (http://www.trolltech.com) to C# language binding.\n" +
					  "Qt-Sharp is compatible with Mono (http://go-mono.org) and\n" +
					  "Portable.NET (http://www.southern-storm.com.au/portable_net.html)\n" +
					  "(c) 2002 Adam Treat. Licensed under the terms of the GNU GPL.\n"
				);
		}

		public static void Main (String[] args)
		{
			TQApplication app = new TQApplication (args);
			Display demo = new Display ();
			demo.SetCaption ("Qt-Sharp-0.7!");
			app.SetMainWidget (demo);
			demo.Show ();
			app.Exec ();
			return;
		}
	}
}