To comment on the following update, log in, then open the issue: http://www.openoffice.org/issues/show_bug.cgi?id=82427 Issue #|82427 Summary|Mac OS X (Aqua): Drawing function does not draw anythi |ng Component|tools Version|680m229 Platform|All URL| OS/Version|Mac OS X Status|NEW Status whiteboard| Keywords| Resolution| Issue type|DEFECT Priority|P2 Subcomponent|code Assigned to|gh Reported by|jsi
------- Additional comments from [EMAIL PROTECTED] Tue Oct 9 08:03:28 +0000 2007 ------- 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 --------------------------------------------------------------------- Please do not reply to this automatically generated notification from Issue Tracker. Please log onto the website and enter your comments. http://qa.openoffice.org/issue_handling/project_issues.html#notification --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED] --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]