implement iFontPeer_L; # javal v1.5 generated file: edit with care include "jni.m";    jni : JNI;        ClassModule,        JString,        JArray,        JArrayI,        JArrayC,        JArrayB,        JArrayS,        JArrayJ,        JArrayF,        JArrayD,        JArrayZ,        JArrayJObject,        JArrayJClass,        JArrayJString,        JClass,        JThread,        JObject : import jni; #>> extra pre includes here ##  %W% - %E%# Value : import jni;sys : import jni;  # std inferno Sys modoulestr : import jni;  # std inferno String module# jldr : import jni; # primary java class loader, JavaClassLoader # draw.m is included by something included by jni.mdraw : Draw;Font : import Draw; #<< include "iFontPeer_L.m"; #>> extra post includes here cast : Cast;ctxt : ref Draw->Context; # for ref to Display #<< init( jni_p : JNI ){    # save java native inteface mod instance    jni = jni_p;    #>>extra initialization here     sys = jni->sys;      # should not I share draw with at least the rest of the AWT    # graphics world ?    draw = load Draw Draw->PATH;    # sys->print("iFontPeer_L: draw=%x\n",draw);     # Why is getting Cast module handle from jni different     # than getting  Sys, Math, and String modules handles from jni?    # cast = jni->CastMod();    ctxt = jni->getContext();    if (ctxt == nil) {	# Eventually the print can be removed, throwing the	# Exception will suffice.    	sys->print("iFontPeer_L.init: ctxt == nil, can't get Draw Context!\n");	jni->ThrowException("java.awt.AWTError", "can't get Draw Context");    }    #<<} initFontPeer_rString_V( this : ref iFontPeer_obj, p0 : JString){#>>     ifp := p0.str;    #sys->print("initFontPeer_V: this.ifpathname=%s\n",ifp);     this.iFontRef = draw->Font.open(ctxt.display, ifp);    fontref := this.iFontRef;        if (nil == fontref) {    	sys->print("iFontPeer_L: can't open font %s - %r\n",ifp);    	jni->ThrowException("java.io.FileNotFoundException", ifp);    }        # sys->print("iFontPeer_L: this=%#x\n",this);    # sys->print("iFontPeer_L: this.iFontRef=%#x, draw=%#x\n",this.iFontRef, draw);            # make native Font information visible in javaland        #this.iName.str = fontref.name;    this.iName = jni->NewString(fontref.name);        this.iAscent = fontref.ascent;    this.iHeight = fontref.height;            ## if there is some height to spare, fudge a pixel of leading    # if ((fontref.height - fontref.ascent) > 2) {    # 	this.fLeading = 1;    # }    this.fLeading = 0;        # sys->print("this.iFontRef=%x\n",this.iFontRef);    # sys->print("this.iAscent=%x\n",this.iAscent);    # sys->print("this.iHeight=%x\n",this.iHeight);    # sys->print("this.fLeading=%x\n",this.fLeading);}#<<