/[navidoc]/navidoc/navidoc/mp/uml.mp
ViewVC logotype

Diff of /navidoc/navidoc/mp/uml.mp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.1 by humppake, Wed Mar 26 15:36:17 2003 UTC revision 1.2 by humppake, Thu Mar 27 09:33:48 2003 UTC
# Line 416  enddef; Line 416  enddef;
416  vardef strpair(expr p) =  vardef strpair(expr p) =
417      (decimal((xpart(p))) & "," & decimal((ypart(p))) )      (decimal((xpart(p))) & "," & decimal((ypart(p))) )
418  enddef;  enddef;
419  vardef showlink(expr name, p) =  vardef showlink(expr target, title, p) =
420      fill p withcolor (0.8, 0.9, 1);      fill p withcolor (0.8, 0.9, 1);
421      showlinksize(name, p);      showlinksize(target, title, p);
422  enddef;  enddef;
423  vardef showlinkerror(expr name, p) =  vardef showlinkerror(expr target, title, p) =
424      showlinksize(name, p);      showlinksize(target, title, p);
425      draw classTitle("BROKEN LINK") shifted ulcorner(p) withcolor (1, 0, 0);      draw classTitle("BROKEN LINK") shifted ulcorner(p) withcolor (1, 0, 0);
426  enddef;  enddef;
427  vardef showfocus(expr name, p) =  vardef showfocus(expr target, title, p) =
428      fill p withcolor (9, 0.8, 0.7);      fill p withcolor (9, 0.8, 0.7);
429      showlinksize(name, p);      showlinksize(target, title, p);
430  enddef;  enddef;
431  vardef showlinksize(expr name, p) =  vardef showlinksize(expr target, title, p) =
432      show "LINKRECT("& char(34) & name & char(34) & "," & strpair((ulcorner(p))) &","& strpair((lrcorner(p))) & ")"      show "LINKRECT("& char(34) & name & char(34) & "," & strpair((ulcorner(p))) &","& strpair((lrcorner(p))) & ")"
433  enddef;  enddef;
434    

Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26