Merge remote-tracking branch 'origin/release-8.1.6' into merge-release-8.1.6_31.07.17

Author: livecodeali

Toolset/home.livecodescript

@@ -744,7 +744,8 @@ command revInternal__ResetPreferences
    put "false" into tPropsArray["cShowRevolutionStacks"]
    put "22" into tPropsArray["cMenuHeight"]
    put "1067,251,1882,827" into tPropsArray["cRevDocsRect"]
-   put "Black" into tPropsArray["cBackDropColor"]
+   put "Gray88" into tPropsArray["cBackDropColor"]
+   put "Gray88" into tPropsArray["cBackdrop"]
    put "false" into tPropsArray["cREVMsgShowUIFrontScripts"]
    put "false" into tPropsArray["revstack"]
    put "100" into tPropsArray["cMacOSProgressScrollbarWidth"]
@@ -802,7 +803,6 @@ command revInternal__ResetPreferences
    put "selectedObject" into tPropsArray["cREVMsgIntelligenceObject"]
    put "false" into tPropsArray["cSEHideErrors"]
    put "56" into tPropsArray["cFieldHeight"]
-   put "none" into tPropsArray["cBackDrop"]
    put "300" into tPropsArray["cREVUnmaximizedScriptHeight"]
    put "13,125" into tPropsArray["cToolsTopLeft"]
    put "--" into tPropsArray["cCommentCharacter"]
@@ -1666,9 +1666,9 @@ command revInternal__InitialiseFinalSteps
    revInternal__Log "Message", "Setting up verbose debugging"
    send "revVerboseDebug" && the cVerboseDebug of stack "revPreferences" to stack "revFrontScriptLibrary"
 
-   if the cBackDrop of stack "revPreferences" is not "none" and the cBackDrop of stack "revPreferences" is not empty then
+   if the cBackDrop of stack "revPreferences" is not "none" then
       revInternal__Log "Message", "Setting up backdrop"
-      set the backdrop to the cBackDrop of stack "revPreferences"
+      set the backdrop to the cBackDropColor of stack "revPreferences"
    end if
 
    revInternal__Log "Message", "Closing Splash"

Toolset/libraries/revidelibrary.8.livecodescript

@@ -3389,7 +3389,11 @@ on revIDECreateObject pObjectTypeID, pTarget, pLoc
    if sClassicObjectProperties is empty then __objectPropertiesRead
    # Set the default stack to the target we're creating the object on
    set the defaultstack to revIDEStackOfObject(pTarget)
-
+   
+   if pLoc is empty then
+      put the loc of this card of the defaultStack into pLoc
+   end if
+   
    # Create the object
    lock screen
    lock messages
@@ -8716,9 +8720,6 @@ on revIDEToggle pProperty
          break
       case "Backdrop"
          if the backDrop is "none" then
-            if revIDEGetPreference("cBackDropColor") is empty then 
-               revIDESetPreference "cBackDropColor", "black"
-            end if
             set the backDrop to revIDEGetPreference("cBackDropColor")
             revIDESetPreference "cBackDrop", the backDrop
          else

Toolset/palettes/script editor/behaviors/revsehandlerlistbehavior.livecodescript

@@ -129,6 +129,7 @@ function handlerTypeSortCallback pItem
    end switch
 end handlerTypeSortCallback
 
+constant kDefaultHandlerTextColor = "#777777"
 
 # Description
 #   Called when the group might need to be updated. Updates the handler list. Also resizes the group.
@@ -139,7 +140,9 @@ command update
    put the result into tHandlers
 
    local tDefaultHandlers, tIndex
-   put revSEDefaultHandlers() into tDefaultHandlers
+   if sePrefGet("editor,showDefaultHandlers") then
+      put revSEDefaultHandlers() into tDefaultHandlers
+   end if
    set the wholematches to false
 
    local tCanAdd
@@ -170,7 +173,7 @@ command update
    end if
 
    if tHandlers is not empty then
-      put return &return after tHandlers
+      put return & return & return after tHandlers
    end if
    put tCanAdd after tHandlers
 
