File: basic.bs

package info (click to toggle)
storm-lang 0.7.5-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 52,028 kB
  • sloc: ansic: 261,471; cpp: 140,432; sh: 14,891; perl: 9,846; python: 2,525; lisp: 2,504; asm: 860; makefile: 678; pascal: 70; java: 52; xml: 37; awk: 12
file content (57 lines) | stat: -rw-r--r-- 652 bytes parent folder | download | duplicates (3)
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
use ui;
use layout;
use core:geometry;

use lang:bs:macro;

class BasicWin extends Frame {
	private UiRoot layout;
	private Button[] buttons;

	init() {
		init("My window", Size(400, 400));

		Button a("A");
		Button b("B");
		Button c("C");
		Button d("D");
		Button e("E");
		Button f("F");
		add(a);
		add(b);
		add(c);
		add(d);
		add(e);
		add(f);

		var grid = layout Grid {
			wrapCols: 2;
			expandCol: 0, 1;
			a {}
			b {}
			c {}
			nextLine;
			d {}
			e {}
			f {
				row: 3;
				col: 3;
			}
		};


		layout.add(grid);

		create();
	}

	void resized(Size s) {
		layout.resize(s);
	}
}


void basicMain() {
	BasicWin w;
	w.waitForClose;
}