on constructStringServices  
  return(createManager(#string_services, getClassVariable("string.services.class")))
end

on deconstructStringServices  
  return(removeManager(#string_services))
end

on getStringServices  
  tMgr = getObjectManager()
  if not tMgr.managerExists(#string_services) then
    return(constructStringServices())
  end if
  return(tMgr.getManager(#string_services))
end

on convertToPropList tString, tDelimiter 
  tOldDelim = the itemDelimiter
  if voidp(tDelimiter) then
    tDelimiter = ","
  end if
  the itemDelimiter = tDelimiter
  tProps = [:]
  i = 1
  repeat while i <= tString.count(#item)
    tPair = tString.getPropRef(#item, i).getProp(#word, 1, tString.getPropRef(#item, i).count(#word))
    tProp = tPair.getProp(#char, 1, (offset("=", tPair) - 1))
    tValue = tPair.getProp(#char, (offset("=", tPair) + 1), length(tString))
    tProps.setAt(tProp.getProp(#word, 1, tProp.count(#word)), tValue.getProp(#word, 1, tValue.count(#word)))
    i = (1 + i)
  end repeat
  the itemDelimiter = tOldDelim
  return(tProps)
end

on convertToLowerCase tString 
  return(getStringServices().convertToLowerCase(tString))
end

on convertToHigherCase tString 
  return(getStringServices().convertToHigherCase(tString))
end

on convertSpecialChars tString 
  return(getStringServices().convertSpecialChars(tString))
end

on convertIntToHex tInt 
  return(getStringServices().convertIntToHex(tInt))
end

on convertHexToInt tHex 
  return(getStringServices().convertHexToInt(tHex))
end

on replaceChars tString, tCharA, tCharB 
  return(getStringServices().replaceChars(tString, tCharA, tCharB))
end

on replaceChunks tString, tChunkA, tChunkB 
  return(getStringServices().replaceChunks(tString, tChunkA, tChunkB))
end