Fixed procedure renaming

nathan · nathan · commit 45fb50a3bfe5 · 2014-05-12T18:57:43.000-04:00
diff --git a/src/scratch/BlockMenus.as b/src/scratch/BlockMenus.as
@@ -563,7 +563,7 @@ public class BlockMenus implements DragClient {
 			if (block.nextBlock) block.nextBlock.allBlocksDo(function(b:Block):void {
 				if (b.op == Specs.GET_PARAM) b.parameterIndex = -1; // parameters may have changed; clear cached indices
 			});
-			for each (var caller:Block in app.runtime.allCallsOf(oldSpec)) {
+			for each (var caller:Block in app.runtime.allCallsOf(oldSpec, app.viewedObj())) {
 				var oldArgs:Array = caller.args;
 				caller.setSpec(newSpec, block.defaultArgValues);
 				for (var i:int = 0; i < oldArgs.length; i++) {
diff --git a/src/scratch/ScratchRuntime.as b/src/scratch/ScratchRuntime.as
@@ -728,12 +728,12 @@ public class ScratchRuntime {
 		return result;
 	}
 
-	public function allCallsOf(callee:String):Array {
+	public function allCallsOf(callee:String, owner:ScratchObj):Array {
 		var result:Array = [];
-		for each (var stack:Block in allStacks()) {
+		for each (var stack:Block in owner.scripts) {
 			// for each block in stack
 			stack.allBlocksDo(function (b:Block):void {
-				if ((b.op == Specs.CALL) && (b.spec == callee)) result.push(b);
+				if (b.op == Specs.CALL && b.spec == callee) result.push(b);
 			});
 		}
 		return result;
