AMADEUS html plain
* import java.
class Item94Listener implements ActionListener
viia kursor j\"argmise taseme skeemtipule
AmFrame frame;
Item94Listener(AmFrame fr)
konstruktor
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.
Scheme v = null;
skeemtipp
? caret.inSchemeComment()
kursor asus skeemtipu kommentaaris
otsida esimest mitteikoniseeritud alam-skeemtippu
* int i=0; i < source.body.size(); i++
Object o = source.member(i);
? o instanceof Scheme
? !((Scheme)o).icon
v =(Scheme)(o);
<======
<======
kursor asus primitiivelemendis
v = source;
Primitive p = null;
? v != null
caret.goTo(v);
<======
boolean onAlamprimitiivid = false;
? source.body.size() != 0
otsida esimest primitiivi
* int i = 0; i< source.body.size(); i++
? source.member(i) instanceof Primitive
p = (Primitive)(source.member(i));
Cursor abiCaret = new Cursor(source, p);
caret.goTo(abiCaret);
onAlamprimitiivid = true;
<======
? !onAlamprimitiivid
k\~oik alamskeemtipud on ikoniseeritud ja
"uhtegi primitiivi ei ole, kursor l\"aheb peremehe kommentaarile
caret.goTo(source);
<==========
<======
source.body.size() == 0
caret.goTo(source);
c.caretToScreen();
c.own = true;
raami l\"uendi saab joonistada \"umber
c.repaint();
public Scheme FirstSubScheme(Scheme s)
leiab skeemtipu esimese mitteikoniseeritud alam-skeemtipu
* int i=0; i < s.body.size(); i++
Object o = s.member(i);
? o instanceof Scheme
? !((Scheme)o).icon
<==========(Scheme)(o)
<======null