Execute test sub routine and you will see that under Mac OS X Aqua nothing is
being drawn.

sub wZeichenobjektEinfuegen ( Objekt$, xStart%, yStart%, xEnde%, yEnde%,
optional sCloseToolbar as boolean )

    Kontext "DrawBar"
    if Not DrawBar.Exists then Call hToolbarSelect("Drawing", true)
    Sleep 2

    Objekt = UCase( Objekt )
    select case Objekt
        case "RECHTECK" : Rechteck.Click
        case "LINIE"     : Linie.Click
        case "ELLIPSE"  : Ellipse.Click
        case "TEXT"      : Textobjekt.Click
        case "VTEXT"     :
        try
            VerticalText.Click
        catch
            if gAsianSup = True then
                Warnlog "Unable to insert Vertical Text! Asian Support in
Options activated ?"
            endif
        endcatch
        case "LAUFTEXT" : Lauftext.Click
        case "LEGENDE"  : Legende.Click
        case "VLEGENDE" :
        try
            VerticalCallout.Click
        catch
            Warnlog "Unable to insert Vertical Callout! Asian Support in Options
activated ?"
        endcatch
    end select

    Select Case gApplication
     Case "WRITER"
         Kontext "DocumentWriter"
         DocumentWriter.MouseDown xStart%, yStart%
         DocumentWriter.MouseMove xEnde%, yEnde%
         DocumentWriter.MouseUp xEnde%, yEnde%
         wait 100
         Kontext "Drawbar"
         if IsMissing(sCloseToolbar) then
             Drawbar.Close
         else
             if sCloseToolbar = true then Drawbar.Close
         endif
         if Objekt <> "TEXT" and Objekt <> "VTEXT" then
             Kontext "DocumentWriter"
             Call gMouseClick (99, 99)
             wait 100
         end if

     Case "MASTERDOC"
         Kontext "DocumentMasterDoc"
         DocumentMasterDoc.MouseDown xStart%, yStart%
         DocumentMasterDoc.MouseMove xEnde%, yEnde%
         DocumentMasterDoc.MouseUp xEnde%, yEnde%
         wait 100
         Kontext "Drawbar"
         if IsMissing(sCloseToolbar) then
             Drawbar.Close
         else
             if sCloseToolbar = true then Drawbar.Close
         endif
         if Objekt <> "TEXT" and Objekt <> "VTEXT" then
             Kontext "DocumentMasterDoc"
             Call gMouseClick (99, 99)
             wait 100
         end if
    end select
end sub