AMADEUS html plain
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
class Item52Listener
class Item52Listener implements ActionListener
Insert+Head
AmFrame frame;
Item52Listener(AmFrame fr)
konstruktor
public void actionPerformed(ActionEvent event)
teha uus päis h
AmCanvas c = frame.viewArea;
Editor editor = frame.contents.editor;
Caret caret = editor.caret;
Color col;
päise värv
? caret.scheme instanceof Sketch
col = Default.sketchHeadColor;
<======
col = Default.branchHeadColor;
PrimitiveHead h =
new PrimitiveHead(PrimitiveHead.SIMPLE, new Text(col));
insertPrimitiveHead(frame, h);
public static void insertPrimitiveHead(AmFrame frame, PrimitiveHead h)
frame - jooksev raam
h - lisatav primitiivpäis
AmCanvas c = frame.viewArea;
Editor editor = frame.contents.editor;
Caret caret = editor.caret;
täpsustada päise tüüp ja mitmendaks lisada
int i = caret.scheme.head.size();
päise suurus
? caret.inHead()
h.type = caret.primitive.type;
i = caret.scheme.head.indexOf(caret.primitive)+1;
<======
? caret.inBody()
? i == 0
h.type = PrimitiveHead.SIMPLE;
<======
h.type = caret.scheme.primitiveHead(i-1).type;
<======
skeemikommentaaris
? i == 0
? caret.scheme.type == Scheme.LOOP
h.type = PrimitiveHead.LOOP;
<======
h.type = caret.scheme.primitiveHead(i-1).type;
editor.insertHead(caret.scheme, i, h);
lisada
frame.contents.main.view.plan(c.hd, c.vd);
c.caretToScreen();
karett ekraanile
c.own = true; c.repaint();