FOREIGN MODULE java_awt_peer;

IMPORT
    java_lang,
    java_awt,
    java_awt_image,
    java_io,
    java_awt_event;

TYPE

  ButtonPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ComponentPeer)
                END;

  CanvasPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ComponentPeer)
                END;

  CheckboxMenuItemPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + MenuItemPeer)
                          END;

  CheckboxPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ComponentPeer)
                  END;

  ChoicePeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ComponentPeer)
                END;

  ComponentPeer* = POINTER TO INTERFACE RECORD (java_lang.Object)
                   END;

  ContainerPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ComponentPeer)
                   END;

  DialogPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + WindowPeer)
                END;

  FileDialogPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + DialogPeer)
                    END;

  FontPeer* = POINTER TO INTERFACE RECORD (java_lang.Object)
              END;

  FramePeer* = POINTER TO INTERFACE RECORD (java_lang.Object + WindowPeer)
               END;

  LabelPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ComponentPeer)
               END;

  LightweightPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ComponentPeer)
                     END;

  ListPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ComponentPeer)
              END;

  MenuBarPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + MenuComponentPeer)
                 END;

  MenuComponentPeer* = POINTER TO INTERFACE RECORD (java_lang.Object)
                       END;

  MenuItemPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + MenuComponentPeer)
                  END;

  MenuPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + MenuItemPeer)
              END;

  PanelPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ContainerPeer)
               END;

  PopupMenuPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + MenuPeer)
                   END;

  ScrollbarPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ComponentPeer)
                   END;

  ScrollPanePeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ContainerPeer)
                    END;

  TextAreaPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + TextComponentPeer)
                  END;

  TextComponentPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ComponentPeer)
                       END;

  TextFieldPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + TextComponentPeer)
                   END;

  WindowPeer* = POINTER TO INTERFACE RECORD (java_lang.Object + ContainerPeer)
                STATIC
                  IGNORE_EVENT* = 0;
                  CONSUME_EVENT* = 1;
                  FOCUS_NEXT* = 2;
                  FOCUS_PREVIOUS* = 3;
                END;




PROCEDURE (self:ButtonPeer) setLabel*(p0 : java_lang.String),NEW,ABSTRACT;

PROCEDURE (self:CheckboxMenuItemPeer) setState*(p0 : BOOLEAN),NEW,ABSTRACT;

PROCEDURE (self:CheckboxPeer) setCheckboxGroup*(p0 : java_awt.CheckboxGroup),NEW,ABSTRACT;

PROCEDURE (self:CheckboxPeer) setLabel*(p0 : java_lang.String),NEW,ABSTRACT;

PROCEDURE (self:CheckboxPeer) setState*(p0 : BOOLEAN),NEW,ABSTRACT;

PROCEDURE (self:ChoicePeer) add*(p0 : java_lang.String;
                                 p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ChoicePeer) addItem*(p0 : java_lang.String;
                                     p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ChoicePeer) remove*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ChoicePeer) select*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) checkImage*(p0 : java_awt.Image;
                                           p1 : INTEGER;
                                           p2 : INTEGER;
                                           p3 : java_awt_image.ImageObserver) : INTEGER,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) createImage*(p0 : INTEGER;
                                            p1 : INTEGER) : java_awt.Image,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) createImage*(p0 : java_awt_image.ImageProducer) : java_awt.Image,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) disable*(),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) dispose*(),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) enable*(),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) getColorModel*() : java_awt_image.ColorModel,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) getFontMetrics*(p0 : java_awt.Font) : java_awt.FontMetrics,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) getGraphics*() : java_awt.Graphics,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) getLocationOnScreen*() : java_awt.Point,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) getMinimumSize*() : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) getPreferredSize*() : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) getToolkit*() : java_awt.Toolkit,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) handleEvent*(p0 : java_awt.AWTEvent),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) hide*(),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) isFocusTraversable*() : BOOLEAN,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) minimumSize*() : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) paint*(p0 : java_awt.Graphics),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) preferredSize*() : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) prepareImage*(p0 : java_awt.Image;
                                             p1 : INTEGER;
                                             p2 : INTEGER;
                                             p3 : java_awt_image.ImageObserver) : BOOLEAN,NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) print*(p0 : java_awt.Graphics),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) repaint*(p0 : LONGINT;
                                        p1 : INTEGER;
                                        p2 : INTEGER;
                                        p3 : INTEGER;
                                        p4 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) requestFocus*(),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) reshape*(p0 : INTEGER;
                                        p1 : INTEGER;
                                        p2 : INTEGER;
                                        p3 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) setBackground*(p0 : java_awt.Color),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) setBounds*(p0 : INTEGER;
                                          p1 : INTEGER;
                                          p2 : INTEGER;
                                          p3 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) setCursor*(p0 : java_awt.Cursor),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) setEnabled*(p0 : BOOLEAN),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) setFont*(p0 : java_awt.Font),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) setForeground*(p0 : java_awt.Color),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) setVisible*(p0 : BOOLEAN),NEW,ABSTRACT;

