/*----------------------------------------------------------------------------//
!short: SAY Y GET */
#xcommand @ <nRow>, <nCol> SAY [ <oSay> <label: PROMPT SAY,VAR SAY > ] <cText> GET [ <oGet> VAR ] <uVar> ;
[ <pictsay: PICT SAY, PICTURE SAY> <cPictsay> ] ;
[ <dlg: OF,WINDOW,DIALOG > <oWnd> ] ;
[ FONT <oFont> ] ;
[ <lCentersay: CENTERED SAY, CENTER SAY > ] ;
[ <lRightsay: RIGHT SAY > ] ;
[ <lBorder: BORDER SAY > ] ;
[ <colorsay: COLOR SAY,COLORS SAY > <nClrTextsay> [,<nClrBacksay> ] ] ;
[ SIZE SAY <nWidthsay>, <nHeightsay> ] ;
[ <designsay: DESIGN SAY> ] ;
[ <updatesay: UPDATE SAY> ] ;
[ <lShaded: SHADED SAY, SHADOW SAY> ] ;
[ <lBox: BOX SAY > ] ;
[ <lRaised: RAISED SAY> ] ;
[ <adj: ADJUST SAY> ] ;
[ <lTrans: TRANSPARENT SAY>];
[ <pict: PICT, PICTURE> <cPict> ] ;
[ VALID <ValidFunc> ] ;
[ <color: COLOR,COLORS> <nClrFore> [,<nClrBack>] ] ;
[ SIZE <nWidth>, <nHeight> ] ;
[ <design: DESIGN> ] ;
[ CURSOR <oCursor> ] ;
[ MESSAGE <cMsg> ] ;
[ <update: UPDATE> ] ;
[ WHEN <uWhen> ] ;
[ <lCenter: CENTER, CENTERED> ] ;
[ <lRight: RIGHT> ] ;
[ ON CHANGE <uChange> ] ;
[ <readonly: READONLY, NO MODIFY> ] ;
[ <pass: PASSWORD> ] ;
[ <lNoBorder: NO BORDER, NOBORDER> ] ;
[ <help:HELPID, HELP ID> <nHelpId> ] ;
[ ACTION <uAction> ] ;
[ BITMAP <cBmpName> ] ;
[ CUEBANNER <cCueText> ] ;
=> ;
[ <oSay> := ] TSay():New( Row2Pxl(<nRow>), Col2Pxl(<nCol>)/2, <{cText}>,;
[<oWnd>], [<cPictsay>], FontSay(<oFont>), <.lCentersay.>, <.lRightsay.>, <.lBorder.>,;
.T., <nClrTextsay>, <nClrBacksay>, SIZE_LARGO(<cText>,<cPictsay>)-8, SIZE_ANCHO(.f.),;
<.designsay.>, <.updatesay.>, <.lShaded.>, <.lBox.>, <.lRaised.>, <.adj.>,;
<.lTrans.>, [<(oSay)>] ) ;;
[ <oGet> := ] TGet():New( Row2Pxl(<nRow>), Col2Pxl(<nCol>)/2+SIZE_LARGO(<cText>)-4, bSETGET(<uVar>),;
[<oWnd>], SIZE_LARGO(<uVar>,<cPict>), SIZE_ANCHO(.f.), <cPict>, <{ValidFunc}>,;
<nClrFore>, <nClrBack>, FontGet(), <.design.>,;
<oCursor>, .T., <cMsg>, <.update.>, <{uWhen}>,;
<.lCenter.>, <.lRight.>,;
[\{|nKey, nFlags, Self| <uChange>\}], <.readonly.>,;
<.pass.>, [<.lNoBorder.>], <nHelpId>,,,,,, [\{|self| <uAction> \}],;
<cBmpName>, [<(oGet)>], [<cCueText>] )