still don't have modules. instead will load all source in /cg/ dir, in alpha filename order
parent
0deb8f6307
commit
559191c65e
@ -1,46 +0,0 @@
|
|||||||
init = {};
|
|
||||||
|
|
||||||
testApp = {
|
|
||||||
email = "",
|
|
||||||
password = "",
|
|
||||||
combinedText = email & " " & password
|
|
||||||
};
|
|
||||||
|
|
||||||
update = state event \ event
|
|
||||||
| _ \ state;
|
|
||||||
|
|
||||||
view = state viewport \
|
|
||||||
Positioned {
|
|
||||||
x = 30,
|
|
||||||
y = 30,
|
|
||||||
child = Column {
|
|
||||||
gap = 10,
|
|
||||||
children = [
|
|
||||||
textInput {
|
|
||||||
key = "email",
|
|
||||||
initialValue = testApp.email,
|
|
||||||
initialFocus = True,
|
|
||||||
w = 300,
|
|
||||||
h = 40,
|
|
||||||
onChange = text \ testApp.email := text
|
|
||||||
},
|
|
||||||
textInput {
|
|
||||||
key = "password",
|
|
||||||
initialValue = testApp.password,
|
|
||||||
initialFocus = False,
|
|
||||||
w = 300,
|
|
||||||
h = 40,
|
|
||||||
onChange = text \ testApp.password := text
|
|
||||||
},
|
|
||||||
Text { content = "Username: " & testApp.email, x = 8, y = 16 },
|
|
||||||
Text { content = "Password: " & testApp.password, x = 8, y = 16 },
|
|
||||||
Text { content = "Combined: " & testApp.combinedText, x = 8, y = 16 },
|
|
||||||
Column {
|
|
||||||
gap = 10,
|
|
||||||
children = map (t \ Text { content = t, x = 8, y = 16 }) (storeSearch "")
|
|
||||||
}
|
|
||||||
]
|
|
||||||
}
|
|
||||||
};
|
|
||||||
|
|
||||||
os = { init = init, update = update, view = view }
|
|
||||||
Loading…
Reference in New Issue