Click above to get retro games delivered to your door ever month!

#xcommand @ <nRow>, <nCol> METER [ <oMeter> VAR ] <nActual> ;
           [ TOTAL <nTotal> ] ;
           [ SIZE <nWidth>, <nHeight> ];
           [ OF <oWnd> ] ;
           [ <update: UPDATE > ] ;
           [ <lPixel: PIXEL > ] ;
           [ FONT <oFont> ] ;
           [ PROMPT <cPrompt> ] ;
           [ <lNoPercentage: NOPERCENTAGE > ] ;
           [ <color: COLOR, COLORS> <nClrPane>, <nClrText> ] ;
           [ BARCOLOR <nClrBar>, <nClrBText> ] ;
           [ <lDesign: DESIGN> ] ;
     => ;
        [ <oMeter> := ] TMeter():New( <nRow>, <nCol>, bSETGET(<nActual>),;
           <nTotal>, <oWnd>, <nWidth>, <nHeight>, <.update.>, ;
           <.lPixel.>, <oFont>, <cPrompt>, <.lNoPercentage.>,;
           <nClrPane>, <nClrText>, <nClrBar>, <nClrBText>, <.lDesign.> )

#xcommand REDEFINE METER [ <oMeter> VAR ] <nActual> ;
             [ TOTAL <nTotal> ] ;
             [ ID <nId> ];
             [ OF <oWnd> ] ;
             [ <update: UPDATE > ] ;
             [ FONT <oFont> ] ;
             [ PROMPT <cPrompt> ] ;
             [ <lNoPercentage: NOPERCENTAGE > ] ;
             [ <color: COLOR, COLORS> <nClrPane>, <nClrText> ] ;
             [ BARCOLOR <nClrBar>, <nClrBText> ] ;
       => ;
          [ <oMeter> := ] TMeter():ReDefine( <nId>, bSETGET(<nActual>),;
              <nTotal>, <oWnd>, <.update.>, <oFont>, <cPrompt>, <.lNoPercentage.>, ;
              <nClrPane>, <nClrText>, <nClrBar>, <nClrBText> )

/*----------------------------------------------------------------------------//