--> Script Locals

constant kPlaceholderTextColor = "125,125,125"

local sDefaultTextIsDisplayed ## Keeps track of whether or not default text is being displayed


--> Accessors

getprop uText
   if sDefaultTextIsDisplayed then
      return empty
   else
      return the text of me
   end if
end uText


setprop uText pText
   lock screen
   _ClearDefaultText
   set the text of me to pText
   _DisplayDefaultText
   unlock screen
end uText


getprop uUTF8Text
   if sDefaultTextIsDisplayed then
      return empty
   else
      return unidecode(the unicodetext of me, "utf8")
   end if
end uUTF8Text


setprop uUTF8Text pText
   lock screen
   _ClearDefaultText
   set the unicodetext of me to uniencode(pText, "UTF8")
   _DisplayDefaultText
   unlock screen
end uUTF8Text


--> Engine messages


on openField
   ## If default text is displayed then clear it out
   _ClearDefaultText
   pass openField
end openField


on closeField
   _DisplayDefaultText
   pass closeField
end closeField


on exitField
   _DisplayDefaultText
   pass exitField
end exitField


private command _ClearDefaultText
   if sDefaultTextIsDisplayed then
      lock screen
      set the text of me to empty
      set the textcolor of me to empty ## inherit default color
      unlock screen
   end if
   
   ## Reset
   put false into sDefaultTextIsDisplayed
end _ClearDefaultText


private command _DisplayDefaultText
   ## Reset
   put false into sDefaultTextIsDisplayed
   
   ## Is text empty?
   if the text of me is empty then
      ## Am I focused? If so then don't do anything.
      if the focusedobject is not the long id of me then
         lock screen
         set the text of me to the uPlaceholderText of me
         set the textcolor of me to 125,125,125
         put true into sDefaultTextIsDisplayed
         unlock screen
      end if
   end if
end _DisplayDefaultText