--- loncom/interface/lonspeller.pm	2004/07/27 23:35:34	1.6
+++ loncom/interface/lonspeller.pm	2004/12/02 16:40:00	1.8
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Interface routines for Aspell
 #
-# $Id: lonspeller.pm,v 1.6 2004/07/27 23:35:34 www Exp $
+# $Id: lonspeller.pm,v 1.8 2004/12/02 16:40:00 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -33,6 +33,7 @@ package Apache::lonspeller;
 use Apache::Constants qw(:common);
 use Text::Aspell;
 use Apache::lonlocal;
+use Apache::lontexconvert();
 use HTML::LCParser;
 use strict;
 
@@ -64,9 +65,11 @@ sub textsection {
 	    my $suggestions=join(' ',$speller->suggest($word));
 	    $suggestions=~s/\'/\\\'/gs;
 	    if (($suggestions) && (!$insidelink)) {
-		$output.='<a href="javascript:alert('."'".
-		    $suggestions."');".
-		    '">';
+		$output.='<a href="javascript:spellwin=window.open('.
+		    &Apache::lonhtmlcommon::javascript_nothing().
+		    ',\'spellwin\',\'height=140,width=280,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no\');'.
+                    'spellwin.'.&Apache::lonhtmlcommon::javascript_docopen.';spellwin.document.writeln(\'<html><body><h3>'.$word.
+                    '</h3>'.$suggestions.'</body></html>\');spellwin.document.close();spellwin.focus()">';
 	    }
 	    $output.='<font color="red">'.$word.'</font>';
 	    if (($suggestions) && (!$insidelink)) { $output.='</a>'; }
@@ -126,7 +129,8 @@ sub handler {
     $r->print('<html><head><title>'.
 	      &mt('Spell Checker').
 	      '</title></head><body bgcolor="#DDDDDD">'.
-	      &markeduptext($ENV{'form.text'}).
+	      &Apache::lontexconvert::msgtexconverted(
+				     &markeduptext($ENV{'form.text'})).
 	      '</body></html>');
     return OK;
 }
