AMADEUS html plain
This sketchy text is generated by AMADEUS
import java.awt.*;
class SketchyText
class SketchyText
too"deldav skeemtekst
AmFrame frame;
peremees
Sketch main;
peaskeem
AmFile file;
fail, millest skeemtekst pa"rineb
Editor editor;
toimeti
Scheme affected;
milline alamskeem (osaliselt) joonistada
SketchyText(AmFrame fr)
konstruktor,
uus tyhi pa"iseta lihtskeem (nt. "File+New")
frame = fr;
BaseLanguage bl = new BaseLanguage0();
main = new Sketch(Scheme.SIMPLE,
new Branch(Scheme.SIMPLE,
new BaseLanguage0()),
bl);
file = null;
editor = null;
maa"ratakse pa"rast skeemteksti loomist
affected = main;
meetodid*
void draw(Graphics g)
? affected != null
g.setXORMode(Color.white);
affected.view.draw(g);
void finish()
lo~petada selle skeemtekstiga
lo~petada failiga
...
? (file != null && !file.name.trim().equals("") && file.changed) ||
(frame.menuBar.menuItemIsEnabled(AmLocale.Edit(), AmLocale.Undo())) ||
(frame.menuBar.menuItemIsEnabled(AmLocale.Edit(), AmLocale.Redo()))
AmDialog d = new AmDialog(frame, AmLocale.Info(), AmDialog.B_YES_NO, AmLocale.All_info_will_be_lost() + " "+AmLocale.ContinueQuestion()+"?");
??d.getTulemus()
? AmDialog.NO:
<==============
frame.contents = null;
AmCanvas c = (AmCanvas)(frame.viewArea);
c.selection.cancel();
frame.menuBar.forEmptyFrame();
c.own = true;
c.repaint();
boolean isRichModel()
return main.isRichModel();
void cloneSketchyText(SketchyText st)
?
st == null
this.frame = null;
this.main = null;
this.file = null;
this.editor = null;
this.affected = null;
<==========
this.frame = st.frame;
this.main = st.main;
this.file = st.file;
this.editor = st.editor.cloneEditor();
this.affected = st.affected;
public void setChanged(boolean bl)
? file != null
file.changed = bl;
String oldTitle = frame.getTitle().trim();
? bl
? !oldTitle.endsWith("*")
frame.setTitle(oldTitle+"*");
<======
? oldTitle.endsWith("*")
frame.setTitle(oldTitle.substring(0, oldTitle.length() - 1));