AMADEUS html plain
This sketchy text is generated by AMADEUS
import java.awt.*;
import java.awt.event.*;
class Item63Listener
class Item63Listener implements ActionListener
Tools+Textualize
AmFrame frame;
AmFrame targetFrame;
Item63Listener(AmFrame fr)
konstruktor
public void actionPerformed(ActionEvent event)
eeldab, et on valitud skeem
targetFrame = Am.addGraphicFrame();
targetFrame.setTitle(frame.getTitle() + " TEXTUALIZED");
AmCanvas c = (AmCanvas)(targetFrame.viewArea);
AmCanvas c0 = (AmCanvas)(frame.viewArea);
Sketch source =
(Sketch)(((AmCanvas)(frame.viewArea)).selection.start.scheme);
uus skeemtekst *
SketchyText skt1 = new SketchyText(null);
//targetFrame.newContents();
//targetFrame.contents.file = new AmFile(targetFrame.contents);
skt1.main.comment =
new Row("This sketchy text is generated by AMADEUS",
Default.commentColor);
teisendatav skeemtekst *
SketchyText skt0 = new SketchyText(null);
raami pole
skt0.main = (Sketch)(c0.selection.start.scheme);
editori ka pole
tekstualiseerida skt0 $\rightarrow$ skt1 *
source.baseLanguage.textualize(skt0, skt1, targetFrame);
//Wmenu isWindows
? Am.isWindows && targetFrame.menuBar == null
targetFrame.setJMenuBar(targetFrame.menuBar =
targetFrame.menuBarKeep);
targetFrame.newContents(skt1.main);
tulemus raamisse
targetFrame.contents.file = new AmFile(targetFrame.contents);
targetFrame.contents.main.view.plan(c.hd, c.vd);
c.selection.cancel();
(vana) valik maha
c.caretToScreen();
c.own = true; c.repaint();