LiveCode Forums.

Code: Select all

on mouseUp
   --this is attached to field  "TextToClick" that contains bilingual (Russian+English) text;
   --this field has its lockText set to true;
   --the purpose of this exercise is to retrieve and display in another field the word that the user has clicked;
   --NOTE:  the mouseChunk and the mouseText are useless in a Unicode field;
   --equally useless is the select command when used with these expressions, as in "select  the mouseChunk";
   
   local locStart, locEnd
   local locEntireText
   local locEscapeCounter
   
   if  the mouseCharChunk is empty then
      set the unicodeText of field "ClickedWord" to uniEncode("You clicked an empty space.", "UTF8")
      exit mouseUp
   end if
   
   put word 2 of the mouseCharChunk into locStart
   put word 4 of the mouseCharChunk into locEnd
   
   --a strategy based on "the number of words in char 1 to locEnd" bombs when the text before locEnd contains the upper case Russian  R (1056);
   --this is probably because the first byte in the two-byte representation of 1056 evaluates to 32, and LC takes it for a word delimiter;
   
   --relying on the accuracy of the values that are returned by the mouseCharChunk is dubious because these are the positions of bytes, not characters:
   -- one byte for each Roman character and two bytes for each non-Roman character; this klills a couple of other strategies
   
   --the strategy below is based of "the selection" and is not dependent on the accuracy of the mouseCharChunk values: the correct chunk is selected anyway
   set useUnicode to true
   put  the unicodeText of field "TextToClick" into locEntireText --this is UTF16
   put uniDecode(locEntireText, "UTF8") into locEntireText --this is UTF8
   
   --look for a word boundary to the left of the click
   repeat until (locStart < 1)
      if byteToNum(byte locStart of locEntireText) is among items of 9, 10, 32 then
         add 1 to locStart
         exit repeat
      end if
      subtract 1 from locStart
   end repeat
   
   --look for a word boundary to the right of the click
   repeat until (locEnd >= length(locEntireText))
      if byteToNum(byte locEnd of locEntireText) is among items of 9, 10, 32 then
         subtract 1 from locEnd
         exit repeat
      end if
      add 1 to locEnd
   end repeat
   
   select char locStart to locEnd of field "TextToClick" 
   set the unicodeText of field "ClickedWord" to the unicodeText of the selection
   
   pass mouseUp
end mouseUp