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>
13 lines
532 B
Standard ML
13 lines
532 B
Standard ML
--- ./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
|