LiveCode Forums.

Code: Select all

on mouseUp
   put the clickfield
end mouseUp

Code: Select all

   repeat with i = 1 to the number of items in fld "My_fld"
      set the textstyle of item i of line o of fld "My_fld" to "link"
   end repeat

Code: Select all

--  ### Must be polished still!
on mousedoubleup
   put word 2 of the clickline into MyLine    -- number of clicked line
   put the clickchunk into MyLoc               -- desc. of that was clicked
   put item 1 of the clickloc - the left of me into MyHorz
   put the tabstops of me into MyTSt
   
   if MyLoc is empty then  -- click was not within text
      beep
      exit mousedoubleup
   end if
   
   repeat with i = 1 to the number of items of MyTsT   -- find the number of the clicked item:
      if MyHorz >= item i of MyTst then
         next repeat
      else
         put i into MyItem
         set itemdel to tab
         select item i of line MyLine of the target
         put the selectedtext of me into MyOld
         exit repeat
      end if     
   end repeat
   
-- Custom ASK dialog, you may ignore the cryptic syntax:  (# => return ...) --
   get cDialog("ask", "question", B2H("#" & MyOld & "###Change to:"), MyOld, "OK","Cancel" ,)

   if line 1 of it is not 1 then exit mousedoubleup  -- line 1 returns the button pressed, 1=OK here
   get line 2 of it                                            -- line 2 returns the (possibly changed) tablefield
   get CheckData(it, MyItem)                           -- validation/ sani. function, returns "good" data
   if it is not empty then 
      do "put it into item " & MyItem & " of line "  & MyLine & " of me"
      do "set the textstyle of item " & MyItem & " of line "  & MyLine & " of me to link"
   else exit mousedoubleUp
   if MyOld is not item MyItem of line MyLine of me then  -- data has changed, color it
      set the backcolor of me to "155,225,225"
   end if
   select empty
end mousedoubleup

Code: Select all

on mouseUp
   put the clickfield
end mouseUp