mirror of
https://git.freebsd.org/ports.git
synced 2025-07-03 18:39:16 -04:00
a15faa6309
interface to the user interface description and command language Tcl/Tk. It allows the implementation of graphical user interfaces in a structured and reusable way, supported by the powerful module system of Standard ML. WWW: http://www.informatik.uni-bremen.de/~cxl/sml_tk PR: ports/119640 Submitted by: Timothy Bourke <timbob at bigpond.com>
11 lines
580 B
Standard ML
11 lines
580 B
Standard ML
--- ./src/toolkit/tests+examples/simpleinst.sml.orig Fri Mar 30 23:40:03 2001
|
|
+++ src/toolkit/tests+examples/simpleinst.sml Sun Jan 13 11:03:51 2008
|
|
@@ -346,7 +346,7 @@
|
|
let
|
|
fun read_file si =
|
|
if TextIO.endOfStream si then ""
|
|
- else (TextIO.inputLine si)^(read_file si)
|
|
+ else (valOf (TextIO.inputLine si))^(read_file si)
|
|
val is = TextIO.openIn filenm
|
|
val txt = read_file is
|
|
val _ = TextIO.closeIn is
|