Hiliting/Dehiliting Fields

Date: Fri, 06 Feb 1998 10:44:56 +0100
From: berniecc@hotmail.com
Subject: Handler for De/Hilite lines of fields

---------------------------------------------------------------------
on hHiliteFieldLine
  --  Invoked from mouseDown to hilite lines of a clicked field
  -- Allows dragging, in this case repaints the lines in which the mouse
is on
  -- Returns the number of the clicked line or 0 if out
  set tFld = the name of member (the member of sprite the clickOn)
  set tNumLine = 0
  set tDeselect = (the number of chars in field tFld) + 1
  repeat while the stillDown
    if tNumLine <> the mouseLine then
      set tNumLine = the mouseLine
      if the mouseLine = -1 then hilite char tDeselect of field tFld
      else
        if tNumLine > 0 then hilite line (tNumLine) of field tFld
        else nothing
      end if
    end if
  end repeat
  return tNumLine
end hHiliteFieldLine