LiveCode Forums.

Code: Select all

on mouseUp
   put " of" && the name of this stack into tStackName
   put " of" && the name of this card into tCardName
   repeat with i = 1 to the number of controls of this card
      put the abbrev id of control i & tCardName & tStackName & return after tCollect
   end repeat
   delete last char of tCollect -- a return
   put tCollect into field 1
end mouseUp

Code: Select all

set the custompropertyset of  stack "NameOfTheStack" to "Italiano"

Code: Select all

set the custompropertyset of  stack "NameOfTheStack" to "English"

Code: Select all

set the label of me to the btn_001 of  stack "NameOfTheStack"

Code: Select all

on mouseUp
    lock screen
    set the lockmessages to true
    --put the long id of this card into tStartPoint if you have to move form this card
    --list all stacks in memory
    put revLoadedStacks(Application) into TheStacks
    set the itemdel to "|" --to separate the properties
    repeat for each line tStack in TheStacks
        put " of" && the name of  stack tStack into tStackName
        repeat for each line tCardID in the cardIDS of stack tStack
            put " of" && the name of card ID tCardID  into tCardName
            repeat with i = 1 to the number of controls of card ID tCardID of  stack tStack
                put the abbrev id of control i of card ID tCardID of stack tStack & tCardName & tStackName  into tControl
                put the label of tControl into item 1 of tControlA[tControl] --the label if there is one
                put  the text of tControl into item 2 of tControlA[tControl] --the text if there is one
                put  the tooltip of tControl into item 3 of tControlA[tControl] --the tooltip if there is one
                replace return with "§" in tControlA[tControl] --this is because the text file must be readable (some items may have return on it)
            end repeat
        end repeat
    end repeat
    --make a text file to save to the desktop
    combine tControlA using return and "|"
    put specialfolderPath("Desktop") & "/ListOfTerms.txt" into tPath
    put tControlA into URL ("file:" & tPath)
set the lockmessages to false
    unLock screen
end MouseUp

Code: Select all

 On mouseUp
--now retrieve it
lock screen
    set the lockmessages to true
    put URL ("file:" & tPath) into tControlA
    split tControlA using Return and "|"
    ---we have the text, now put it back
    repeat for each line tControl in the keys of tControlA
        replace "§" with return in tControlA[tControl] --some item may have a return (like btn lists)
        if item 1 of tControlA[tControl] is not empty then
            set the label of tControl to item 1 of tControlA[tControl]
        end if
        if item 2 of tControlA[tControl] is not empty then
            set the text of tControl to item 2 of tControlA[tControl]
        end if 
        if item 3 of tControlA[tControl] is not empty then
            set the tooltip of tControl to item 3 of tControlA[tControl]
        end if 
    end repeat
  
    --go tStartPoint   -eventually go back to where you were
    set the lockmessages to false
    unLock screen

Code: Select all

on mouseUp
   lock screen
   set the lockmessages to true
   --put the long id of this card into tStartPoint if you have to move form this card
   --list all stacks in memory
   put revLoadedStacks(Application) into TheStacks
   repeat for each line tStack in TheStacks
      put " of" && the name of  stack tStack into tStackName
      repeat for each line tCardID in the cardIDS of stack tStack
         put " of" && the name of card ID tCardID  into tCardName
         repeat with i = 1 to the number of controls of card ID tCardID of  stack tStack
            put the abbrev id of control i of card ID tCardID of stack tStack & tCardName & tStackName  into tControl
            put the label of tControl into tControlA[tControl]["label"] --the label if there is one
            put  the text of tControl into tControlA[tControl]["text"] --the text if there is one
            put  the tooltip of tControl into tControlA[tControl]["toolTip"] --the tooltip if there is one
         end repeat
      end repeat
   end repeat
   put arrayEncode(tControlA) into tControlA
  
   put specialfolderPath("Desktop") & "/ListOfTerms.bin" into tPath
   put tControlA into URL ("binfile:" & tPath)
   set the lockmessages to false
   unLock screen
end MouseUp

Code: Select all

On mouseUp
   --now retrieve it
   lock screen
   set the lockmessages to true
   put specialfolderPath("Desktop") & "/ListOfTerms.bin" into tPath
   put URL ("binfile:" & tPath) into tControlA
   put arrayDecode(tControlA) into tControlA
   
   ---we have the text, now put it back
   repeat for each key tControl in tControlA
      -- check if stack is really open do something about non open stacks herre
      -- currently it just skips the stack that is not open
      put word -2 to - 1 of tControl into tStackName
      if not (there is (tStackName)) then next repeat
      
      repeat for each key aProp in tControlA[tControl]
         set the aProp of tControl to tControlA[tControl][aProp]
      end repeat
   end repeat
   
   --go tStartPoint   -eventually go back to where you were
   set the lockmessages to false
   unLock screen
   
end mouseUp