PROCEDURE (self:ComponentPeer) show*(),NEW,ABSTRACT;

PROCEDURE (self:ContainerPeer) beginValidate*(),NEW,ABSTRACT;

PROCEDURE (self:ContainerPeer) endValidate*(),NEW,ABSTRACT;

PROCEDURE (self:ContainerPeer) getInsets*() : java_awt.Insets,NEW,ABSTRACT;

PROCEDURE (self:ContainerPeer) insets*() : java_awt.Insets,NEW,ABSTRACT;

PROCEDURE (self:DialogPeer) setResizable*(p0 : BOOLEAN),NEW,ABSTRACT;

PROCEDURE (self:DialogPeer) setTitle*(p0 : java_lang.String),NEW,ABSTRACT;

PROCEDURE (self:FileDialogPeer) setDirectory*(p0 : java_lang.String),NEW,ABSTRACT;

PROCEDURE (self:FileDialogPeer) setFile*(p0 : java_lang.String),NEW,ABSTRACT;

PROCEDURE (self:FileDialogPeer) setFilenameFilter*(p0 : java_io.FilenameFilter),NEW,ABSTRACT;

PROCEDURE (self:FramePeer) getState*() : INTEGER,NEW,ABSTRACT;

PROCEDURE (self:FramePeer) setIconImage*(p0 : java_awt.Image),NEW,ABSTRACT;

PROCEDURE (self:FramePeer) setMenuBar*(p0 : java_awt.MenuBar),NEW,ABSTRACT;

PROCEDURE (self:FramePeer) setResizable*(p0 : BOOLEAN),NEW,ABSTRACT;

PROCEDURE (self:FramePeer) setState*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:FramePeer) setTitle*(p0 : java_lang.String),NEW,ABSTRACT;

PROCEDURE (self:LabelPeer) setAlignment*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:LabelPeer) setText*(p0 : java_lang.String),NEW,ABSTRACT;

PROCEDURE (self:ListPeer) add*(p0 : java_lang.String;
                               p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ListPeer) addItem*(p0 : java_lang.String;
                                   p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ListPeer) clear*(),NEW,ABSTRACT;

PROCEDURE (self:ListPeer) delItems*(p0 : INTEGER;
                                    p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ListPeer) deselect*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ListPeer) getMinimumSize*(p0 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:ListPeer) getPreferredSize*(p0 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:ListPeer) getSelectedIndexes*() : POINTER TO ARRAY OF INTEGER,NEW,ABSTRACT;

PROCEDURE (self:ListPeer) makeVisible*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ListPeer) minimumSize*(p0 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:ListPeer) preferredSize*(p0 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:ListPeer) removeAll*(),NEW,ABSTRACT;

PROCEDURE (self:ListPeer) select*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ListPeer) setMultipleMode*(p0 : BOOLEAN),NEW,ABSTRACT;

PROCEDURE (self:ListPeer) setMultipleSelections*(p0 : BOOLEAN),NEW,ABSTRACT;

PROCEDURE (self:MenuBarPeer) addHelpMenu*(p0 : java_awt.Menu),NEW,ABSTRACT;

PROCEDURE (self:MenuBarPeer) addMenu*(p0 : java_awt.Menu),NEW,ABSTRACT;

PROCEDURE (self:MenuBarPeer) delMenu*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:MenuComponentPeer) dispose*(),NEW,ABSTRACT;

PROCEDURE (self:MenuItemPeer) disable*(),NEW,ABSTRACT;

