File: tkCanvas.c.diff

package info (click to toggle)
tkpaint 1.5.4-7
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny
  • size: 640 kB
  • ctags: 186
  • sloc: tcl: 5,564; sh: 327; makefile: 115; ansic: 2
file content (23 lines) | stat: -rw-r--r-- 659 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
*** generic/tkCanvas.c.bug	Fri Dec 11 23:31:58 1998
--- generic/tkCanvas.c	Fri Dec 11 23:50:16 1998
***************
*** 3128,3136 ****
  	    Tcl_WrongNumArgs(interp, first+1, argv, "tagOrId");
  	    return TCL_ERROR;
  	}
! 	(void) StartTagSearch(canvasPtr, argv[1], &search);
! 	if (search.lastPtr != NULL) {
! 	    DoItem(interp, search.lastPtr, uid);
  	}
  	break;
        }
--- 3128,3136 ----
  	    Tcl_WrongNumArgs(interp, first+1, argv, "tagOrId");
  	    return TCL_ERROR;
  	}
! 	itemPtr = StartTagSearch(canvasPtr, argv[first+1], &search);
! 	if (itemPtr->prevPtr != NULL) {
! 	    DoItem(interp, itemPtr->prevPtr, uid);
  	}
  	break;
        }