ref: 1018d7a7091fd5e0433f501a3474cdc3fec322cc
dir: /appl/wm/mpeg.b/
implement WmMpeg; include "sys.m"; sys: Sys; include "draw.m"; draw: Draw; Rect, Display, Image: import draw; ctxt: ref Draw->Context; include "tk.m"; tk: Tk; Toplevel: import tk; include "tkclient.m"; tkclient: Tkclient; include "mpeg.m"; mpeg: Mpeg; WmMpeg: module { init: fn(ctxt: ref Draw->Context, argv: list of string); }; Stopped, Playing: con iota; dx, dy: int; dw, dh: int; adjust: int; task_cfg := array[] of { "canvas .c -background =5", "frame .b", "button .b.File -text File -command {send cmd file}", "button .b.Stop -text Stop -command {send cmd stop}", "button .b.Pause -text Pause -command {send cmd pause}", "button .b.Play -text Play -command {send cmd play}", "button .b.Picture -text Picture -command {send cmd pict}", "frame .f", "label .f.file -text {File:}", "label .f.name", "pack .f.file .f.name -side left", "pack .b.File .b.Stop .b.Pause .b.Play .b.Picture -side left", "pack .f -fill x", "pack .b -anchor w", "pack .c -side bottom -fill both -expand 1", "pack propagate . 0", }; init(xctxt: ref Draw->Context, nil: list of string) { sys = load Sys Sys->PATH; draw = load Draw Draw->PATH; tk = load Tk Tk->PATH; tkclient = load Tkclient Tkclient->PATH; mpeg = load Mpeg Mpeg->PATH; ctxt = xctxt; tkclient->init(); (t, menubut) := tkclient->toplevel(ctxt.screen, "", "Mpeg Player", Tkclient->Appl); cmd := chan of string; tk->namechan(t, cmd, "cmd"); tkclient->tkcmds(t, task_cfg); tk->cmd(t, "bind . <Configure> {send cmd resize}"); tk->cmd(t, "update"); fname := ""; ctl := chan of string; state := Stopped; for(;;) alt { menu := <-menubut => if(menu == "exit") { if(state == Playing) { mpeg->ctl("stop"); <-ctl; } return; } tkclient->wmctl(t, menu); press := <-cmd => case press { "file" => pat := list of { "*.mpg (MPEG movie file)" }; fname = tkclient->filename(ctxt.screen, t, "Locate MPEG clip", pat, ""); if(fname != nil) { tk->cmd(t, ".f.name configure -text {"+fname+"}"); tk->cmd(t, "update"); } "play" => s := mpeg->play(ctxt.display, nil, 0, canvsize(t), fname, ctl); if(s != nil) { tkclient->dialog(t, "error -fg red", "Play MPEG", "Media player error:\n"+s, 0, "Stop Play"::nil); break; } state = Playing; "resize" => if(state != Playing) break; r := canvsize(t); s := sys->sprint("window %d %d %d %d", r.min.x, r.min.y, r.max.x, r.max.y); mpeg->ctl(s); "pict" => if(adjust) break; adjust = 1; spawn pict(t); * => # Stop & Pause mpeg->ctl(press); } done := <-ctl => state = Stopped; } } canvsize(t: ref Toplevel): Rect { r: Rect; r.min.x = int tk->cmd(t, ".c cget -actx") + dx; r.min.y = int tk->cmd(t, ".c cget -acty") + dy; r.max.x = r.min.x + int tk->cmd(t, ".c cget -width") + dw; r.max.y = r.min.y + int tk->cmd(t, ".c cget -height") + dh; return r; } pict_cfg := array[] of { "scale .dx -orient horizontal -from -5 -to 5 -label {Origin X}"+ " -command { send c dx}", "scale .dy -orient horizontal -from -5 -to 5 -label {Origin Y}"+ " -command { send c dy}", "scale .dw -orient horizontal -from -5 -to 5 -label {Width}"+ " -command {send c dw}", "scale .dh -orient horizontal -from -5 -to 5 -label {Height}"+ " -command {send c dh}", "pack .Wm_t -fill x", "pack .dx .dy .dw .dh -fill x", "pack propagate . 0", "update", }; pict(parent: ref Toplevel) { targ := +" -borderwidth 2 -relief raised"; (t, menubut) := tkclient->toplevel(ctxt.screen, tkclient->geom(parent), "Mpeg Picture", 0); pchan := chan of string; tk->namechan(t, pchan, "c"); tkclient->tkcmds(t, pict_cfg); for(;;) alt { menu := <-menubut => if(menu == "exit") { adjust = 0; return; } tkclient->wmctl(t, menu); tcip := <-pchan => case tcip { "dx" => dx = int tk->cmd(t, ".dx get"); "dy" => dy = int tk->cmd(t, ".dy get"); "dw" => dw = int tk->cmd(t, ".dw get"); "dh" => dh = int tk->cmd(t, ".dh get"); } r := canvsize(parent); s := sys->sprint("window %d %d %d %d", r.min.x, r.min.y, r.max.x, r.max.y); mpeg->ctl(s); } }