[Aimmath-commit] AIM/WEB-INF/maple/aim/admin SourceFile.mpl,1.4,1.5

[<gus...@us...>]

Update of /cvsroot/aimmath/AIM/WEB-INF/maple/aim/admin
In directory sc8-pr-cvs1:/tmp/cvs-serv30160/WEB-INF/maple/aim/admin

Modified Files:
	SourceFile.mpl 
Log Message:
Added additional configuration variables ImageFormat, ImageWidth, ImageHeight, SourceEditBoxWidth and SourceEditBoxHeight

Index: SourceFile.mpl
===================================================================
RCS file: /cvsroot/aimmath/AIM/WEB-INF/maple/aim/admin/SourceFile.mpl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** SourceFile.mpl	30 Aug 2003 21:08:04 -0000	1.4
--- SourceFile.mpl	25 Sep 2003 19:01:15 -0000	1.5
***************
*** 105,109 ****
    [["textarea",
       "name" = "SourceText",
!      "cols" = "70",
       "rows" = {"rows"} ],
     {"SourceText"}],
--- 105,109 ----
    [["textarea",
       "name" = "SourceText",
!      "cols" = Config['SourceEditBoxWidth'],
       "rows" = {"rows"} ],
     {"SourceText"}],
***************
*** 375,381 ****
     od;
  
!    rows := 25;
     if not(`Util/WhiteSpace`(sourcetext)) then
!     rows := min(max(5,`Util/CountLines`(sourcetext)),25);
     fi;
  
--- 375,381 ----
     od;
  
!    rows := Config['SourceEditBoxHeight'];
     if not(`Util/WhiteSpace`(sourcetext)) then
!     rows := min(max(5,`Util/CountLines`(sourcetext)),rows);
     fi;
  
***************
*** 392,394 ****
  
  EndPackage():
- 
--- 392,393 ----