ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /appl/wm/logwindow.b/
implement Logwindow; # # Copyright © 1999 Vita Nuova Limited. All rights reserved. # include "sys.m"; sys: Sys; stderr: ref Sys->FD; include "draw.m"; draw: Draw; include "tk.m"; tk: Tk; cmd: import tk; include "tkclient.m"; tkclient: Tkclient; include "arg.m"; Logwindow: module { init: fn(ctxt: ref Draw->Context, argv: list of string); }; cfg := array[] of { "frame .bf", "checkbutton .bf.scroll -text Scroll -variable scroll -command {send cmd scroll}", ".bf.scroll select", "checkbutton .bf.popup -text {Pop up} -variable popup -command {send cmd popup}", ".bf.popup select", "pack .bf.scroll .bf.popup -side left", "frame .t", "scrollbar .t.scroll -command {.t.t yview}", "text .t.t -height 7c -yscrollcommand {.t.scroll set}", "pack .t.scroll -side left -fill y", "pack .t.t -fill both -expand 1", "pack .Wm_t -fill x", "pack .bf -anchor w", "pack .t -fill both -expand 1", "pack propagate . 0", }; eflag := 0; badmodule(p: string) { sys->fprint(stderr, "logwindow: cannot load %s: %r\n", p); raise "fail:bad module"; } init(ctxt: ref Draw->Context, argv: list of string) { sys = load Sys Sys->PATH; stderr = sys->fildes(2); tkclient = load Tkclient Tkclient->PATH; if (tkclient == nil) badmodule(Tkclient->PATH); tkclient->init(); tk = load Tk Tk->PATH; if (tk == nil) badmodule(Tk->PATH); arg := load Arg Arg->PATH; if (arg == nil) badmodule(Arg->PATH); if (ctxt == nil) { sys->fprint(stderr, "logwindow: nil Draw->Context\n"); raise "fail:no draw context"; } gflag := 0; title := "Log Window"; arg->init(argv); while ((opt := arg->opt()) != 0) { case opt { 'e' => eflag = 1; 'g' => gflag = 1; * => sys->fprint(stderr, "usage: logwindow [-ge] [title]\n"); raise "fail:usage"; } } argv = arg->argv(); if (argv != nil) title = hd argv; if (!gflag) sys->pctl(Sys->NEWPGRP, nil); (top, wmchan) := tkclient->toplevel(ctxt, "", title, Tkclient->Hide|Tkclient->Resize); if (top == nil) { sys->fprint(stderr, "logwindow: couldn't make window\n"); raise "fail: no window"; } cmd(top, ". unmap"); for (c:=0; c<len cfg; c++) tk->cmd(top, cfg[c]); if ((err := tk->cmd(top, "variable lasterror")) != nil) { sys->fprint(stderr, "logwindow: tk error: %s\n", err); raise "fail: tk error"; } logwin(sys->fildes(0), top, wmchan); } scrolling := 1; popup := 1; logwin(fd: ref Sys->FD, top: ref Tk->Toplevel, wmchan: chan of string) { cmd := chan of string; tk->namechan(top, cmd, "cmd"); raised := 0; ichan := chan of int; spawn inputmon(fd, top, ichan); tkclient->onscreen(top, nil); tkclient->startinput(top, "kbd"::"ptr"::nil); tkclient->wmctl(top, "task"); for (;;) alt { s := <-top.ctxt.kbd => tk->keyboard(top, s); s := <-top.ctxt.ptr => tk->pointer(top, *s); s := <-top.ctxt.ctl or s = <-top.wreq or s = <-wmchan => case s { "task" => raised = 0; "untask" => raised = 1; } tkclient->wmctl(top, s); e := <-ichan => if (e == 0 && eflag) { tkclient->wmctl(top, "exit"); exit; } if (!raised && popup) tkclient->wmctl(top, "untask"); msg := <-cmd => case msg { "scroll" => scrolling = int tk->cmd(top, "variable scroll"); "popup" => popup = int tk->cmd(top, "variable popup"); } } } inputmon(fd: ref Sys->FD, top: ref Tk->Toplevel, ichan: chan of int) { buf := array[Sys->ATOMICIO] of byte; t := 0; while ((n := sys->read(fd, buf[t:], len buf-t)) > 0) { t += n; cl := 0; for (i := t - 1; i >= 0; i--) { (nil, cl, nil) = sys->byte2char(buf, i); if (cl > 0) break; } if (cl == 0) continue; logmsg(top, ichan, string buf[0:i+cl]); buf[0:] = buf[i+cl:t]; t -= i + cl; } if (n < 0) logmsg(top, ichan, sys->sprint("Input error: %r\n")); else logmsg(top, ichan, "Got EOF\n"); if (eflag) ichan <-= 0; } logmsg(top: ref Tk->Toplevel, ichan: chan of int, m: string) { tk->cmd(top, ".t.t insert end '"+m); if (scrolling) tk->cmd(top, ".t.t see end"); tk->cmd(top, "update"); ichan <-= 1; }