To summarize the new version of vmrun explicitly, over-write the existing
version thusly:
vmrun_jviewmat_=: 4 : 0
SHOW=: 0
ifRGB=: x -: 'rgb'
'DAT MAT ANG TITLE'=: x getvm y
wd 'pc jvm;pn *',TITLE
NB. if. IFWINCE do.
NB. a=. 0 ". wd 'qm'
NB. s=. -: ({.a),-/15 13 { a
NB. wd 'xywh 0 0 ',":s
NB. wd 'cc g isigraph;pas 0 0;pcenter'
NB. else.
NB. wd 'xywh 0 0 180 180;cc g isigraph rightmove bottommove;pas 0
0;pcenter'
NB. end.
wd 'xywh 0 0 180 180;cc g isigraph rightmove bottommove;pas 0 0;pcenter'
HWNDP=: wd 'qhwndp'
hcascade''
hadd''
mat=. finite MAT
'rws cls'=. $mat
gwh=. glqwh''
mwh=. cls,rws
if. -. ifRGB do.
mwh=. MINWH >. <. mwh * <./ gwh % cls,rws
end.
dif=. mwh - gwh
'fx fy fw fh'=. 0 ". wd 'qformx'
NB. wd 'pmovex ',": 0 >. fx,fy,dif + fw,fh
NB. wd 'pshow'
wd 'pmovex ',": 0 >. fx,fy,dif + fw,fh
jvm_show '' NB. DM 2008 12 16
wd 'pshow'
)
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
