"Standard" Windows Mac OS X Menu 
Author Message
 "Standard" Windows Mac OS X Menu

Hi all,

Is there a class to implement the "Standard" Wind Zoom Window, Minimize
Window and Bring All to Front manu items?ows Mac OS X Menu with the standard
Zoom Window, Minimize Window and Bring All to Front menu items?

Thank you in advanced.

PS
Thank you Matheau for the "Implementing the little button at the top right
of the window bar" topic help.



Tue, 16 Nov 2004 03:18:34 GMT  
 "Standard" Windows Mac OS X Menu


Quote:
> Hi all,

> Is there a class to implement the "Standard" Wind Zoom Window, Minimize
> Window and Bring All to Front manu items?ows Mac OS X Menu with the standard
> Zoom Window, Minimize Window and Bring All to Front menu items?

Either you use this:

Sub InstallWindowMenu()
   dim menuRef as memoryBlock
   dim err, version as integer

   'installing windows menu if under carbon, feel free to use this code in
your own apps. =)

   #if TargetCarbon
   'check for carbonLib 1.1, the below call only works with 1.1 or higher
   if not System.Gestalt("cbon", version) then
      return
   else
      if version <= &h0110 then
         return
      end if
   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 Dispo{*filter*}u Lib "CarbonLib" (theMenu as ptr)

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

   'releasing handle to free up memory
   Dispo{*filter*}u menuRef.ptr(0)
   #endif
End Sub

or this:

  If MMiscInstallWindowMenu = False Then 'requires OSXUtils-12
' http://www.*-*-*.com/

    Beep
  End If
  #EndIf



Tue, 16 Nov 2004 15:17:10 GMT  
 
 [ 2 post ] 

 Relevant Pages 

1. Adding menu to mac "system tray"

2. OS/2 "standard" TCP/IP

3. "menu to" under windows NT

4. Forth standards (was "forth standard?")

5. Building "non-standard" standard extensions

6. "Fixing" os.system on Windows

7. string.join(["Tk 4.2p2", "Python 1.4", "Win32", "free"], "for")

8. "Out Port.vi": passing from Windows NT 4.0 to Windows 2000

9. "Advanced" Shortcuts menu items

10. Adding "browse" to system menus

11. In the "Menu" window (funny)

12. Control of System Menu "X"

 

 
Powered by phpBB® Forum Software