@@ -183,13 +186,15 @@ command update
 
       if the number of words in tHandler is 1 then
          put false into tHandlerExists
+         -- Existing handler names have a space after the icon
+         put " " before tParseHandler
       end if
 
       put "<p>" after tText
 
       local tIsPrivate
       put false into tIsPrivate
-      if char 1 of tParseHandler is "P" then
+      if tHandlerExists and char 1 of tParseHandler is "P" then
          put true into tIsPrivate
          delete char 1 of tParseHandler
       end if
@@ -207,6 +212,11 @@ command update
          put merge("<sup shift=2><img src=[[tICon]]></img></sup>") after tText
       end if
 
+      if not tHandlerExists then
+         put merge("<font color='[[kDefaultHandlerTextColor]]'>[[tParseHandler]]</font>") \
+               into tParseHandler
+      end if
+      
       put tParseHandler & "</p>" after tText
    end repeat
 
@@ -274,28 +284,30 @@ command jumpToHandler pHandler, pAdded
    hideGroup
 end jumpToHandler
 
-command closeAccept
-   lock screen
-   local tHandler
-   put line (the hilitedLine of field "Handlers" of me) of the cHandlers of field "Handlers" of me into tHandler
-   
+command handlerPicked pHandler
    local tAdded
    put false into tAdded
-   if the number of words in tHandler is 1 then
+   if the number of words in pHandler is 1 then
       put true into tAdded
       -- Adding a default handler
-      revSEAddDefaultHandler tHandler
+      revSEAddDefaultHandler pHandler
       update
       set the wholematches to false
       local tLine
-      put lineOffset(tHandler, the cHandlers of field "Handlers" of me) into tLine
+      put lineOffset(pHandler, the cHandlers of field "Handlers" of me) into tLine
       select line tLine of field "Handlers" of me
-      put line tLine of the cHandlers of field "Handlers" of me into tHandler
+      put line tLine of the cHandlers of field "Handlers" of me into pHandler
    end if
 
    -- Select the (now) extant handler
-   jumpToHandler tHandler, tAdded
-   
+   jumpToHandler pHandler, tAdded
+end handlerPicked
+
+command closeAccept
+   lock screen
+   local tHandler
+   put line (the hilitedLine of field "Handlers" of me) of the cHandlers of field "Handlers" of me into tHandler
+   handlerPicked tHandler
    unlock screen
 end closeAccept
 

Toolset/palettes/script editor/behaviors/revsemenubarbehavior.livecodescript

@@ -275,18 +275,41 @@ private command buildHandlerMenu pContext
 
    local tFormattedHandlers
    repeat for each line tHandler in tHandlers
-      put word 2 of tHandler & return after tFormattedHandlers
+      put tab & word 2 of tHandler & return after tFormattedHandlers
    end repeat
    delete the last char of tFormattedHandlers
 
-   if the number of lines of tHandlers = 0 then
-      put "(No Handlers" into tFormattedHandlers
-      set the cHandlers of me to empty
+   local tDefaultHandlers
+   put revSEDefaultHandlers() into tDefaultHandlers
+   
+   local tFormattedDefaultHandlers
+   repeat for each line tHandler in tDefaultHandlers
+      put tab & tHandler & return after tFormattedDefaultHandlers
+   end repeat
+   delete the last char of tFormattedDefaultHandlers
+   
+   local tShowDefaultHandlers
+   dispatch function "sePrefGet" to me with "editor,showDefaultHandlers"
+   put the result into tShowDefaultHandlers
+   
+   local tMenu
+   if tHandlers is not empty then
+      put enableMenuItem("Go to handler...", true) into tMenu
+      put return & tFormattedHandlers after tMenu
    else
-      set the cHandlers of me to tHandlers
+      put enableMenuItem("Go to handler...", false) into tMenu
    end if
+   if tDefaultHandlers is not empty then
+      put return & enableMenuItem("Add default handler...", true) after tMenu
+      put return & tFormattedDefaultHandlers after tMenu
+   else
+      put return & enableMenuItem("Add default handler...", false) after tMenu
+   end if
+   put return & toggleMenuItem("Show default handlers", tShowDefaultHandlers) after tMenu
+   
+   set the cHandlers of me to tHandlers
 
