AndyPiddock

put the title of stack "revNewScriptEditor 1" into tObject
      
set the itemDel to "-"
delete item -1 of tObject
put the script of tObject

AndyPiddock

on keyDown tkey
   if tKey is not a number then
      exit keyDown
   else
      pass keyDown
   end if
end keyDown

AndyPiddock

on returnInField
   exit to top   
end returnInField

AndyPiddock

local tCountdown

function countdown pPeriod, pAction
   set the numberFormat to "00."   
   if pAction = "Start" then
      put pPeriod into tCountdown
      repeat while tCountdown > -1
         put tCountdown div 60 & ":" & (tCountdown mod 60) into field "timer"
         wait 1 second with messages
         subtract 1 from tCountdown

AndyPiddock

--Long Press

on mouseDown
  put the ticks into tStart
  wait until the mouse is up
  if the ticks - tStart < 20 then answer "Short Press"
  else answer "Long Press"
end mouseDown

AndyPiddock

   if the platform is "android" then
      set the fullscreenmode of this stack to "showAll" 
      mobileSetAllowedOrientations "portrait,portrait upside down"   
   end if

AndyPiddock

on mouseUp  

   local tRequestHeaders, tResponseHeaders, tResult, tBytes, tData
   local tSettings, tCharNo, tUrl
   
   put "https://api.github.com/gists" into tUrl
   
   -- Build headers for HTTP request
   put "Accept: application/vnd.github+json" & cr into tRequestHeaders
   put "User-Agent: LC App" & cr after tRequestHeaders

AndyPiddock

---colorize the script in a field to the SE current colors
      put the num of chars of fld "myField" of this stack into tEndChar
      dispatch "revSEColorizeField" to stack "revseutilities" with the long id of field "myField" of this stack, 1, tEndChar

AndyPiddock

   --escape returns and quotes
   replace return with "\n" in myStringe
   replace quote with "\" & quote in myString

AndyPiddock

function ConvDate pDate

   convert pDate to dateitems
   put item 1 of pDate into tDateY
   put format("%02d",item 2 of pDate) into tDateM
   put format("%02d",item 3 of pDate) into tDateD
   put format("%02d",item 4 of pDate) into tDateH
   put format("%02d",item 5 of pDate) into tDateMin
   put format("%02d",item 6 of pDate) into tDateS