From ebcfad5ec37c4f755f9e3ec609a268c3ad356bda Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Mon, 28 Nov 2011 16:36:51 +0000
Subject: [PATCH] gfse: fix bugs and typos

---
 src/www/gfse/about.html       | 4 ++--
 src/www/gfse/example_based.js | 9 +++++++--
 2 files changed, 9 insertions(+), 4 deletions(-)

diff --git a/src/www/gfse/about.html b/src/www/gfse/about.html
index 8660621a3..0d52f32eb 100644
--- a/src/www/gfse/about.html
+++ b/src/www/gfse/about.html
@@ -111,7 +111,7 @@ Error checks:
 At the moment, the concrete syntax for a language <var>L</var> is limited to
 <ul>
   <li>opening the Resource Grammar Library modules
-  <code>Syntax</code><var>L</var> and <code>Paradigms</code><var>L</var>,
+  <code>Syntax</code><var>L</var>, <code>Paradigms</code><var>L</var>,
   <code>Lexicon</code><var>L</var> and <code>Extra</code><var>L</var>,
   <li><em>linearization types</em> for the categories in the abstract syntax,
   <li><em>linearizations</em> for the functions in the abstract syntax,
@@ -234,7 +234,7 @@ suitable for multiple users developing a grammar in collaboration.
 
 <hr>
 <div class=modtime><small>
-<!-- hhmts start --> Last modified: Fri Oct  7 14:06:14 CEST 2011 <!-- hhmts end -->
+<!-- hhmts start --> Last modified: Fri Nov 25 12:44:33 CET 2011 <!-- hhmts end -->
   </small></div>
 <address>
 <a href="http://www.cse.chalmers.se/~hallgren/">TH</a>
diff --git a/src/www/gfse/example_based.js b/src/www/gfse/example_based.js
index cd5d256b5..285344e39 100644
--- a/src/www/gfse/example_based.js
+++ b/src/www/gfse/example_based.js
@@ -52,6 +52,9 @@ function ask_possibilities(g,ci) {
 	reload_grammar(g);
     }
     var exci=conc_index(g,conc.example_lang);
+    if(!conc.example_lang || !exci)
+	conc.example_lang=g.concretes[ci==0 ? 1 : 0].langcode;
+    var exci=conc_index(g,conc.example_lang);
     exb_call(g,ci,"possibilities",{example_state:exb_state(g,exci)},show_poss)
 }
 
@@ -67,7 +70,9 @@ function exb_extra(g,ci) {
     }
 
     function exblangmenu() {
-	function opt(conc) { return option(conc.langcode,conc.langcode); }
+	function opt(conc) {
+	    return option(concname(conc.langcode),conc.langcode);
+	}
 	function skip_target(c) { return c.langcode!=conc.langcode; }
 	var m =node("select",{},map(opt,filter(skip_target,g.concretes)));
 	if(conc.example_lang) m.value=conc.example_lang;
@@ -93,7 +98,7 @@ function exb_extra(g,ci) {
 	var why= g.concretes.length>1
 	    ? " ("+concname(conc.langcode)+" is not supported yet)"
 	    : " (Add another language to take examples from first.)"
-	return indent([unimportant("Example-based grammar editing: "), sb,
+	return indent([unimportant("Example-based editing: "), sb,
 	          unimportant(why)])
     }
 }