|
|
|
|
@ -6,8 +6,6 @@ testApp = {
|
|
|
|
|
combinedText = email & " " & password
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
topLevelText = "";
|
|
|
|
|
|
|
|
|
|
update = state event \ event
|
|
|
|
|
| _ \ state;
|
|
|
|
|
|
|
|
|
|
@ -37,15 +35,10 @@ view = state viewport \
|
|
|
|
|
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 },
|
|
|
|
|
textInput {
|
|
|
|
|
key = "top-level-text",
|
|
|
|
|
initialValue = topLevelText,
|
|
|
|
|
initialFocus = False,
|
|
|
|
|
w = 300,
|
|
|
|
|
h = 40,
|
|
|
|
|
onChange = text \ topLevelText := text
|
|
|
|
|
},
|
|
|
|
|
Text { content = "Top Level: " & topLevelText, x = 8, y = 16 }
|
|
|
|
|
Column {
|
|
|
|
|
gap = 10,
|
|
|
|
|
children = map (t \ Text { content = t, x = 8, y = 16 }) (storeSearch "")
|
|
|
|
|
}
|
|
|
|
|
]
|
|
|
|
|
}
|
|
|
|
|
};
|
|
|
|
|
|