PROCEDURE (self:MenuItemPeer) enable*(),NEW,ABSTRACT;

PROCEDURE (self:MenuItemPeer) setEnabled*(p0 : BOOLEAN),NEW,ABSTRACT;

PROCEDURE (self:MenuItemPeer) setLabel*(p0 : java_lang.String),NEW,ABSTRACT;

PROCEDURE (self:MenuPeer) addItem*(p0 : java_awt.MenuItem),NEW,ABSTRACT;

PROCEDURE (self:MenuPeer) addSeparator*(),NEW,ABSTRACT;

PROCEDURE (self:MenuPeer) delItem*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:PopupMenuPeer) show*(p0 : java_awt.Event),NEW,ABSTRACT;

PROCEDURE (self:ScrollbarPeer) setLineIncrement*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ScrollbarPeer) setPageIncrement*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ScrollbarPeer) setValues*(p0 : INTEGER;
                                          p1 : INTEGER;
                                          p2 : INTEGER;
                                          p3 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ScrollPanePeer) childResized*(p0 : INTEGER;
                                              p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ScrollPanePeer) getHScrollbarHeight*() : INTEGER,NEW,ABSTRACT;

PROCEDURE (self:ScrollPanePeer) getVScrollbarWidth*() : INTEGER,NEW,ABSTRACT;

PROCEDURE (self:ScrollPanePeer) setScrollPosition*(p0 : INTEGER;
                                                   p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ScrollPanePeer) setUnitIncrement*(p0 : java_awt.Adjustable;
                                                  p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:ScrollPanePeer) setValue*(p0 : java_awt.Adjustable;
                                          p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:TextAreaPeer) getMinimumSize*(p0 : INTEGER;
                                              p1 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:TextAreaPeer) getPreferredSize*(p0 : INTEGER;
                                                p1 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:TextAreaPeer) insert*(p0 : java_lang.String;
                                      p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:TextAreaPeer) insertText*(p0 : java_lang.String;
                                          p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:TextAreaPeer) minimumSize*(p0 : INTEGER;
                                           p1 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:TextAreaPeer) preferredSize*(p0 : INTEGER;
                                             p1 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:TextAreaPeer) replaceRange*(p0 : java_lang.String;
                                            p1 : INTEGER;
                                            p2 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:TextAreaPeer) replaceText*(p0 : java_lang.String;
                                           p1 : INTEGER;
                                           p2 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:TextComponentPeer) getCaretPosition*() : INTEGER,NEW,ABSTRACT;

PROCEDURE (self:TextComponentPeer) getSelectionEnd*() : INTEGER,NEW,ABSTRACT;

PROCEDURE (self:TextComponentPeer) getSelectionStart*() : INTEGER,NEW,ABSTRACT;

PROCEDURE (self:TextComponentPeer) getText*() : java_lang.String,NEW,ABSTRACT;

PROCEDURE (self:TextComponentPeer) select*(p0 : INTEGER;
                                           p1 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:TextComponentPeer) setCaretPosition*(p0 : INTEGER),NEW,ABSTRACT;

PROCEDURE (self:TextComponentPeer) setEditable*(p0 : BOOLEAN),NEW,ABSTRACT;

PROCEDURE (self:TextComponentPeer) setText*(p0 : java_lang.String),NEW,ABSTRACT;

PROCEDURE (self:TextFieldPeer) getMinimumSize*(p0 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:TextFieldPeer) getPreferredSize*(p0 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:TextFieldPeer) minimumSize*(p0 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:TextFieldPeer) preferredSize*(p0 : INTEGER) : java_awt.Dimension,NEW,ABSTRACT;

PROCEDURE (self:TextFieldPeer) setEchoChar*(p0 : CHAR),NEW,ABSTRACT;

PROCEDURE (self:TextFieldPeer) setEchoCharacter*(p0 : CHAR),NEW,ABSTRACT;

PROCEDURE (self:WindowPeer) handleFocusTraversalEvent*(p0 : java_awt_event.KeyEvent) : INTEGER,NEW,ABSTRACT;

PROCEDURE (self:WindowPeer) toBack*(),NEW,ABSTRACT;

PROCEDURE (self:WindowPeer) toFront*(),NEW,ABSTRACT;

END java_awt_peer.