@@ -8614,45 +8614,49 @@ on revIDEToggle pProperty
86148614 case "Suppress Messages"
86158615 global gRevSuppressMessages
86168616 put "suppressMessages" into tToggleMessage
8617+
8618+ local tLine
86178619 if not gREVSuppressMessages then
86188620 put true into gREVSuppressMessages
86198621 # Send the suppress messages toggle message before actually suppressing messages
86208622 ideMessageSend "ideToggleChanged:" & tToggleMessage
86218623 set the lockCursor to false
8622- repeat for each line l in the pendingMessages
8623- if char 1 to 3 of item 2 of l is not "rev" then cancel (item 1 of l)
8624+ repeat for each line tLine in the pendingMessages
8625+ if not revIDEObjectIsOnIDEStack(item 4 to - 1 of tLine ) then
8626+ cancel (item 1 of tLine )
8627+ end if
86248628 end repeat
8625- repeat for each line l in the frontScripts
8626- if char 1 to 3 of the short name of l is not "rev" then
8627- put l & cr after sRestoreState ["front" ]
8628- remove script of l from front
8629+ repeat for each line tLine in the frontScripts
8630+ if not revIDEObjectIsOnIDEStack( tLine ) then
8631+ put tLine & cr after sRestoreState ["front" ]
8632+ remove script of tLine from front
86298633 end if
86308634 end repeat
8631- repeat for each line l in the backScripts
8632- if char 1 to 3 of the short name of l is not "rev" then
8633- put l & cr after sRestoreState ["back" ]
8634- remove script of l from back
8635+ repeat for each line tLine in the backScripts
8636+ if not revIDEObjectIsOnIDEStack( tLine ) then
8637+ put tLine & cr after sRestoreState ["back" ]
8638+ remove script of tLine from back
86358639 end if
86368640 end repeat
8637- repeat for each line l in the stacksInUse
8638- if char 1 to 3 of l is not "rev" then
8639- put l & cr after sRestoreState ["inUse" ]
8640- stop using stack l
8641+ repeat for each line tLine in the stacksInUse
8642+ if not revIDEObjectIsOnIDEStack( tLine ) then
8643+ put tLine & cr after sRestoreState ["inUse" ]
8644+ stop using stack tLine
86418645 end if
86428646 end repeat
86438647 revInternal__LoadLibrary "revNoMessagesLibrary"
86448648 exit revIDEToggle
86458649 else
86468650 revInternal__UnloadLibrary "revNoMessagesLibrary"
86478651 put false into gREVSuppressMessages
8648- repeat for each line l in sRestoreState ["front" ]
8649- insert script of l into front
8652+ repeat for each line tLine in sRestoreState ["front" ]
8653+ insert script of tLine into front
86508654 end repeat
8651- repeat for each line l in sRestoreState ["back" ]
8652- insert script of l into back
8655+ repeat for each line tLine in sRestoreState ["back" ]
8656+ insert script of tLine into back
86538657 end repeat
8654- repeat for each line l in sRestoreState ["inUse" ]
8655- start using stack l
8658+ repeat for each line tLine in sRestoreState ["inUse" ]
8659+ start using stack tLine
86568660 end repeat
86578661 delete variable sRestoreState
86588662 end if
0 commit comments