Return to lineops.c CVS log

Up to [Research Unix] / researchv9 / jtools / src / pads / x11

researchv9-SUN3(old)

#include "univ.h"

DoCut(l)
register Line *l;
{
	if( l->attributes & USERCUT ){
		HostParent = Selected.pad->object;
		HostObject = l->object;
		ToHost( P_USERCUT /*, garbage */ );
	}
	if( !(l->attributes&DONT_CUT) ) DelLine(l);
}

CutLine()
{
	if(!Selected.line) return;
	DoCut(Selected.line);
	Paint(Selected.pad);
}

Sever()
{
	register Line *l = Selected.line, *lu;

	if(!l) return;
	for( ; l != &Selected.pad->sentinel; l = lu ){	/* ISLINE */
		lu = l->up;
		DoCut(l);
	}
	Paint(Selected.pad);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.