From a15faa6309adb4b41cc265c2c5a9943b92c3c9b5 Mon Sep 17 00:00:00 2001 From: Martin Wilke Date: Sat, 21 Jun 2008 09:56:54 +0000 Subject: 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 --- devel/sml_tk/files/patch-src-toolkit-njfiler.sml | 73 ++++++++++++++++++++++++ 1 file changed, 73 insertions(+) create mode 100644 devel/sml_tk/files/patch-src-toolkit-njfiler.sml (limited to 'devel/sml_tk/files/patch-src-toolkit-njfiler.sml') diff --git a/devel/sml_tk/files/patch-src-toolkit-njfiler.sml b/devel/sml_tk/files/patch-src-toolkit-njfiler.sml new file mode 100644 index 000000000000..60d62c9a9659 --- /dev/null +++ b/devel/sml_tk/files/patch-src-toolkit-njfiler.sml @@ -0,0 +1,73 @@ +--- ./src/toolkit/njfiler.sml.orig Fri Mar 30 23:39:40 2001 ++++ src/toolkit/njfiler.sml Sun Jan 13 11:03:51 2008 +@@ -335,11 +335,12 @@ + handle NoAcc => false) then + if (!SHOW_HIDDEN orelse + not(hd(explode new) = #".")) then +- new :: read (OS.FileSys.readDir dirstream) +- else read (OS.FileSys.readDir dirstream) +- else read (OS.FileSys.readDir dirstream) ++ new :: read (valOf (OS.FileSys.readDir ++ dirstream)) ++ else read (valOf (OS.FileSys.readDir dirstream)) ++ else read (valOf (OS.FileSys.readDir dirstream)) + in +- (sort (read (OS.FileSys.readDir dirstream)) ++ (sort (read (valOf (OS.FileSys.readDir dirstream))) + (fn x => fn y => String.<(x, y)) before + OS.FileSys.closeDir dirstream) + end +@@ -618,7 +619,7 @@ + if (OS.FileSys.isDir(OS.Path.concat(!CURRENT_DIRECTORY, + new)) + handle NoAcc => false) then +- read (OS.FileSys.readDir dirstream) ++ read (valOf (OS.FileSys.readDir dirstream)) + else + if (!SHOW_HIDDEN orelse + not(hd(explode new) = #".")) then +@@ -628,10 +629,10 @@ + in + if isSome dtp then + (new, valOf dtp) :: +- read (OS.FileSys.readDir dirstream) +- else read (OS.FileSys.readDir dirstream) ++ read (valOf (OS.FileSys.readDir dirstream)) ++ else read (valOf (OS.FileSys.readDir dirstream)) + end +- else read (OS.FileSys.readDir dirstream) ++ else read (valOf (OS.FileSys.readDir dirstream)) + + fun type_ord e1 e2 ((ft : Filetype) :: fts) = + if (not(e1 = "") andalso +@@ -659,7 +660,7 @@ + else if !SORT_NAMES then String.<(#1 e1, #1 e2) + else true + in +- sort (read (OS.FileSys.readDir dirstream)) ord before ++ sort (read (valOf (OS.FileSys.readDir dirstream))) ord before + OS.FileSys.closeDir dirstream + end + +@@ -755,8 +756,8 @@ + !CURRENT_DIRECTORY + else + OS.Path.mkRelative +- (!CURRENT_DIRECTORY, +- root_dir()), ++ {path = !CURRENT_DIRECTORY, ++ relativeTo = root_dir()}, + file = nm}) ev (fn () => ()) + else () + end +@@ -770,8 +771,8 @@ + !CURRENT_DIRECTORY + else + OS.Path.mkRelative +- (!CURRENT_DIRECTORY, +- root_dir()), ++ {path = !CURRENT_DIRECTORY, ++ relativeTo = root_dir()}, + file = #1 f} + else + addConf file_statusID -- cgit v1.2.3