ampleGUI;

 var
  w: WindowPtr; {A window to draw in}
  r: Rect; {The bounding box of the window}

begin

 SetRect(r, 50, 50, 200, 100);
 w := NewWindow(nil, r, '', true, plainDBox, WindowPtr(-1), false, 0);
 SetPort(w);

 MoveTo(5, 20);
 DrawString('Hello world!');

 while not Button do
  begin
  end;

end.
</pre>

<h3>Graphics Primitives</h3>

<p>Graphical user interface design rests firmly on the foundation of OOP and illustrates its power and elegance. </p>

<table border='1'>
  <tr>
    <td>Object</td>