summaryrefslogtreecommitdiff
path: root/devel/sml_tk/files/patch-src-ann_texts.sml
diff options
context:
space:
mode:
authorMartin Wilke <miwi@FreeBSD.org>2008-06-21 09:56:54 +0000
committerMartin Wilke <miwi@FreeBSD.org>2008-06-21 09:56:54 +0000
commita15faa6309adb4b41cc265c2c5a9943b92c3c9b5 (patch)
tree19cb3988e31364642a7fee8bdfb87580516d7cdb /devel/sml_tk/files/patch-src-ann_texts.sml
parent- Update to 0.3.7. (diff)
sml_tk is a Standard ML package providing a portable, typed and abstract
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>
Notes
Notes: svn path=/head/; revision=215448
Diffstat (limited to 'devel/sml_tk/files/patch-src-ann_texts.sml')
-rw-r--r--devel/sml_tk/files/patch-src-ann_texts.sml11
1 files changed, 11 insertions, 0 deletions
diff --git a/devel/sml_tk/files/patch-src-ann_texts.sml b/devel/sml_tk/files/patch-src-ann_texts.sml
new file mode 100644
index 000000000000..44d8dd9a7f12
--- /dev/null
+++ b/devel/sml_tk/files/patch-src-ann_texts.sml
@@ -0,0 +1,11 @@
+--- ./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
+