%
% save the value content
%
% stack: field-name value
%
 unescape !Val.Fvalue unescape !Val.Field
%
% check for new/replace value
% check for Value name existing in grid
%
 _Val.Field
 0 -1
 0
 @^Col=Find
"col=" log)(
 {
%
% stack: row-index
%
  @_Row
"row" log)(
  !Edit
  _Val.Fvalue
  1 @!Cell @!Cell@=
  2 @!Cell @_Cell= isnull)
  {
   "()" @!Cell@=
  } if
 }
 {
%
% this value does not exist in grid
% add a new row with this value info
%
  @_Rows !Edit
  @^Row+
  _Val.Fvalue _Val.Field *fridsetv
  "+" 2 @!Cell @!Cell@=
 } ifelse