<MetaLanguage>
<!--
Description: Custom VB6 Language migration rules; migrate to gmRTL.GUI.PictureBox rather then gmRTL.GUI.ControlHelpers
Note: there are also some changes needed in 

 
-->
<Refactor id="Basic" >
<Replace id="patterns">
   <pattern id="TYP">
      <subcode id="PictureBox">
         <all role="control" narg="0" code="gmRTL.GUI.PictureBox"/>
      </subcode>
   </pattern>
   <pattern id="PBX">
         <subcode id="Circle">
            <all role="method" narg="9" code="%1d.Circle(%3d,%4d,%5d,%6o)\c" />
         </subcode>
         <subcode id="Cls">
            <all role="method" narg="1" code="%1d.Cls()\c" />
         </subcode>
         <subcode id="Line">
            <all role="method" narg="9" code="%1d.Line(%3d,%4d,%6d,%7d,%8d)\c" />
         </subcode>
         <subcode id="PaintPicture">
            <all role="method" narg="11" code="%1d.PaintPicture(%2d,%3d,%4d,%5o,%6o,%7o,%8o,%9o,%jo,%ko)\c" />
         </subcode>
         <subcode id="Point">
            <all role="method" narg="3" code="%1d.Point(%2d,%3d)" />
         </subcode>
         <subcode id="PSet">
            <all role="method" narg="5" code="%1d.PSet(%3d,%4d,%5d)\c"  />
         </subcode>   
         <subcode id="Point">
            <all role="method" narg="3" code="%1d.Point(%2d,%3d)" />
         </subcode>         
         <subcode id="Print">
            <all role="method" narg="2" code="%1d.Print(%2o)\c" />
         </subcode>
         <subcode id="ScaleWidth">
            <all role="property" narg="0" code="ScaleWidth" />
         </subcode>
         <subcode id="ScaleHeight">
            <all role="property" narg="0" code="ScaleHeight" />
         </subcode>
         <subcode id="ScaleTop">
            <all role="property" narg="0" code="ScaleTop" />
         </subcode>
         <subcode id="ScaleLeft">
            <all role="property" narg="0" code="ScaleLeft" />
         </subcode>
         <subcode id="ScaleMode">
            <all role="property" narg="0" code="Test" />
         </subcode>
   </pattern>
   <pattern id="ANA">
      <subcode id="DrawRectangle">
         <all role="method" narg="9" code="%1d.DrawRectangle(%3d,%4d,%6d,%7d,%8d)\c" />
      </subcode>
      <subcode id="FillRectangle">
         <all role="method" narg="9" code="%1d.FillRectangle(%3d,%4d,%6d,%7d,%8d)\c" />
      </subcode>   
   </pattern>
</Replace>

<!--
Type=Single: suppress Twips-to-Pixels, Status=byVal: suppress gmRTL methods
-->
<Migrate id="PictureBox.CurrentX" type="Single" status="ByVal" />
<Migrate id="PictureBox.CurrentY" type="Single" status="ByVal" />
<Migrate id="PictureBox.ScaleWidth" type="Single" status="ByVal"  />
<Migrate id="PictureBox.ScaleHeight" type="Single" status="ByVal"  />
<Migrate id="PictureBox.ScaleTop" type="Single" status="ByVal"  />
<Migrate id="PictureBox.ScaleLeft" type="Single" status="ByVal"  />
<Migrate id="PictureBox.ScaleMode" status="ByVal"  />
</Refactor>
</MetaLanguage>