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
|
+ Object {
gui { arg parent,bounds ... args;
^this.guiClass.new(this).performList(\gui,[parent,bounds] ++ args);
}
guiClass { ^ObjectGui }
}
// just a label with the name
+ String {
guiClass { ^StringGui }
}
+ Symbol {
guiClass { ^StringGui }
}
+ SimpleNumber {
guiClass { ^StringGui }
}
+ Boolean {
guiClass { ^StringGui }
}
+ Nil {
guiClass { ^StringGui }
// create a window/FlowView if you don't supply a parent to: thing.gui
asPageLayout { arg name,bounds;
^PageLayout(name.asString,bounds ).front
}
asFlowView { arg bounds;
^FlowView(nil,bounds)
}
}
|
