implement WmDir; include "sys.m";	sys: Sys;	Dir: import sys; include "draw.m";	draw: Draw;	ctxt: ref Draw->Context; include "tk.m";	tk: Tk;	Toplevel: import tk; include "tkclient.m";	tkclient: Tkclient; include "dialog.m";	dialog: Dialog; include "readdir.m";	readdir: Readdir; include "daytime.m";	daytime: Daytime; include "plumbmsg.m";	plumbmsg: Plumbmsg;	Msg: import plumbmsg; Fontwidth: 	con 8;Xwidth:		con 50; WmDir: module{	init:	fn(ctxt: ref Draw->Context, argv: list of string);}; Wm: module{	init:	fn(ctxt: ref Draw->Context, argv: list of string);}; Ft: adt{	ext:	string;	cmd:	string;	tkname:	string;	icon:	string;	loaded:	int;	givearg:	int;}; dirwin_cfg := array[] of {	# Lay out the screen	"frame .fc",	"scrollbar .fc.scroll -command {.fc.c yview}",	"canvas .fc.c -relief sunken -yscrollincrement 25"+		" -borderwidth 2 -width 10c -height 300"+		" -yscrollcommand {.fc.scroll set}"+		" -font /fonts/misc/latin1.8x13.font",	"frame .mbar",	"menubutton .mbar.opt -text {Options} -menu .opt",	"pack .mbar.opt -side left",	"pack .fc.scroll -side right -fill y",	"pack .fc.c -fill both -expand 1",	"pack .mbar -fill x",	"pack .fc -fill both -expand 1",	"pack propagate . 0", 	# prepare cursor	"image create bitmap waiting -file cursor.wait", 	# Build the options menu	"menu .opt",	".opt add radiobutton -text {by name}"+		" -variable sort -value n -command {send opt sort}",	".opt add radiobutton -text {by access}"+		" -variable sort -value a -command {send opt sort}",	".opt add radiobutton -text {by modify}"+		" -variable sort -value m -command {send opt sort}",	".opt add radiobutton -text {by size}"+		" -variable sort -value s -command {send opt sort}",	".opt add separator",	".opt add radiobutton -text {use icons}"+		" -variable show -value i -command {send opt icon}",	".opt add radiobutton -text {use text}"		+" -variable show -value t -command {send opt text}",	".opt add separator",	".opt add checkbutton -text {Walk} -command {send opt walk}",}; key := Readdir->NAME;walk: int;path: string;usetext: int;cmdname: string;sysnam: string;nde: int;now: int;plumbed := 0;de: array of ref Sys->Dir; filetypes: array of ref Ft;deftype: ref Ft;dirtype: ref Ft; inittypes(){	deftype = ref Ft("", "/dis/wm/edit.dis", "WmDir_Dis", "file", 0, 1);	dirtype = ref Ft("", nil, "WmDir_Dir", "dir", 0, 1);	filetypes = array[] of {		ref Ft("dis", nil, "WmDis_Pic", "dis", 0, 0),		ref Ft("bit", "/dis/wm/view.dis", "WmDir_Pic", "pic", 0, 1),		ref Ft("gif", "/dis/wm/view.dis", "WmDir_Pic", "pic", 0, 1),		ref Ft("jpg", "/dis/wm/view.dis", "WmDir_Pic", "pic", 0, 1),		ref Ft("jpeg", "/dis/wm/view.dis", "WmDir_Pic", "pic", 0, 1),		ref Ft("mask", "/dis/wm/view.dis", "WmDir_Pic", "pic", 0, 1),	};} init(env: ref Draw->Context, argv: list of string){	ctxt = env; 	sys  = load Sys Sys->PATH;	if (ctxt == nil) {		sys->fprint(sys->fildes(2), "dir: no window context\n");		raise "fail:bad context";	}	draw = load Draw Draw->PATH;	tk   = load Tk Tk->PATH;	tkclient = load Tkclient Tkclient->PATH;	dialog = load Dialog Dialog->PATH;	readdir = load Readdir Readdir->PATH;	plumbmsg = load Plumbmsg Plumbmsg->PATH;	if(plumbmsg != nil && plumbmsg->init(1, nil, 0) >= 0)		plumbed = 1; 	tkclient->init();	dialog->init();	inittypes(); 	cmdname = hd argv;	sysnam = sysname()+":"; 	(t, wmctl) := tkclient->toplevel(ctxt, "", "", Tkclient->Appl); 	tk->cmd(t, "cursor -image waiting"); 	filecmd := chan of string;	tk->namechan(t, filecmd, "fc");	conf := chan of string;	tk->namechan(t, conf, "cf");	opt := chan of string;	tk->namechan(t, opt, "opt"); 	argv = tl argv;	if(argv == nil)		getdir(t, "");	else		getdir(t, hd argv);	for (c:=0; c<len dirwin_cfg; c++)		tk->cmd(t, dirwin_cfg[c]);	drawdir(t);	tk->cmd(t, "update; cursor -default");	tk->cmd(t, "bind . <Configure> {send cf conf}");	tkclient->onscreen(t, nil);	tkclient->startinput(t, "kbd"::"ptr"::nil); 	menu := ""; f:	for(;;) alt {	s := <-t.ctxt.kbd =>		tk->keyboard(t, s);	s := <-t.ctxt.ptr =>		tk->pointer(t, *s);	s := <-t.ctxt.ctl or	s = <-t.wreq or	s = <-wmctl =>		if (s == "exit")			exit;		tkclient->wmctl(t, s);	<-conf =>		#		# Only recompute contents if the size changed		#		if(menu[0] != 's')			break;		tk->cmd(t, ".fc.c delete all");		drawdir(t);		tk->cmd(t, ".fc.c yview moveto 0; update");	mopt := <-opt =>		case mopt {		"sort" =>			case tk->cmd(t, "variable sort") {			"n" => key = readdir->NAME;			"a" => key = readdir->ATIME;			"m" => key = readdir->MTIME;			"s" => key = readdir->SIZE;			}			(de, nde) = readdir->sortdir(de, key);		"walk" =>			walk = !walk;			continue f;		"text" =>			usetext = 1;		"icon" =>			usetext = 0;		}		tk->cmd(t, ".fc.c delete all");		drawdir(t);		tk->cmd(t, ".fc.c yview moveto 0; update");	action := <-filecmd =>		nd := int action[1:];		if(nd > len de)			break;		case action[0] {		'1' =>			button1(t, de[nd]);		'3' =>			button3(t, de[nd]);		}	}} getdir(t: ref Toplevel, dir: string){	if(dir == "")		dir = "/"; 	path = dir;	if (path[len path - 1] != '/')		path[len path] = '/'; 	(de, nde) = readdir->init(path, key);	if(nde < 0) {		dialog->prompt(ctxt, t.image, "error -fg red",				"Read directory",				sys->sprint("Error reading \"%s\"\n%r", path),				0, "Exit"::nil);		exit;	} 	if(path != "/") {		(ok, d) := sys->stat("..");		if(ok >= 0) {			dot := array[nde+1] of ref Dir;			dot[0] = ref d;			dot[0].name = "..";			dot[1:] = de;			de = dot;			nde++;		}	} 	for(i := 0; i < nde; i++) {		s := de[i].name;		l := len s;		if(l > 4 && s[l-4:] == ".dis")			de[i].mode |= 8r111;	}	tkclient->settitle(t, sysnam+path);} defcursor(t: ref Toplevel){	tk->cmd(t, "cursor -default");} button1(t: ref Toplevel, item: ref Dir){	mod: Wm; 	tk->cmd(t, "cursor -image waiting");	npath := path;	name := item.name + "/";	if(item.name == "..") {		i := len path - 2;		while(i > 0 && path[i] != '/')			i--;		npath = path[0:i];		name = "/";	} 	exec := npath+name[0:len name-1];	ft := filetype(t, item, exec); 	if(item.mode & Sys->DMDIR) {		if(walk != 0) {			path = npath;			getdir(t, npath+name);			tk->cmd(t, ".fc.c delete all");			drawdir(t);			tk->cmd(t, ".fc.c yview moveto 0; update");			defcursor(t);			return;		}		mod = load Wm "/dis/wm/dir.dis";		defcursor(t);		if(mod == nil) {			dialog->prompt(ctxt, t.image, "error -fg red", "Load Dir module",				sys->sprint("Error: %r"),				0, "Continue"::nil);			return;		}		args := npath+name :: nil;		args = cmdname :: args;		spawn mod->init(ctxt,  args);		return;	} 	cmd := ft.cmd;	if(cmd == nil)		cmd = npath+name; 	mod = load Wm cmd;	defcursor(t);	if(mod == nil) {		dialog->prompt(ctxt, t.image, "error -fg red", "Load Module",			sys->sprint("Trying to load \"%s\"\n%r", cmd),			0, "Continue"::nil);		return;	}	if(ft.givearg)		spawn applinit(mod, ctxt, item.name :: exec :: nil);	else		spawn applinit(mod, ctxt, item.name :: nil);} applinit(mod: Wm, ctxt: ref Draw->Context, args: list of string){	sys->pctl(sys->NEWPGRP|sys->FORKFD, nil);	spawn mod->init(ctxt, args);}  button3(nil: ref Toplevel, stat: ref Sys->Dir){	if(!plumbed)		return;	msg := ref Msg(		"WmDir",		"",		path,		"text",		"",		array of byte stat.name); 	msg.send();} filetype(t: ref Toplevel, d: ref Dir, path: string): ref Ft{	if(d.mode & Sys->DMDIR)		return loadtype(t, dirtype); 	suffix := "";	for(j := len path-2; j >= 0; j--) {		if(path[j] == '.') {			suffix = path[j+1:];			break;		}	} 	if(suffix == "")		return loadtype(t, deftype); 	if(suffix[0] >= 'A' && suffix[0] <= 'Z') {		for(j = 0; j < len suffix; j++)			suffix[j] += ('A' - 'a');	} 	for(i := 0; i<len filetypes; i++) {		if(suffix == filetypes[i].ext)			return loadtype(t, filetypes[i]);	} 	return loadtype(t, deftype);} loadtype(t: ref Toplevel, ft: ref Ft): ref Ft{	if(ft.loaded)		return ft; 	s := sys->sprint("image create bitmap %s -file %s.bit -maskfile %s.mask",				ft.tkname, ft.icon, ft.icon);		tk->cmd(t, s); 	ft.loaded = 1;	return ft;} drawdir(t: ref Toplevel){	if(usetext)		drawdirtxt(t);	else		drawdirico(t);} drawdirtxt(t: ref Toplevel){	if(daytime == nil) {		daytime = load Daytime Daytime->PATH;		if(daytime == nil) {			dialog->prompt(ctxt, t.image, "error -fg red", "Load Module",				sys->sprint("Trying to load \"%s\"\n%r", Daytime->PATH),				0, "Continue"::nil);			return;		}		now = daytime->now();	} 	y := 10;	for(i := 0; i < nde; i++) {		tp := "file";		if(de[i].mode & Sys->DMDIR)			tp = "dir ";		else		if(de[i].mode & 8r111)			tp = "exe ";		s := sys->sprint("%s %7bd %s %s",			tp,			de[i].length,			daytime->filet(now, de[i].mtime),			de[i].name);		id := tk->cmd(t, ".fc.c create text 10 "+string y+				" -anchor w -text {"+s+"}"); 		base := ".fc.c bind "+id;		tk->cmd(t, base+" <Double-Button-1> {send fc %b "+string i+"}");		tk->cmd(t, base+" <Button-3> {send fc %b "+string i+"}");		tk->cmd(t, base+" <Motion-Button-3> {}");		y += 15;	} 	x := int tk->cmd(t, ".fc.c cget actwidth");	tk->cmd(t, ".fc.c configure -scrollregion { 0 0 "+string x+" "+string y+"}");} drawdirico(t: ref Toplevel){	w := int tk->cmd(t, ".fc.c cget actwidth"); 	longest := 0;	for(i := 0; i < nde; i++) {		l := len de[i].name;		if(l > longest)			longest = l;	}	longest += 2; 	minw := (longest*Fontwidth);	if( w < minw ){		w = minw + int tk->cmd(t, ".fc.scroll cget actwidth");		tk->cmd(t, ". configure -width "+string w);		w = minw;	} 	xwid := Xwidth;	x := w/minw;	x = w/x;	if(x > xwid)		xwid = x; 	x = xwid/2;	y := 20; 	for(i = 0; i < nde; i++) {		sx := string x;		ft := filetype(t, de[i], de[i].name);		img := ft.tkname;				id := tk->cmd(t, ".fc.c create image "+sx+" "+				string y+" -image "+img);		tk->cmd(t, ".fc.c create text "+sx+				" "+string (y+25)+" -text "+de[i].name); 		base := ".fc.c bind "+id;		tk->cmd(t, base+" <Double-Button-1> {send fc %b "+string i+"}");		tk->cmd(t, base+" <Button-2> {send fc %b "+string i+"}");		tk->cmd(t, base+" <Motion-Button-2> {}");		tk->cmd(t, base+" <Button-3> {send fc %b "+string i+"}");		tk->cmd(t, base+" <Motion-Button-3> {}");		x += xwid;		if(x > w) {			x = xwid/2;			y += 50;		}	}	y += 50;	x = int tk->cmd(t, ".fc.c cget actwidth");	tk->cmd(t, ".fc.c configure -scrollregion { 0 0 "+string x+" "+string y+"}");} sysname(): string{	syspath := "#c";

Lines 1–500 of 511. Load more