From 1ea0cc9467be3115ea4689f1792f68b162cf9049 Mon Sep 17 00:00:00 2001
From: LiveCodeSteven <steven.crighton@livecode.com>
Date: Mon, 6 Apr 2020 20:49:18 +0100
Subject: [PATCH] Adding new item to revMenuBarStandardContextMenu

Every time I prototype a UI in LiveCode I always look for an arrange object layer menu item when I right-click. Mainly because this is present in other tools I use such as Adobe XD and Moqups. Looking for a coding challenge I decided to figure out how to do it myself.

I have added the ability to Send to Back, Move Backward, Move Forward and Bring to front from an arrange menu item when you right-click on an object. I understand that you can code this or you can do it from the object menu item from the top menu bar, but I personally think this is a good place for those options to be, I always look for it here when I am prototyping something.
---
 .../menubar/revmenubar.livecodescript         | 33 +++++++++++++++++--
 1 file changed, 31 insertions(+), 2 deletions(-)

diff --git a/Toolset/palettes/menubar/revmenubar.livecodescript b/Toolset/palettes/menubar/revmenubar.livecodescript
index a4119e211a..c966ddac42 100644
--- a/Toolset/palettes/menubar/revmenubar.livecodescript
+++ b/Toolset/palettes/menubar/revmenubar.livecodescript
@@ -2182,10 +2182,24 @@ function revMenuBarStandardContextMenu pObject, pIndent, pSelectable
    put tIndent & "Property Inspector" & return after tText
    put tIndent & "-" & return after tText
    put tIndent & enableMenuItem("Cut", pSelectable) & return after tText
-   put tIndent & enableMenuItem("Copy", pSelectable) after tText
+   put tIndent & enableMenuItem("Copy", pSelectable) & return after tText
+   put tIndent & "-" & return after tText
+   put tIndent & buildArrangeSubmenu() after tText
    return tText
 end revMenuBarStandardContextMenu
 
+private function buildArrangeSubmenu
+   local tArrange
+   put "Arrange" & return after tArrange 
+   put tab & "Send to Back" & return after tArrange
+   put tab & "Move Backward" & return after tArrange
+   put tab & "Move Forward" & return after tArrange
+   put tab & "Bring to Front" after tArrange
+   return tArrange
+end buildArrangeSubmenu
+
+
+
 function revBuildContextSensitiveMenu pExtraText, pTarget, pType, pSelectable
    local tText
    if word 1 of pTarget is "stack" then
@@ -2549,7 +2563,7 @@ on revMenubarContextMenuPickTarget pWhich, pTarget
    
    set the itemdelimiter to "|"
    switch item 1 of pWhich
-      ######## OBJECTS #########
+            ######## OBJECTS #########
       case "Edit Script"
          revIDEEditScriptOfObjects pTarget
          break
@@ -2696,6 +2710,21 @@ on revMenubarContextMenuPickTarget pWhich, pTarget
       case "Stack"
          revMenubarContextMenuPickTarget item 2 to 3 of pWhich, tTargetStack
          break
+   end switch
+   ######## ARRANGESUBMENU #########
+   switch item 2 of pWhich
+      case "Send to Back"
+         revIDEActionSendToBack
+         break
+      case "Move Backward"
+         revIDEActionMoveBackward
+         break
+      case "Move forward"
+         revIDEActionMoveForward
+         break
+      case "Bring to Front"
+         revIDEActionBringToFront
+         break
       default
          break
    end switch