LiveCode Forums.

Code: Select all

     repeat until tStop is true
          put char -1 of tNewPath into tChar
          switch tChar
               case space
               case cr
                    delete char -1 of tNewPath
                    break
               default 
                    put true into tStop
                    break
          end switch
     end repeat

Code: Select all

on mouseUp
   answer file "choose SVG-File"
   if it is empty then exit mouseUp
   put url ("file:" & it) into tData
   set the lineDelimiter to " d=" & quote -- begin of path
   set the itemDelimiter to quote -- end of path
   repeat with i = 2 to the number of lines of tData
      put word 1 to - 1 of item 1 of line i of tData  after tCollect -- no problem with trailing spaces or returns
   end repeat
   replace "m" with cr & cr &"M" in tCollect -- for some svgs it helps to make "M" absolute = capital M
   replace comma with space in tCollect -- so it fits into a field in case it is comma delimited
  
   put word 1 to - 1 of tCollect into tCollect -- no problem with returns
   put tCollect into field "fSVGData"
end mouseUp

Code: Select all

on mouseUp
   ## Load custom icons
   put specialFolderPath("resources") & "/customIconData.json" into tSVGDataFile
   put jsonToArray(url ("file:" & tSVGDataFile)) into tSVGDataArray
   
   repeat with x = 1 to the number of elements in tSVGDataArray
      addIcon tSVGDataArray[x]["name"],tSVGDataArray[x]["path"],tSVGDataArray[x]["codepoint"]
   end repeat
end mouseUp

Code: Select all

 addIconFamily "FPIcons",the cFPIcons of this stack
 setCurrentIconFamily "FPIcons"