LiveCode Forums.

Code: Select all

on mouseEnter
   if the optionkey is down then
      get fld 1
      set the origContents of fld 1 to it
      
      repeat with y = 1 to the number of lines of it
         if y mod 2 = 0 then put line y of it & return after evens
         else put line y of it & return after odds
      end repeat
      set the label of me to "Even" -- or "Odd", if you want, when initializing
      set the evenContents of fld 1 to evens
      set the oddContents of fld 1 to odds
   end if
end mouseEnter

on mouseUp
      if the label of me = "Even" then
         set the label of me to "Odd"
         set the text of of fld 1 to the evenContents of fld 1
      else
         set the label of me to "Even"
         set the text of of fld 1 to the oddContents of fld 1
      end if
end mouseUp

Code: Select all

on mouseUp
   put empty into fld "F2"
   put 1 into LYNE
   repeat until line LYNE of fld "F1" is empty
      put ((line LYNE of fld "F1") & cr ) after fld "F2"
      add 2 to LYNE
   end repeat
end mouseUp

Code: Select all

on mouseUp
   repeat with i = 1 to the number of lines of field 1
      if i mod 2 is 0 then 
         set the hidden of line i of field 1 to true
      end if
   end repeat
end mouseUp

Code: Select all

on mouseUp
   set the hidden of line 1 to -1 of field 1 to false
end mouseUp

Code: Select all

on mouseUp
   repeat with i = 1 to the number of lines of field "F1"
         set the hidden of line i of field "F1" to false
   end repeat
end mouseUp