--- loncom/interface/lonspeller.pm	2004/07/29 13:38:31	1.7
+++ 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.7 2004/07/29 13:38:31 www Exp $
+# $Id: lonspeller.pm,v 1.8 2004/12/02 16:40:00 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -65,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>'; }
