AMADEUS html plain
import java.awt.*;
import java.awt.event.*;
import javax.swing.*;
class Item59sListener
class Item59sListener implements ActionListener
Insert+HeadedModule
== Item59Listener, ainult pa"isega
AmFrame frame;
Item59sListener(AmFrame fr)
konstruktor
//
public void actionPerformed(ActionEvent event)
uus lihtskeem:
Sketch sk = Item50Listener.makeSimpleSketchAtCaret(frame, false);
sk.type = Scheme.MODULE;
muuta skeemi tüüp
lisada päis:
sk.insert(new PrimitiveHead(PrimitiveHead.SIMPLE,
new Text(Default.sketchHeadColor)), 0);
Item50Listener.insertSketchAtCaret(frame, sk);
AlgJava
public void actionPerformed(ActionEvent event)
uus lihtskeem:
Sketch sk = Item50Listener.makeSimpleSketchAtCaret(frame, false);
sk.type = Scheme.MODULE;
muuta skeemi tüüp
lisada päis:
Row r = new Row("class _", Default.sketchHeadColor);
Text t = new Text();
t.insert(r, 0);
t.remove(1);
sk.insert(new PrimitiveHead(PrimitiveHead.SIMPLE, t), 0);
lisada Antud ja Tulemus
r = new Row("", Default.commentColor);
t = new Text();
t.insert(r, 0);
t.remove(1);
t.comment = new Row(AmLocale.Data_Fields() + ":", Default.commentColor);
sk.branch(0).insert(new PrimitiveMember(Primitive.SIMPLE, t), 0);
Item50Listener.insertSketchAtCaret(frame, sk);