AMADEUS html plain
* import java.awt.
*;
event.*;
Toolkit;
beep
class Item37Listener
class Item37Listener implements ActionListener
Edit + Enclose
on vajalik eeska"tt valitud skeemi ymbritsemiseks
AmFrame frame;
Item37Listener(AmFrame fr)
konstruktor
public void actionPerformed(ActionEvent event)
AmCanvas c = (AmCanvas)(frame.viewArea);
Sketch newS;
tehtav skeem
??c.selection.kind()
? Selection.OUTER:
newS = frame.contents.editor.encloseOuter(
(Sketch)(c.selection.start.scheme));
<======
? Selection.PRIMITIVE2SCHEME:
ALGJAVA
Sketch ssk = (Sketch)(c.selection.end.scheme);
? ssk.type == Scheme.MODULE || ssk.containsModule()
Toolkit.getDefaultToolkit().beep();
<==============
võtta valik lihtskeemiks
newS =
frame.contents.editor.group2simple(c.selection);
<======
? Selection.SCHEME2SCHEME:
Sketch ssk0 = (Sketch)(c.selection.start.scheme);
Sketch ssk1 = (Sketch)(c.selection.end.scheme);
? ssk1.type == Scheme.MODULE || ssk1.containsModule()
siis ka algusskeem peab selline olema
? ssk0.type == Scheme.MODULE || ssk0.containsModule()
võtta valik lihtskeemiks
newS =
frame.contents.editor.group2simple(c.selection);
<==============
Toolkit.getDefaultToolkit().beep();
<======================
rühmI .. m/rühmII
.. rühmI
võtta valik lihtskeemiks
newS =
frame.contents.editor.group2simple(c.selection);
<======
? Selection.PRIMITIVE:
? Selection.PRIMITIVE2PRIMITIVE:
? Selection.SCHEME2PRIMITIVE:
ALGJAVAs ei ole
võtta valik lihtskeemiks
newS =
frame.contents.editor.group2simple(c.selection);
<======
? :
muidu ei tee midagi
<==========
ALGJAVA: tehtule baaskeeleks _AlgJava (kui veel pole)
? newS.baseLanguage.type != BaseLanguage._ALGJAVA
BaseLanguage.setAll(newS, BaseLanguage._ALGJAVA);
valik tehtule:
Cursor cur = new Cursor(newS);
c.selection = new Selection(c, cur, cur);
frame.contents.main.view.plan(c.hd, c.vd);
c.own = true; c.repaint();