AMADEUS html plain
* import java.
class Item95Listener implements ActionListener
viia kursor paremale kolleegile
AmFrame frame;
Item95Listener(AmFrame fr)
konstruktor
actionPerformed
public void actionPerformed(ActionEvent event)
AmCanvas c = frame.viewArea;
Editor editor = frame.contents.editor;
Caret caret = editor.caret;
kursor
Scheme sourceParent = null;
skeemtipp, mille sees toimub liikumine
Scheme source = null;
sourceParent alampuu juur skeemtipu liiki
Primitive primitiveSource = null;
sourceParent alampuu juur primitiivi liiki
source = caret.scheme;
? caret.inPrimitive() && !caret.inHead()
kursor asus primitiivis
sourceParent = source;
primitiveSource = caret.primitive;
<======
kursor asus skeemtipul
? source.level() == 0
skeempuu juurel kolleegi ei ole
caret.goTo(source);
viia kursor peremehe kommentaari
<==========
sourceParent = source.parent;
peremehe \"ulemskeem
int n = sourceParent.body.size();
int j;
? primitiveSource != null
kursor asus primitiivis
j = sourceParent.body.indexOf(primitiveSource) + 1;
<======
kursor asus skeemtipul
j = sourceParent.body.indexOf(source) + 1;
Primitive caretPrimitive = null;
int i = j; boolean noticon = false;
? j == n
kursor asus viimases alampuus
<======
* ;(!noticon) && (i < n);
otsida esimest sobivat paremkolleegi
Object o = sourceParent.member(i);
? o instanceof Scheme
? !((Scheme)o).icon
source =((Scheme)o);
caret.goTo((Scheme)o);
noticon = true;
<======
? o instanceof Primitive
source = sourceParent;
caretPrimitive = (PrimitiveMember)o;
Cursor abiCaret = new Cursor(source, caretPrimitive);
caret.goTo(abiCaret);
noticon = true;
i++;
c.own = true;
raami l\"uendi saab joonistada \"umber
c.caretToScreen();
c.repaint();