CreateStandardWindowMenu GLITCH, help?

[Josh Hague <jhague at koingosw dot com>]

For some reason, in RB 5, latest build, it'll place this newly created 
Window menu in the second position (to the immediate right of the "My 
Program" menu), instead of where it should be: right before the Help 
menu. Any clues?
  Dim MenuRef As MemoryBlock
  Dim err, Version As Integer

  If Not system.Gestalt("cbon", Version) Then
    Return
  ElseIf version < &h0110 Then
    Return
  End If

  Declare Function CreateStandardWindowMenu Lib "CarbonLib" (inOptions 
as Integer, outMenu as ptr) as Integer
  Declare Sub InsertMenu Lib "CarbonLib" (theMenu as ptr, beforeID as 
Integer)
  Declare Sub DisposeMenu Lib "CarbonLib" (theMenu as ptr)

  menuRef = NewMemoryBlock(4)
  err = CreateStandardWindowMenu(0, MenuRef)
  InsertMenu MenuRef.ptr(0), 0

  DisposeMenu MenuRef.ptr(0)


---
A searchable archive of this list is available at:
<http://support.realsoftware.com/listarchives/search.php>

Unsubscribe:
<mailto:realbasic-betas-off at lists dot realsoftware dot com>

Subscribe to the digest:
<mailto:realbasic-betas-digest at lists dot realsoftware dot com>
.