Add subclass of JTextArea for program text.
Chris Pressey
13 years ago
| 51 | 51 | $(CDIR)/AbstractDepiction.class \ |
| 52 | 52 | $(CDIR)/TapeDepiction.class \ |
| 53 | 53 | $(CDIR)/PlayfieldDepiction.class \ |
| 54 | $(CDIR)/ProgramTextArea.class \ | |
| 54 | 55 | $(CDIR)/TextAreasWorld.class \ |
| 55 | 56 | $(CDIR)/ContentPane.class \ |
| 56 | 57 | \ |
| 188 | 189 | $(CDIR)/PlayfieldDepiction.class: src/PlayfieldDepiction.java $(CDIR)/Playfield.class $(CDIR)/AbstractDepiction.class |
| 189 | 190 | $(JAVAC) $(JFLAGS) -cp bin -d bin src/PlayfieldDepiction.java |
| 190 | 191 | |
| 192 | $(CDIR)/ProgramTextArea.class: src/ProgramTextArea.java | |
| 193 | $(JAVAC) $(JFLAGS) -cp bin -d bin src/ProgramTextArea.java | |
| 194 | ||
| 191 | 195 | $(CDIR)/TextAreasWorld.class: src/TextAreasWorld.java $(CDIR)/World.class |
| 192 | 196 | $(JAVAC) $(JFLAGS) -cp bin -d bin src/TextAreasWorld.java |
| 193 | 197 | |
Binary diff not shown
Binary diff not shown
Binary diff not shown
Binary diff not shown
Binary diff not shown
Binary diff not shown
Binary diff not shown
Binary diff not shown
Binary diff not shown
Binary diff not shown
Binary diff not shown
Binary diff not shown
| 93 | 93 | private TapeDepiction[] td = {null, null, null, null, null}; |
| 94 | 94 | private JLabel statusBar; |
| 95 | 95 | private Font editFont; |
| 96 | private JTextArea progBox, inputBox, outputBox, editBox, aboutBox; | |
| 96 | private ProgramTextArea progBox; | |
| 97 | private JTextArea inputBox, outputBox, editBox, aboutBox; | |
| 97 | 98 | private JScrollPane editScrollPane, aboutScrollPane; |
| 98 | 99 | private JPanel interiorPanel, aboutPanel, editPanel; |
| 99 | 100 | private JComponent languageComponent = null; |
| 384 | 385 | |
| 385 | 386 | //---------- the program text ----------- |
| 386 | 387 | if (language.hasProgramText()) { |
| 387 | progBox = new JTextArea(); | |
| 388 | progBox = new ProgramTextArea(); | |
| 388 | 389 | progBox.setEditable(false); |
| 389 | 390 | progBox.setFont(editFont); |
| 390 | 391 | JScrollPane progScrollPane = new JScrollPane(progBox); |
| 567 | 568 | |
| 568 | 569 | refreshDepictions(); |
| 569 | 570 | this.setVisible(true); |
| 570 | if (language.hasProgramText()) { | |
| 571 | progBox.requestFocus(); | |
| 572 | } | |
| 573 | 571 | } |
| 574 | 572 | |
| 575 | 573 | protected void refreshDepictions() { |
| 578 | 576 | if (language.hasProgramText()) { |
| 579 | 577 | progBox.setText(currentState.getProgramText()); |
| 580 | 578 | int pos = currentState.getProgramPosition(); |
| 581 | progBox.setCaretPosition(pos); | |
| 582 | progBox.setSelectionStart(pos); | |
| 583 | progBox.setSelectionEnd(pos + 1); | |
| 579 | progBox.highlightPosition(pos); | |
| 584 | 580 | } |
| 585 | 581 | |
| 586 | 582 | for (int pfNum = 0; pfNum <= language.numPlayfields(); pfNum++) { |
| 0 | /* | |
| 1 | * A ProgramTextArea is a JTextArea which supports niceties for displaying | |
| 2 | * the program text of a text-based esolang. Specifically, it supports | |
| 3 | * highlighting the current area of the program being executed. | |
| 4 | * The source code in this file has been placed into the public domain. | |
| 5 | */ | |
| 6 | package tc.catseye.yoob; | |
| 7 | ||
| 8 | import javax.swing.JTextArea; | |
| 9 | import javax.swing.text.BadLocationException; | |
| 10 | import javax.swing.text.DefaultHighlighter; | |
| 11 | import javax.swing.text.Highlighter; | |
| 12 | ||
| 13 | public class ProgramTextArea extends JTextArea { | |
| 14 | public void highlightPosition(int position) { | |
| 15 | // highlight all characters that appear in charsToHighlight | |
| 16 | Highlighter h = getHighlighter(); | |
| 17 | h.removeAllHighlights(); | |
| 18 | try { | |
| 19 | h.addHighlight(position, position + 1, | |
| 20 | DefaultHighlighter.DefaultPainter); | |
| 21 | } catch (BadLocationException ble) { | |
| 22 | // oh well | |
| 23 | } | |
| 24 | } | |
| 25 | } |