mirror of
https://git.freebsd.org/ports.git
synced 2025-06-27 15:40:32 -04:00
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>
36 lines
1.5 KiB
Standard ML
36 lines
1.5 KiB
Standard ML
--- 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
|