def set_form_col col1=@curpos
    @curpos = col1 || 0 # NOTE we set the index of cursor here
    c = @col + @col_offset + @curpos - @pcol
    min = @col + @col_offset
    max = min + @width
    c = min if c < min
    c = max if c > max
    #$log.debug " #{@name} FIELD set_form_col #{c}, curpos #{@curpos}  , #{@col} + #{@col_offset} pcol:#{@pcol} "
    setrowcol nil, c
  end
def set_form_col col1=@curpos
    @curpos = col1 || 0 # NOTE we set the index of cursor here
    c = @col + @col_offset + @curpos - @pcol
    min = @col + @col_offset
    max = min + @width
    c = min if c < min
    c = max if c > max
    #$log.debug " #{@name} FIELD set_form_col #{c}, curpos #{@curpos}  , #{@col} + #{@col_offset} pcol:#{@pcol} "
    setrowcol nil, c
  end
sets the visual cursor on the window at correct place
 added here since we need to account for pcol. 2011-12-7
 NOTE be careful of curpos - pcol being less than 0