AMADEUS html plain
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
class Item56Listener
class Item56Listener implements ActionListener
Insert+Breakpoint
== Item53Listener, va. primitiivi tyyp
AmFrame frame;
Item56Listener(AmFrame fr)
konstruktor
public void actionPerformed(ActionEvent event)
teha tühi primitiiv-vahepeatus:
Color col = Default.breakpointColor;
PrimitiveMember p =
new PrimitiveMember(Primitive.BREAKPOINT, new Text(col));
AlgJava:
Row r = new Row("_ inspect :_", col);
Text t = new Text();
t.insert(r, 0);
t.remove(1);
p.text = t;
pannaLisandiNimi(frame);
lisada:
Item53Listener.insertPrimitive(frame, p);
JK 16.01.07:
Editor ed = frame.contents.editor;
r = ed.caret.row;
String sr = r.toString();
Praegu liigub eelmiste peistimisel kursor ikka alla
? sr.indexOf("_") > -1
ed.caret.moveRight();
esimesest '_' üle
päise reas kuni tuleb '_'
r.getElement(ed.caret.noInRow);
? r.sy == null
igaks juhuks
<------
<======
static void pannaLisandiNimi(AmFrame frame)
11.10.06 kui veel ei ole lisandi nime >, siis see panna
Sketch peaskeem = frame.contents.main;
Branch peaharu = peaskeem.branch(0);
Row r0 = peaharu.comment;
String komm = r0.toString();
? komm.indexOf(">") == -1
lisandit > veel pole?
? komm.startsWith("_")
on (ainult) _
r0.remove(1);
r0.insert(new Symbol(' ', Default.commentColor), 1);
r0.insert(new Symbol('>', Default.commentColor), 1);
r0.planSize();
//c.frame.contents.main.view.plan(c.hd, c.vd);
//c.own = true;c.repaint();