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