AMADEUS html plain
This sketchy text is generated by AMADEUS
import
import java.util.*;
import java.awt.*;
import javax.swing.*;
JMenuItem
class Am
public class Am
public static JColorChooserDialog stiiliValik = new JColorChooserDialog(null);
public static PictureBoard pictureBoard = new PictureBoard();
public static Clipboard clipboard = new Clipboard();
public static Vector frames = new Vector();
kasutab otse BLXML:reduce()
public static AmFrame frameMacro = null;
public static boolean isWindows;
public static boolean isAmadeusQuitting = false;
seab Item09Listener, kasutab AmFrame:closing()
kõigi raamide failid on paarikaupa erinevad
kõigi raamide skeemtekstid on paarikaupa erinevad
klassimeetodid*
public static void start()
isWindows =
System.getProperty("os.name").indexOf("Windows") >= 0;
JK 13.02.02
? isWindows
Default.font = Default.fontForWindows;
<======
Default.font = Default.fontForSolaris;
addGraphicFrame();
lisada u"ks (esimene) graafiline raam
AmLocale.l = 0;
inglise
public static AmFrame addGraphicFrame()
lisada üks graafiline raam
tagastab lisatud raami
Point p = lowerFramePoint();
AmFrame fr = new AmFrame( Default.frameDimension,
new Point(p.x+Default.frameShift.x, p.y+Default.frameShift.y ) );
panna lo~uend:
AmCanvas c = new AmCanvas(fr);
fr.viewArea = c;
fr.addComponents();
lisada komponendid
frames.addElement(fr);
lisada raamide hulka
fr.show();
panna käima
fr.refresh();
ilma selleta jääb menüü esimesele tolgendama, kui
teine raam kinni panna ???
AmFont.No(Default.font, c.getGraphics());
seada font[0]
<======fr
public static AmProjectFileFrame addProjectFileFrame(AmFrame pDF)
lisada üks graafiline raam
antud projektikirjelduse raam pDF
tagastab lisatud raami, seostab pDF-ga
Point p = lowerFramePoint();
muudetud võrreldes addGraphicFrame-ga:
AmProjectFileFrame fr =
new AmProjectFileFrame( Default.frameDimension,
new Point(p.x+Default.frameShift.x, p.y+Default.frameShift.y ),
pDF);
panna lo~uend:
AmCanvas c = new AmCanvas(fr);
fr.viewArea = c;
fr.addComponents();
lisada komponendid
frames.addElement(fr);
lisada raamide hulka
fr.show();
panna käima
fr.refresh();
ilma selleta jääb menüü esimesele tolgendama, kui
teine raam kinni panna ???
AmFont.No(Default.font, c.getGraphics());
seada font[0]
<======fr
public static void remove(AmFrame fr)
sulgeda antud raam fr; kui suletav oli ainuke,
siis lõpetada AmadeusJ töö
frames.removeElement(fr);
fr.dispose();
? frames.size() == 0
System.exit(0);
public static void setLocaleMenus()
muuta menüü kõigis raamides
* int i = 0; i < frames.size(); i++
AmFrame fr = (AmFrame)(frames.elementAt(i));
AmCanvas c = fr.viewArea;
AmMenu newMenu = new AmMenu(fr);
fr.setJMenuBar( fr.menuBar = newMenu);
seada (un)enabled
? fr.contents != null
fr.menuBar.forNewContents();
SS: Kui raamis oli midagi muudetud,
siis uue Locale valimisel saab seda taastada ka
fr.menuBar.setEnabled(AmLocale.Edit(),
AmLocale.Undo(),
(!(fr.contents.editor.stack.stack_is_empty())));
<======
fr.menuBar.forEmptyFrame();
SS: paneb projekti raami vastav tiitel: projekt +
? fr instanceof AmProjectFileFrame
((AmProjectFileFrame)fr).replaceProjectBarText();
? c.selection.kind() != Selection.NONE
c.selection.enableMenu();
<======
fr.refresh();
abimeetodid
private static Point lowerFramePoint()
olemasolevatest raamidest kohtade suurimad x ja y
AmFrame fr;
int xmax = 0; int ymax = 0;
* int i = 0; i < frames.size(); i++
fr = (AmFrame)(frames.elementAt(i));
Point p = fr.getLocationOnScreen();
? p.y > ymax
ymax = p.y;
<======new Point(xmax, ymax)