AMADEUS html plain
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
class Item57Listener
class Item57Listener implements ActionListener
Insert+Arrow
== Item53Listener, va. lisatav primitiiv
AmFrame frame;
Item57Listener(AmFrame fr)
konstruktor
actionPerformed
public void actionPerformed(ActionEvent event)
Arrow p = makeArrowAtCaret(frame, true);
teha tugev nool
Item53Listener.insertPrimitive(frame, p);
lisada
public static Arrow makeArrowAtCaret(AmFrame frame, boolean strong)
teha uus nool:
Editor editor = frame.contents.editor;
Caret caret = editor.caret;
int level = caret.scheme.level();
määrame level nõrga noole jaoks
? caret.scheme instanceof Sketch
? caret.inSchemeComment()
? level != 0
nool tehakse peale skeemi, mitte skeemi sisse
level--;
<======
? caret.scheme instanceof Branch
jääb sama level
<======
on skeemi päises, tehakse selle skeemi sisse
level++;
? strong
<======new Arrow(Arrow.STRONG, --level)
<======new Arrow(Arrow.WEAK, level)