%angel

teacher = window {
   title = "Introducing Gel";
   content = [ butframe, htmlscroll, htmlwin ];
   width = 300; height = 200 };

htmlscroll = scrollbar {
   orient = "vertical";
   scrolls = "htmlwin";
   side = "right";
   fill = "y";
   expand = 1 };

htmlwin = html {
   text = "<h1>Welcome...</h1><p>This environment is for exploring gel.</p>";
   relief = "flat";
   side = "top";
   fill = "both";
   expand = 1 };

butframe = frame {
   content = [ butnext ];
   side = "bottom";
   fill = "x" };

butnext = button {
   text = "Start";
   side = "right" };


%eden

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

%angel
