Index: htmlcmd.c
===================================================================
RCS file: /proj/rd/cvsroot/saods9/htmlwidget/src/htmlcmd.c,v
retrieving revision 1.1
retrieving revision 1.2
diff -r1.1 -r1.2
1c1
< static char const rcsid[] = "@(#) $Id: htmlcmd.c,v 1.1 2010/03/04 23:33:38 joye Exp $";
---
> static char const rcsid[] = "@(#) $Id: htmlcmd.c,v 1.1 2010/03/04 23:33:38 joye Exp $";
301c301,323
<   }else{
---
>   } else if( argc==4 && !strncmp(argv[2],"text",4)) {
>     HtmlElement *p;
>     int i;
> 
>     HtmlLock(htmlPtr);
>     if( HtmlGetIndex(htmlPtr, argv[3], &p, &i)!=0 ){
>       if( !HtmlUnlock(htmlPtr) ){
> 	Tcl_AppendResult(interp,"malformed index: \"", argv[3], "\"", 0);
>       }
>       TestPoint(0);
>       return TCL_ERROR;
>     }
>     if( !HtmlUnlock(htmlPtr) && p ){
>       if( p->base.type==Html_Text ) {
> 	int offset = p->text.y-20;
> 	if (offset<0)
> 	  offset = 0;
> 	HtmlVerticalScroll(htmlPtr, offset);
>       }
>       TestPoint(0);
>     }
>   }
>   else{
