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>

1 files changed, 36 insertions, 0 deletions

diff --git a/devel/sml_tk/files/patch-src-njml.sml b/devel/sml_tk/files/patch-src-njml.sml
new file mode 100644
index 000000000000..bf52bad50020
--- /dev/null
+++ b/devel/sml_tk/files/patch-src-njml.sml
@@ -0,0 +1,36 @@
+--- src/njml.sml.orig	Fri Mar 30 23:39:14 2001
++++ src/njml.sml	Sun Jan 13 12:35:29 2008
+@@ -44,8 +44,8 @@
+ 	  
+       end
+ 
+-    fun setPrintDepth n = (Compiler.Control.Print.printDepth := n div 2;
+-			   Compiler.Control.Print.printLength := n)
++    fun setPrintDepth n = (Control.Print.printDepth := n div 2;
++			   Control.Print.printLength := n)
+ 
+    (* Set the terminal to a state suitable for sml_tk. Disables INTR
+     * s.t. we can use it to abort functions called from bindings, and 
+@@ -60,11 +60,11 @@
+ 	if Posix.ProcEnv.isatty (Posix.FileSys.stdin) then
+ 	 let (* configure TTY driver to have ^\ generate sigQUIT *)
+ 	     val {iflag, oflag, cflag, lflag, cc, ispeed, ospeed} = 
+-	                 fieldsOf (getattr Posix.FileSys.stdin)
++	                 fieldsOf (Posix.TTY.TC.getattr Posix.FileSys.stdin)
+ 	     val nuattr= termios {iflag=iflag, oflag=oflag, cflag=cflag, 
+ 				  lflag=lflag, ispeed=ispeed, ospeed=ospeed,
+ 				  cc=V.update(cc, [(V.quit, Char.chr 28)])}
+-	 in  setattr(Posix.FileSys.stdin, TC.sanow, nuattr);
++	 in  Posix.TTY.TC.setattr(Posix.FileSys.stdin, TC.sanow, nuattr);
+ 	     (* install the top level continuation as QUIT signal handler *)
+ 	     setHandler(UnixSignals.sigQUIT, 
+ 			HANDLER (fn _ => (abort();
+@@ -106,7 +106,7 @@
+     fun exec (s,sl) = 
+ 	let
+ 	    val pr = Unix.execute (s,sl)
+-	in  case (Unix.reap pr) of 
++	in  case Posix.Process.fromStatus (Unix.reap pr) of 
+ 	     Posix.Process.W_EXITED => true
+ 	   | _                      => false
+ 	end