diff options
| author | Martin Wilke <miwi@FreeBSD.org> | 2008-06-21 09:56:54 +0000 |
|---|---|---|
| committer | Martin Wilke <miwi@FreeBSD.org> | 2008-06-21 09:56:54 +0000 |
| commit | a15faa6309adb4b41cc265c2c5a9943b92c3c9b5 (patch) | |
| tree | 19cb3988e31364642a7fee8bdfb87580516d7cdb /devel/sml_tk/files/patch-src-toolkit-icons.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-toolkit-icons.sml')
| -rw-r--r-- | devel/sml_tk/files/patch-src-toolkit-icons.sml | 13 |
1 files changed, 13 insertions, 0 deletions
diff --git a/devel/sml_tk/files/patch-src-toolkit-icons.sml b/devel/sml_tk/files/patch-src-toolkit-icons.sml new file mode 100644 index 000000000000..8585dfa5d882 --- /dev/null +++ b/devel/sml_tk/files/patch-src-toolkit-icons.sml @@ -0,0 +1,13 @@ +--- ./src/toolkit/icons.sml.orig Fri Mar 30 23:39:44 2001 ++++ src/toolkit/icons.sml Sun Jan 13 11:03:51 2008 +@@ -95,8 +95,8 @@ + fun getIconData (dir, file) = + let val i = openFile(joinDirFile{dir=dir, + file=dataFileNm file}) +- val w = StringUtil.toInt (TextIO.inputLine i) +- val h = StringUtil.toInt (TextIO.inputLine i) ++ val w = StringUtil.toInt (valOf (TextIO.inputLine i)) ++ val h = StringUtil.toInt (valOf (TextIO.inputLine i)) + val _ = TextIO.closeIn i + in (w, h) + end |