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-njfiler.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-njfiler.sml')
| -rw-r--r-- | devel/sml_tk/files/patch-src-toolkit-njfiler.sml | 73 |
1 files changed, 73 insertions, 0 deletions
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 |