Return to lineops.c CVS log

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

Annotation of researchv9/jtools/src/pads/x11/lineops.c, revision 1.1.1.1

1.1       root        1: #include "univ.h"
                      2: 
                      3: DoCut(l)
                      4: register Line *l;
                      5: {
                      6:        if( l->attributes & USERCUT ){
                      7:                HostParent = Selected.pad->object;
                      8:                HostObject = l->object;
                      9:                ToHost( P_USERCUT /*, garbage */ );
                     10:        }
                     11:        if( !(l->attributes&DONT_CUT) ) DelLine(l);
                     12: }
                     13: 
                     14: CutLine()
                     15: {
                     16:        if(!Selected.line) return;
                     17:        DoCut(Selected.line);
                     18:        Paint(Selected.pad);
                     19: }
                     20: 
                     21: Sever()
                     22: {
                     23:        register Line *l = Selected.line, *lu;
                     24: 
                     25:        if(!l) return;
                     26:        for( ; l != &Selected.pad->sentinel; l = lu ){  /* ISLINE */
                     27:                lu = l->up;
                     28:                DoCut(l);
                     29:        }
                     30:        Paint(Selected.pad);
                     31: }

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