LiveCode Forums

Code: Select all

...
     case "Esci"
      case "Exit"
      case "Quit"
      case "Quit Tcal"
         doFileQuit
         break
   end switch
end menuPick

Code: Select all

on doFileQuit
   set the defaultstack to "Tcal" --main stack
   lock messages
   
   --close all sockets
   if the openSockets <> empty then 
      repeat for each line tSock in the opensockets
         close socket tSock
      end repeat
   end if

   --close the stacks in this application:
   put the stacksInUse into myStacks
   repeat for each line myStack in myStacks
      stop using stack myStack
   end repeat
   
   -- stacks
   put the openStacks into myStacks
   put "Tcal,message box,home,tool,Message Box,revTools,revMenubar" & comma & the short name of me into myDontClose
   repeat for each line myStack in myStacks
      if myStack is not among the items of myDontClose then close stack myStack
   end repeat
   
   -- messages
   put the pendingmessages into myMsgs
   repeat for each line myMsg in myMsgs
      cancel item 1 of myMsg
   end repeat
   close me --not sure about this but deleting it doesn't make a difference
   if the environment is not "development" then
      quit
   end if
end doFileQuit

Code: Select all

...
   case "Esci"
      case "Exit"
      case "Quit"
      case "Quit Tcal"
         put true into grevdevelopment
         Quit
         break
   end switch
end menuPick

Code: Select all

on errorDialog pExecutionError
   local Thelook
   if pExecutionError is not empty then
      put gTCdialogs[236] & cr & cr into TheMessage
      put "DEBUG: " & the internet date & return & "An error occurred on line: " & item 2 of line 1 of pExecutionError \
            & return & "in handler: " & item 4 of line 3 of pExecutionError & return \
            & "in script: " & item 4 of line 4 of pExecutionError & return  Into TheBug
      put pExecutionError & return  after TheBug
      put "Default stack: " & the defaultstack & return  after TheBug
      --set the clipboardData to Thelook; beep
      Answer TheMessage & TheBug  with "Cancel" or "Send" titled "Execution Error"
      put TheBug into gTheBug --into global for later user
      if it = "Send" then
         CallHome TheBug 
      end if
   end if
end errorDialog

Code: Select all

--on quitting the app from the menu
on doFileQuit
   put true into grevdevelopment
   try
      quit
   catch tErrVar
      answer tErrVar
   end try
...