-   set the text of button "Handler" of me to modifyMenu("Handler", tFormattedHandlers)
+   set the text of button "Handler" of me to modifyMenu("Handler", tMenu)
 end buildHandlerMenu
 
 on menuPick pItemName
@@ -321,15 +344,31 @@ private command handleHandlerMenuPick pItemName
       exit handleHandlerMenuPick
    end if
 
-   local tLineNumber
-   put the menuHistory of button "Handler" of me into tLineNumber
-   
-   local tHandler
-   put line tLineNumber of the cHandlers of me into tHandler
+   set the itemdelimiter to "|"
+   switch item 1 of pItemName
+      case "Go to handler..."
+         local tPick, tHandlerInfo
+         put item 2 of pItemName into tPick
+         if not matchText(the cHandlers of me, "(.* " & tPick & " .*)", \
+               tHandlerInfo) then
+            exit handleHandlerMenuPick
+         end if
+
+         dispatch "handlerPicked" to group "Left Handler List" \
+               with tHandlerInfo
+         break
+      case "Add default handler..."
+         dispatch "handlerPicked" to group "Left Handler List" \
+               with item 2 of pItemName
+         break
+      case "Show default handlers"
+         local tShowDefaultHandlers
+         dispatch function "sePrefGet" to me with "editor,showDefaultHandlers"
+         put the result into tShowDefaultHandlers
+         dispatch "sePrefSet" to me with "editor,showDefaultHandlers", not tShowDefaultHandlers
+         break
+   end switch
 
-   local tScriptLineNumber
-   put word 3 of tHandler into tScriptLineNumber
-   send "goLine tScriptLineNumber, true" to group "Editor"
    seUpdateLeftBar
    seUpdateToolbar
 end handleHandlerMenuPick
@@ -511,6 +550,20 @@ end handleHelpMenuPick
 
 #########
 
+private function toggleMenuItem pItem, pHilited
+   if pHilited then
+      return "!c" & pItem
+   end if
+   return "!n" & pItem
+end toggleMenuItem
+
+private function enableMenuItem pItem, pEnabled
+   if pEnabled then
+      return pItem
+   end if
+   return "(" & pItem
+end enableMenuItem
+
 private function modifyMenu pMenuName, pMenu
    if the last char of pMenu is not return then
       put return after pMenu

Toolset/palettes/script editor/behaviors/revsestackbehavior.livecodescript

@@ -797,6 +797,17 @@ end seGetObjectState
 #   Stores the specified state for the object for later use. And updates any
 #   script editor components that may depend on this information.
 command seSetObjectState pObject, pState
+   if pState is "edited" then
+      local tObj
+      put the long id of pObject into tObj
+      if not revIDEObjectIsOnIDEStack(tObj) then
+         local tParams
+         put the text of field "Script" into tParams[1]
+         put tObj into tParams[2]
+         send "ideMessageSendWithParameters" && "ideScriptEdited, tObj, tParams" to stack "revIDELibrary" in 0 milliseconds
+      end if
+   end if
+   
    # Small optimization, if pState is equal to the current state, don't do anything
    if pState is sObjectStates[seGetRuggedId(pObject)] then
       exit seSetObjectState
@@ -2940,6 +2951,10 @@ on revSEIndentScript
    dispatch "scriptFormat" to field "Script" of me with "script"
 end revSEIndentScript
 
+on revSEApply pIgnoreErrors
+   actionCompile pIgnoreErrors
+end revSEApply
+
 private command appendToList @xList, pValue
    if xList is not empty then
       put return & pValue after xList

Toolset/palettes/script editor/behaviors/revseutilities.livecodescript

@@ -659,6 +659,8 @@ command sePrefGetDefaults
 
    put 7 into tPrefs["print,textSize"]
 
+   put true into tPrefs["editor,showDefaultHandlers"]
+   
    return tPrefs
 end sePrefGetDefaults