AMADEUS html
|
- This sketchy text is generated by AMADEUS
|
|
Sketch 0 import
|
#
# class AmFrame
|
#
class AmFrame extends Frame
|
#
raam skeemtekstile
|
#
|
#
static final String TITLE0 = "AMADEUS";
|
#
SketchyText contents; kujutatav skeemtekst (vo~i null)
|
#
Component viewArea; vaateva"li (AmCanvas / TextArea)
|
#
AmMenu menuBar; menuu"
|
#
#
#
|
#
#
AmFrame(Dimension d, Point p) konstruktor
|
#
#
teeb kuularitega varustatud raami moo~tmetega d, alguspunktiga p
|
#
#
puuduvad veel sisu (contents) ja komponendid (menu, view area)
|
#
#
|
#
#
super(TITLE0);
|
#
#
contents = null; pole veel skeemteksti
|
#
#
viewArea = null; pole veel vaateva"lja
|
#
#
addWindowListener(new AmFrameListener(this)); lisada raami kuular
|
#
#
addComponentListener(new AmFrameListener1(this)); lisada komponendi kuular
|
#
#
setSize(d); suurus
|
#
#
setLocation(p); alguspunkt
|
#
#
#.
|
#
#
# isendimeetodid*
|
#
#
|
#
#
Sketch 1
|
#
#
Sketch 2
|
#
#
Sketch 3
|
#
#
Sketch 4
|
#
#
#.
|
#
#.
|
-.
Sketch 4
#
#
#
void newContents(Sketch s)
#
paneb uueks sisuks antud skeemi s
#
#
SketchyText skt = new SketchyText(this);
#
skt.main = s;
#
contents = skt; siduda skeemtekst raamiga
#
skt.editor = new Editor(skt); panna skeemtekstile toimeti
#
skt.editor.stack = new UndoStack(skt.editor);
#
menuBar.setEnabled(AmLocale.Insert(), true);
#
menuBar.setEnabled(AmLocale.Edit(), AmLocale.Delete(), true);
#
#.
Sketch 3
#
#
#
void newContents()
#
paneb uueks sisuks tu"hja lihtskeemi skeemi
#
#
SketchyText skt = new SketchyText(this); uus skeemtekst
#
contents = skt; siduda skeemtekst raamiga
#
skt.editor = new Editor(skt); panna skeemtekstile toimeti
#
skt.editor.stack = new UndoStack(skt.editor);
#
menuBar.setEnabled(AmLocale.Insert(), true);
#
menuBar.setEnabled(AmLocale.Edit(), AmLocale.Delete(), true);
#
#.
Sketch 2
#
#
#
void closing()
#
AmFrameListenerist kui WindowClosing
#
(File+Quit: teeb ko~igile raamidele closing)
#
#
siia skeemteksti sulgemine/salvestamine
#
. . .
#
Am.remove(this); ko~rvaldada raam ise
#
#.
Sketch 1
#
#
#
void addComponents()
#
lisab komponendid (u"lemusele Frame): menuu", lo~uend vo~i tekstiala, kerimisribad
#
eeldab, et vaateva"li (viewArea) on juba sellele raamile (AmFrame) omistatud
#
#
add(viewArea); vaateva"li
#
setMenuBar(menuBar = new AmMenu(this)); menuu"
#
|
- graafilise raami korral
#
|
#
|
? (viewArea instanceof AmCanvas)
#
|
AmCanvas c = (AmCanvas)viewArea;
#
|
lisada kerimisribad:
#
|
c.sbv = new AmCanvasScrollbar(c,Scrollbar.VERTICAL);
#
|
add(c.sbv, "East");
#
|
c.sbh = new AmCanvasScrollbar(c,Scrollbar.HORIZONTAL);
#
|
add(c.sbh, "South");
#
|
lo~uendile valik:
#
|
c.selection = new Selection(c, null, null);
#
|
-.
#
menuBar.forEmptyFrame();
#
#.
Sketch 0
#
# import
#
* import
#
#
java.awt.*;
#
java.awt.event.*;
#
#.