home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 144 / DPCS0200.iso / Internet / Supanet / system / swing.jar / javax / swing / text / DefaultEditorKit$PageUpAction.class (.txt) < prev    next >
Encoding:
Java Class File  |  1998-11-05  |  1.4 KB  |  47 lines

  1. package javax.swing.text;
  2.  
  3. import java.awt.Component;
  4. import java.awt.Point;
  5. import java.awt.Rectangle;
  6. import java.awt.event.ActionEvent;
  7. import javax.swing.JComponent;
  8.  
  9. class DefaultEditorKit$PageUpAction extends TextAction {
  10.    DefaultEditorKit$PageUpAction() {
  11.       super("page-up");
  12.    }
  13.  
  14.    public void actionPerformed(ActionEvent var1) {
  15.       JTextComponent var2 = ((TextAction)this).getTextComponent(var1);
  16.       if (var2 != null) {
  17.          Rectangle var5 = new Rectangle();
  18.          ((JComponent)var2).computeVisibleRect(var5);
  19.          int var3 = var5.y;
  20.          var5.y -= var5.height;
  21.          if (var5.y < 0) {
  22.             var5.y = 0;
  23.          }
  24.  
  25.          var3 -= var5.y;
  26.          ((JComponent)var2).scrollRectToVisible(var5);
  27.          int var4 = var2.getCaretPosition();
  28.  
  29.          try {
  30.             if (var4 != -1) {
  31.                Rectangle var6 = var2.modelToView(var4);
  32.                var6.y -= var3;
  33.                var4 = var2.viewToModel(new Point(var6.x, var6.y));
  34.                if (var4 < 0) {
  35.                   var4 = 0;
  36.                }
  37.  
  38.                var2.setCaretPosition(var4);
  39.             }
  40.          } catch (BadLocationException var7) {
  41.             ((Component)var2).getToolkit().beep();
  42.          }
  43.       }
  44.  
  45.    }
  46. }
  47.