This repository was archived by the owner on Aug 31, 2021. It is now read-only.
File tree Expand file tree Collapse file tree 2 files changed +23
-9
lines changed Expand file tree Collapse file tree 2 files changed +23
-9
lines changed Original file line number Diff line number Diff line change @@ -6516,14 +6516,7 @@ on revIDETogglePaletteView
65166516 unlock screen
65176517end revIDETogglePaletteView
65186518
6519- on revIDEPopupContextualMenu pTargets
6520- dispatch "revMenubarPopupContextualMenu" to stack revIDEPaletteToStackName("menubar" ) with pTargets
6521- end revIDEPopupContextualMenu
6522-
6523- local sPluginsA
6524- on revIDEUpdatePlugins
6525- global gREVStartupList , gREVShutdownlist , gREVDontLoadMenus
6526-
6519+ function revIDEGetAllPlugins
65276520 local tUserPlugins
65286521 put revAbsoluteFolderListing(revEnvironmentUserPluginsPath()) into tUserPlugins
65296522
@@ -6539,6 +6532,19 @@ on revIDEUpdatePlugins
65396532 if tDevelopmentPlugins is not empty then
65406533 put revCombineFilePaths(tFinal ,tDevelopmentPlugins ) into tFinal
65416534 end if
6535+ return tFinal
6536+ end revIDEGetAllPlugins
6537+
6538+ on revIDEPopupContextualMenu pTargets
6539+ dispatch "revMenubarPopupContextualMenu" to stack revIDEPaletteToStackName("menubar" ) with pTargets
6540+ end revIDEPopupContextualMenu
6541+
6542+ local sPluginsA
6543+ on revIDEUpdatePlugins
6544+ global gREVStartupList , gREVShutdownlist , gREVDontLoadMenus
6545+
6546+ local tFinal
6547+ put revIDEGetAllPlugins() into tFinal
65426548
65436549 put empty into gREVStartupList
65446550 put empty into gREVShutdownList
Original file line number Diff line number Diff line change @@ -93,12 +93,20 @@ on ideOpenStack pTarget
9393 exit ideOpenStack
9494 end if
9595
96- if the short name of ideStackOfObject(pTarget ) is not the short name of me then
96+ local tTargetStack
97+ put the short name of ideStackOfObject(pTarget ) into tTargetStack
98+
99+ local tPlugins
100+ put revIDEGetAllPlugins() into tPlugins
101+
102+ if tTargetStack is not the short name of me and \
103+ the filename of stack tTargetStack is not among the lines of tPlugins then
97104 startCenterClose
98105 end if
99106end ideOpenStack
100107
101108command startCenterClose
109+ breakpoint
102110 close me
103111end startCenterClose
104112
You can’t perform that action at this time.
0 commit comments