This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
put the title of stack "revNewScriptEditor 1" into tObject | |
set the itemDel to "-" | |
delete item -1 of tObject | |
put the script of tObject |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
on keyDown tkey | |
if tKey is not a number then | |
exit keyDown | |
else | |
pass keyDown | |
end if | |
end keyDown |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
on returnInField | |
exit to top | |
end returnInField |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--escape returns and quotes | |
replace return with "\n" in myStringe | |
replace quote with "\" & quote in myString |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
---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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--custom properties of stack | |
--cpAppPath : path to app | |
--cpDatabaseID : current active database connection number | |
--cpDataBaseName : name of database to access | |
on openCard | |
mobileOrientation | |
getAppPath | |
nameDataBase |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
if the platform is "android" then | |
set the fullscreenmode of this stack to "showAll" | |
mobileSetAllowedOrientations "portrait,portrait upside down" | |
end if |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
function isBright r,g,b | |
local tbrightness | |
put (r * 299 + g * 587 + b * 114) / 1000 into tbrightness | |
if tbrightness > 125 then | |
return "no" | |
else | |
return "yes" | |
end if | |
end isBright |
NewerOlder