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>
20 lines
747 B
Standard ML
20 lines
747 B
Standard ML
--- src/basic_util.sml.orig Sun Jan 13 18:28:51 2008
|
|
+++ src/basic_util.sml Sun Jan 13 18:28:13 2008
|
|
@@ -132,7 +132,7 @@
|
|
open Substring
|
|
in
|
|
fun breakAtDot s =
|
|
- let val (hd, tl) = splitl (not o isDot) (all s)
|
|
+ let val (hd, tl) = splitl (not o isDot) (full s)
|
|
in (string hd, string (triml 1 tl))
|
|
end
|
|
end
|
|
@@ -150,7 +150,7 @@
|
|
else Int.toString s
|
|
|
|
fun all p str = Substring.foldl (fn (c, r)=> (p c) andalso r)
|
|
- true (Substring.all str)
|
|
+ true (Substring.full str)
|
|
|
|
(* Adaptstring converts double quotes and other special characters
|
|
* into properly escaped sequences, to insure the string is to
|