AMADEUS html plain
* import java.
class Item91Listener implements ActionListener
viia kursor skeempuu viimasele elemendile
AmFrame frame;
Item91Listener(AmFrame fr)
public void actionPerformed(ActionEvent event)
AmCanvas c = frame.viewArea;
Editor editor = frame.contents.editor;
Caret caret = editor.caret;
kursor
Scheme source = caret.scheme;
kursori peremees
panna skeempuu juur kursori peremeheks
* ;source.level() != 0;
leida viimase elemendi skeemtipp
Scheme kuhu = (Scheme)goLast(source);
caret.goTo(kuhu);
teha skeemtipp 'kuhu' kursori peremeheks
caret.moveToParentEnd();
viia kursor peremehe viimasele elemendile
c.caretToScreen();
c.own = true;
raami tahvli saab \"umberjoonistada
c.repaint();
public Object goLast(Scheme sour)
leiab skeemtipu sour viimase mitteikoniseeritud alam-skeemtipu
kui sellist ei leidu tagastab sour
int bodySize = sour.body.size()-1;
? sour instanceof Sketch
sour on skeem ja ?he haru omab kindlasti
* int i = bodySize; i>= 0; i--
? !((Scheme)((Sketch)sour).branch(i)).icon
'sour'-i mitteikoniseeritud alamharu leitud
<==============goLast(((Sketch)sour).branch(i))
<======
'sour' on haru
? ((Sketch)sour.parent).containsSubsketch(1)
* int i = bodySize; i>=0; i--
? (sour.body.elementAt(i) instanceof Primitive)
'sour'-i viimane mitteikoniseeritud element on primitiiv
<==============sour
? !((Scheme)(sour.body.elementAt(i))).icon
sour-i mitteikoniseeritud alamskeem leitud
<==============goLast((Scheme)sour.body.elementAt(i))
<======sour