mirror of
https://git.FreeBSD.org/ports.git
synced 2025-01-07 06:40:06 +00: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>
12 lines
408 B
Standard ML
12 lines
408 B
Standard ML
--- ./src/ann_texts.sml.orig Fri Mar 30 23:38:57 2001
|
|
+++ src/ann_texts.sml Sun Jan 13 11:03:51 2008
|
|
@@ -69,7 +69,7 @@
|
|
if (StringUtil.isLinefeed thischar)
|
|
then (line+1, 0)
|
|
else (line, char+1)
|
|
- val (rows, cols) = Substring.foldl cnt (1, 0) (Substring.all t)
|
|
+ val (rows, cols) = Substring.foldl cnt (1, 0) (Substring.full t)
|
|
in (Int.max(rows, 1), cols)
|
|
end
|
|
|