Artifact e7f6a84fa169ba427f520ba7ab44ad3c5597a24e:

• File jni/tclJBlend/src/tests/tcljava/tests/HoldRefCmd.java — part of check-in [5b3c8c763d] at 2019-02-25 06:48:42 on branch trunk — first try of tclJBlend on Android (user: chw size: 1169) [more...]

/* 
 * HoldRefCmd.java --
 *
 *      This file tests incrementing and decrementing a
 *      the ref count of a native object.
 *
 * Copyright (c) 2002 by Mo DeJong
 *
 * See the file "license.terms" for information on usage and redistribution
 * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: HoldRefCmd.java,v 1.1 2002/12/21 04:05:08 mdejong Exp $
 */

package tests;

import tcl.lang.*;
import java.util.Vector;
import java.util.Enumeration;

public class HoldRefCmd implements CommandWithDispose {
    Vector holding = new Vector();

    public void 
    cmdProc(
	Interp interp,
	TclObject[] objv)
    throws TclException
    {
        if (objv.length != 2) {
            throw new TclNumArgsException(interp, 1, objv, "obj");
        }
        TclObject hold = objv[1];
        hold.preserve();
        holding.addElement(hold);
    }

    // Called when the command is deleted

    public void
    disposeCmd()
    {
        TclObject hold;
        Enumeration search;
        for (search = holding.elements(); search.hasMoreElements() ; ) {
            hold = (TclObject) search.nextElement();
            hold.release();
	}
    }
}