with-web.km 292 B

1234567891011121314
  1. do Window.{show-at-center};
  2. do Window.{on-close}.{connect {os::exit 0}};
  3. do
  4. \ buf := sync { Reactive '' },
  5. { merge [
  6. (InputBox bind buf),
  7. (MainView bind { ui::Container [
  8. { ui::Label 'Echo:' },
  9. { ui::Label buf.{watch} }
  10. ] })
  11. ] };