diff options
author | 2008-11-20 11:34:36 -0500 | |
---|---|---|
committer | 2008-11-20 11:34:36 -0500 | |
commit | eb171fceba46cbe600d8e29adc526e86719cdc4f (patch) | |
tree | be1fb9f820200f6d2620e1e597ff809b1f438d29 /src/demo.sml | |
parent | 55ad38ebb900b84fcfdeefe68678348e1cd3c36c (diff) |
Some demo improvements
Diffstat (limited to 'src/demo.sml')
-rw-r--r-- | src/demo.sml | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/src/demo.sml b/src/demo.sml index 5ed9da2a..580cd21f 100644 --- a/src/demo.sml +++ b/src/demo.sml @@ -27,7 +27,7 @@ structure Demo :> DEMO = struct -fun make {prefix, dirname} = +fun make {prefix, dirname, guided} = let val prose = OS.Path.joinDirFile {dir = dirname, file = "prose"} @@ -127,7 +127,12 @@ fun make {prefix, dirname} = file = out} val out = TextIO.openOut out - val () = (TextIO.output (out, "<frameset rows=\"50%,*\">\n"); + val () = (TextIO.output (out, "<frameset rows=\""); + TextIO.output (out, if guided then + "*,100" + else + "50%,*"); + TextIO.output (out, "\">\n"); TextIO.output (out, "<frame src=\""); TextIO.output (out, prefix); TextIO.output (out, "/"); |