%angel

teacher.content = [ butframe, htmlscroll, htmlwin ];
butnext.text = "Next ->";

%eden

htmlwin_text = "
<h1>Good...</h1>
<p>Now you know what the input window is, we can begin creating new observables to construct Gel interfaces. Firstly, let's create a new window:
<blockquote><code>mywin = window();</code></blockquote>
And then change one of its observables:
<blockquote><code>mywin.title = \"My first window\";</code></blockquote>
<h1>Textboxes</h1>
<p>To create a textbox:
<blockquote><code>mytextbox = textbox();<br>
mytextbox.fill = \"x\";<br>
mytextbox.background = \"white\";</code></blockquote>
Or, in one definition:
<blockquote><code>mytextbox = textbox { fill = \"x\"; background = \"white\" };</code></blockquote>
And then add it to the content of <code>mywin</code>:
<blockquote><code>mywin.content = [ mytextbox ];</code></blockquote>
Try writing in the textbox to check that it works.
";

%eden

butnext_mouseclick = 0;
proc butnext_trigger : butnext_mouseclick {
   if (butnext_mouseclick == 1)
      include("page4.e");
}

%angel
