[popUpButton["
Debug", PUChoiceList [
Choice[List [$ResetStatistics], "ResetStatistics", "Reset statistics for all timed operations"],
Choice[List [$Statistics], "ShowStatistics", "Print on the typescript execution times for all timed operations that have been active since the last reset"],
Choice[List [$PrintSelectedStatistic], "ShowSelectedStatistic", "Print on the typescript execution times for the timed operation named in the Tioga selection"],
Choice[List [$TestGravity], "TestGravity", "Draw a gravity scatter-plot, where number of test points is the Tioga selection"],
Choice[List [$CauseAnError], "CauseASignal", "Pop up a SIGNAL window to examine state"],
Choice[List [$ToIPTestGravity], "ToIPTestGravity", "Draw a scatter-plot of the current gravity function onto the interpress master named in the Tioga selection"],
Choice[List [$DrawBackgroundBox], "DrawBackgroundBox", "Draw a single box around all of the parts of selected objects that would be on the background plane during a drag"],
Choice[List [$DrawOverlayBox], "DrawOverlayBox", "Draw a single box around all of the parts of selected objects that would be stationary on the overlay plane during a drag"],
Choice[List [$DrawRubberBox], "DrawRubberBox", "Draw a single box around all of the parts of selected objects that would rubberband during a drag"],
Choice[List [$DrawDragBox], "DrawDragBox", "Draw a single box around all of the parts of selected objects that would move rigidly during a drag"],
Choice[List [$DrawOutlineBoxes], "DrawOutlineBoxes", "Draw loose-fitting bounding boxes around all selected Outlines"],
Choice[List [$SlackLog], "SlackLog", "Currently broken"],
Choice[List [$DescribeCaretObject], "DescribeCaretObject", "Describe the object that the caret is currently attracted to"]
Choice[List [$UserTraceOn], "UserTraceOn", "Start printing the procedure names Gargoyle is using to execute commands"],
Choice[List [$UserTraceOff], "UserTraceOff", "Stop printing module names"],
noOpChoice,
Choice[List [$PrintAllInput], "InputTraceOn", "Start printing the input tokens Gargoyle is receiving"], << KAP >>
Choice[List [$ResetAllInput], "InputTraceOff", "Stop printing the input tokens Gargoyle is receiving"],
Choice[List [$SceneState], "SceneState", "Show scene state"],
Choice[List [$SceneBagState], "SceneBagState", "Show SceneBag state"],
Choice[List [$DrawPolylines], "DrawPolylines", "Draw Polyline approximations to all closed trajectories"],
Choice[List [$DrawTightBoxes], "DrawTightBoxes", "Draw tight-fitting bounding boxes around all selected slices"],
Choice[List [$DrawBoundBoxes], "DrawBoundingBoxes", "Draw loose-fitting bounding boxes around all slices in scene"],
Choice[List [$DrawSelectionBox], "DrawSelectionBox", "Draw a single box around all of the selected objects"],
Choice[List [$FSMInfo], "FSMInfo", "Describe the current state of the mouse action finite state machine (as a hierarchical name)"],
],