Re: Cursor command not working

Buzz Kettles Mon, 22 Mar 2004 09:13:52 -0800

Are you trying to make a something that behaves like a hypertext link?

btw - doing a repeat loop inside a mouseWithin seems like it will cause performance problems

there must be a better way to do what you are trying to do.

hth
-Buzz

At 10:10 AM -0500 3/22/04, you wrote:

Hi list...

What would cause a cursor command not to work in a mouseWithin handler? Below, it gets to the cursor line, but doesn't do anything.

Thanks,
Michael M.

on mouseWithin(me)
  if pContentType = "text" then
    if pSp.member.type = #text then
      theChar = pSp.pointToChar(the mouseLoc)
      if not voidP(pLinksAndData) then
        repeat with i = 1 to pLinksAndData.count
          --theBeginRange = pLinksAndData[i][1][1]
          --theEndRange = pLinksAndData[i][1][2]
          if (theChar >= pLinksAndData[i][1][1]) and (theChar <=
pLinksAndData[i][1][2]) then
            cursor [member("linkCursor",
"sharedAssets"),member("linkCursorMask", "sharedAssets")]
            if the mouseDown then

pSp.member.char[(pLinksAndData[i][1][1])..(pLinksAndData[i][1][2])].colo
r = rgb(0,0,0) -- clicking on the link
            else

pSp.member.char[(pLinksAndData[i][1][1])..(pLinksAndData[i][1][2])].colo
r = rgb(0,147,234) -- hover over the link
            end if
            exit
          else

pSp.member.char[(pLinksAndData[i][1][1])..(pLinksAndData[i][1][2])].colo
r = rgb(0,112,178) -- not on the link
            cursor (-1)
            exit
          end if
        end repeat
      end if
    end if
  end if
end

[To remove yourself from this list, or to change to digest mode, go to http://www.penworks.com/lingo-l.cgi To post messages to the list, email [EMAIL PROTECTED] (Problems, email [EMAIL PROTECTED]). Lingo-L is for learning and helping with programming Lingo. Thanks!]

Re: Cursor command not working

Reply via email to