SELECT cmd
FROM
tree => {
index: Tree.Index ← GetSelectionValue[h];
PutAsTree[h, [subtree[index]]]};
asCC => PutAsCC[h, GetSelectionValue[h]];
var =>
BEGIN
RESOut.PCr[h];
PutAsVar[h, GetSelectionValue[h]];
END;
vcomp =>
BEGIN OPEN RESOut;
val: UNSPECIFIED ← GetSelectionValue[h];
PCr[h];
POctal[h, val]; PRope[h, "^ = "];
PutAsComponent[h, val];
END;
first => PutAsCC[h, CCFirst[h]];
cur => PutAsCC[h, CCCur[h]];
next => PutNextCC[h];
prev => PutPrevCC[h];
fwd => GoFwd[h, GetSelectionValue[h]];
rcnt => PutRecentCC[h, GetSelectionValue[h]];
temp => PutTempState[h];
allStack => PutStackState[h];
stack => PutAsStack[h, GetSelectionValue[h]];
tos => {
st: CodeDefs.StackIndex ← StackTop[h];
IF st = CodeDefs.StackNull THEN RESOut.PRope[h, "\nStack empty"]
ELSE PutAsStack[h, st]};
down => PutStackDown[h];
up => PutStackUp[h];
lbl => PutLabelState[h];
lii => PutAsLabelInfoIndex[h, GetSelectionValue[h]];
sei => {
sei: Symbols.SEIndex ← GetSelectionValue[h];
IF PutAsSei[h, sei] THEN h.lastId ← LOOPHOLE[sei]};
nextse => {
nsei: Symbols.ISEIndex ← NextSe[h, h.lastId];
IF nsei # Symbols.ISENull THEN {[] ← PutAsSei[h, nsei]; h.lastId ← nsei};
};
hti => PutAsHti[h, GetSelectionValue[h]];
cti => PutAsCti[h, GetSelectionValue[h]];
bti => PutAsBti[h, GetSelectionValue[h]];
mdi => PutAsMdi[h, GetSelectionValue[h]];
mop => PutAsMopcode[h, GetSelectionValue[h]];
fop => PutAsFopcode[h, GetSelectionValue[h]];
rep => PutAsVariousRep[h, GetLongSelectionValue[h]];
body => PutCurrentBody[h];
stmt => PutCurrentStmt[h];
expr => PutCurrentExpr[h];
gFrames => GFrameSheet[h];
source => PutCurrentSource[h];
ENDCASE;