1 files changed, 128 insertions, 0 deletions
diff --git a/test/main.go b/test/main.go
new file mode 100644
index 0000000..1984e58
--- /dev/null
+++ b/test/main.go
@@ -0,0 +1,128 @@
+// 11 february 2014
+package main
+
+import (
+	"fmt"
+	. ".."
+)
+
+func gridWindow() (*Window, error) {
+	w := NewWindow("Grid Test", 400, 400)
+	b00 := NewButton("0,0")
+	b01 := NewButton("0,1")
+	b02 := NewButton("0,2")
+	l11 := NewListbox(true, "1,1")
+	b12 := NewButton("1,2")
+	l20 := NewLabel("2,0")
+	c21 := NewCheckbox("2,1")
+	l22 := NewLabel("2,2")
+	g := NewGrid(3,
+		b00, b01, b02,
+		Space(), l11, b12,
+		l20, c21, l22)
+	g.SetFilling(1, 2)
+	g.SetStretchy(1, 1)
+	return w, w.Open(g)
+}
+
+func myMain() {
+	w := NewWindow("Main Window", 320, 240)
+	w.Closing = Event()
+	b := NewButton("Click Me")
+	b2 := NewButton("Or Me")
+	s2 := NewStack(Horizontal, b, b2)
+	c := NewCheckbox("Check Me")
+	cb1 := NewEditableCombobox("You can edit me!", "Yes you can!", "Yes you will!")
+	cb2 := NewCombobox("You can't edit me!", "No you can't!", "No you won't!")
+	e := NewLineEdit("Enter text here too")
+	l := NewLabel("This is a label")
+	b3 := NewButton("List Info")
+	s3 := NewStack(Horizontal, l, b3)
+	s3.SetStretchy(0)
+//	s3.SetStretchy(1)
+	pbar := NewProgressBar()
+	prog := 0
+	incButton := NewButton("Inc")
+	decButton := NewButton("Dec")
+	sincdec := NewStack(Horizontal, incButton, decButton)
+	password := NewPasswordEdit()
+	s0 := NewStack(Vertical, s2, c, cb1, cb2, e, s3, pbar, sincdec, Space(), password)
+	s0.SetStretchy(8)
+	lb1 := NewListbox(true, "Select One", "Or More", "To Continue")
+	lb2 := NewListbox(false, "Select", "Only", "One", "Please")
+	i := 0
+	doAdjustments := func() {
+		cb1.Append("append")
+		cb2.InsertBefore(fmt.Sprintf("before %d", i), 1)
+		lb1.InsertBefore(fmt.Sprintf("%d", i), 2)
+		lb2.Append("Please")
+		i++
+	}
+	doAdjustments()
+	s1 := NewStack(Vertical, lb2, lb1)
+	s1.SetStretchy(0)
+	s1.SetStretchy(1)
+	s := NewStack(Horizontal, s1, s0)
+	s.SetStretchy(0)
+	s.SetStretchy(1)
+	err := w.Open(s)
+	if err != nil {
+		panic(err)
+	}
+	gw, err := gridWindow()
+	if err != nil {
+		panic(err)
+	}
+
+mainloop:
+	for {
+		select {
+		case <-w.Closing:
+			break mainloop
+		case <-b.Clicked:
+			err = w.SetTitle(fmt.Sprintf("%v | %s | %s | %s | %s",
+				c.Checked(),
+				cb1.Selection(),
+				cb2.Selection(),
+				e.Text(),
+				password.Text()))
+			if err != nil {
+				panic(err)
+			}
+			doAdjustments()
+		case <-b2.Clicked:
+			cb1.Delete(1)
+			cb2.Delete(2)
+			lb1.Delete(3)
+			lb2.Delete(4)
+		case <-b3.Clicked:
+			MsgBox("List Info",
+				"cb1: %d %q\ncb2: %d %q\nlb1: %d %q\nlb2: %d %q",
+				cb1.SelectedIndex(), cb1.Selection(),
+				cb2.SelectedIndex(), cb2.Selection(),
+				lb1.SelectedIndices(), lb1.Selection(),
+				lb2.SelectedIndices(), lb2.Selection())
+		case <-incButton.Clicked:
+			prog++
+			if prog > 100 {
+				prog = 100
+			}
+			pbar.SetProgress(prog)
+		case <-decButton.Clicked:
+			prog--
+			if prog < 0 {
+				prog = 0
+			}
+			pbar.SetProgress(prog)
+		}
+	}
+	gw.Hide()
+	w.Hide()
+}
+
+func main() {
+	err := Go(myMain)
+	if err != nil {
+		panic(err)
+	}
+}