<div dir="ltr">Hi Nicolas,<div><br></div><div>    also the horrible use of embedding #if TARGET)_API_MAC_CARBON in self cCode: has to go (in particular one gets semicolons at the end of #endif.  Can you rewrte in this style?</div><div><br></div><div><div>primitiveCreateStandardWindowMenu: inOptions </div><div><span class="" style="white-space:pre">        </span>| menuHandle result |</div><div><span class="" style="white-space:pre">        </span>self primitive: &#39;primitiveCreateStandardWindowMenu&#39;</div><div><span class="" style="white-space:pre">                </span>parameters: #(SmallInteger).</div><div><span class="" style="white-space:pre">        </span>self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.</div><div><span class="" style="white-space:pre">        </span></div><div><span class="" style="white-space:pre">        </span>self cppIf: #TARGET_API_MAC_CARBON</div><div><span class="" style="white-space:pre">                </span>ifTrue: [result := self cCode: &#39;CreateStandardWindowMenu(inOptions,&amp;menuHandle)&#39;]</div><div><span class="" style="white-space:pre">                </span>ifFalse: [^interpreterProxy primitiveFail].</div><div><span class="" style="white-space:pre">        </span>^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: #long)</div></div><div><br></div><div><br></div><div>I&#39;d do it myself but I know I&#39;ll break the code :-(</div></div><div class="gmail_extra"><br><div class="gmail_quote">On Fri, Mar 4, 2016 at 5:33 PM,  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><br>
Nicolas Cellier uploaded a new version of VMMaker to project VM Maker:<br>
<a href="http://source.squeak.org/VMMaker/VMMaker.oscog-nice.1712.mcz" rel="noreferrer" target="_blank">http://source.squeak.org/VMMaker/VMMaker.oscog-nice.1712.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: VMMaker.oscog-nice.1712<br>
Author: nice<br>
Time: 5 March 2016, 2:32:35.84 am<br>
UUID: 5c7fb203-b18c-4143-a2b9-cd59c2acc47c<br>
Ancestors: VMMaker.oscog-nice.1711<br>
<br>
Make the MacMenubarPlugin 64bits aware: the menuHandle does not necessarily fit on a 32bits int.<br>
<br>
=============== Diff against VMMaker.oscog-nice.1711 ===============<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveAppendMenu:data: (in category &#39;system primitives&#39;) -----<br>
  primitiveAppendMenu: menuHandleOop data: str255<br>
        | menuHandle constStr255 |<br>
        self primitive: &#39;primitiveAppendMenu&#39;<br>
                parameters: #(Oop ByteArray).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;constStr255&#39; type: &#39;ConstStr255Param&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        constStr255 := self cCoerce: str255 to: &#39;ConstStr255Param&#39;.<br>
        self cCode: &#39;AppendMenu(menuHandle,constStr255)&#39; inSmalltalk:[menuHandle].<br>
        ^nil!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveAppendMenuItemText:data: (in category &#39;system primitives&#39;) -----<br>
  primitiveAppendMenuItemText: menuHandleOop data: str255<br>
        | menuHandle constStr255 |<br>
        self primitive: &#39;primitiveAppendMenuItemText&#39;<br>
                parameters: #(Oop ByteArray).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;constStr255&#39; type: &#39;ConstStr255Param&#39;.<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        constStr255 := self cCoerce: str255 to: &#39;ConstStr255Param&#39;.<br>
        self cCode: &#39;AppendMenuItemText(menuHandle,constStr255)&#39; inSmalltalk:[menuHandle].<br>
        ^nil!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveCheckMenuItem:item:checked: (in category &#39;system primitives&#39;) -----<br>
  primitiveCheckMenuItem: menuHandleOop item: anInteger checked: aBoolean<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveCheckMenuItem&#39;<br>
                parameters: #(Oop SmallInteger Boolean).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;CheckMenuItem(menuHandle,anInteger,aBoolean)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveCountMenuItems: (in category &#39;system primitives&#39;) -----<br>
  primitiveCountMenuItems: menuHandleOop<br>
        | menuHandle returnValue |<br>
        self primitive: &#39;primitiveCountMenuItems&#39;<br>
                parameters: #(Oop).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        returnValue := self cCode: &#39;CountMenuItems(menuHandle)&#39; inSmalltalk:[0].<br>
        ^returnValue asSmallIntegerObj<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveCreateStandardWindowMenu: (in category &#39;system primitives&#39;) -----<br>
  primitiveCreateStandardWindowMenu: inOptions<br>
<br>
        | menuHandle result |<br>
        self primitive: &#39;primitiveCreateStandardWindowMenu&#39;<br>
                parameters: #(SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
        self cCode: &#39;#if TARGET_API_MAC_CARBON<br>
  &#39;.<br>
        result := self cCode: &#39;CreateStandardWindowMenu(inOptions,&amp;menuHandle);<br>
  #endif&#39; inSmalltalk:[0].<br>
+       ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: &#39;long&#39;)!<br>
-       ^interpreterProxy positive32BitIntegerFor: (self cCoerce: menuHandle to: &#39;long&#39;)!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveDeleteMenuItem:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveDeleteMenuItem: menuHandleOop item: anInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveDeleteMenuItem&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;DeleteMenuItem(menuHandle,anInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveDisableMenuCommand:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveDisableMenuCommand: menuHandleOop item: anInteger<br>
        | menuHandle commandID |<br>
        self primitive: &#39;primitiveDisableMenuCommand&#39;<br>
                parameters: #(Oop Oop).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;commandID&#39; type: &#39;MenuCommand&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        commandID := self cCoerce: (interpreterProxy positive32BitValueOf: anInteger) to: &#39;MenuCommand&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;#if TARGET_API_MAC_CARBON<br>
  DisableMenuCommand(menuHandle,commandID);<br>
  #endif&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveDisableMenuItem:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveDisableMenuItem: menuHandleOop item: anInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveDisableMenuItem&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;DisableMenuItem(menuHandle,anInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveDisableMenuItemIcon:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveDisableMenuItemIcon: menuHandleOop item: anInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveDisableMenuItemIcon&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;DisableMenuItemIcon(menuHandle,anInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveDisposeMenu: (in category &#39;system primitives&#39;) -----<br>
  primitiveDisposeMenu: menuHandleOop<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveDisposeMenu&#39;<br>
                parameters: #(Oop).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;DisposeMenu(menuHandle)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveEnableMenuCommand:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveEnableMenuCommand: menuHandleOop item: anInteger<br>
        | menuHandle commandID |<br>
        self primitive: &#39;primitiveEnableMenuCommand&#39;<br>
                parameters: #(Oop Oop).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;commandID&#39; type: &#39;MenuCommand&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        commandID := self cCoerce: (interpreterProxy positive32BitValueOf: anInteger) to: &#39;MenuCommand&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;#if TARGET_API_MAC_CARBON<br>
  EnableMenuCommand(menuHandle,commandID);<br>
  #endif&#39; inSmalltalk:[menuHandle].<br>
        ^nil!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveEnableMenuItem:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveEnableMenuItem: menuHandleOop item: anInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveEnableMenuItem&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;EnableMenuItem(menuHandle,anInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveEnableMenuItemIcon:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveEnableMenuItemIcon: menuHandleOop item: anInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveEnableMenuItemIcon&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;EnableMenuItemIcon(menuHandle,anInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetIndMenuItemWithCommandID:commandID: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetIndMenuItemWithCommandID: menuHandleOop commandID: aCommandID<br>
        | menuHandle MenuItemIndex commandID applicationMenu outIndex |<br>
        self primitive: &#39;primitiveGetIndMenuItemWithCommandID&#39;<br>
                parameters: #(Oop Oop).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;commandID&#39; type: &#39;MenuCommand&#39;.<br>
        self var: &#39;applicationMenu&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;outIndex&#39; type: &#39;MenuItemIndex&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        commandID := self cCoerce: (interpreterProxy positive32BitValueOf: aCommandID) to: &#39;MenuCommand&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;#if TARGET_API_MAC_CARBON<br>
  GetIndMenuItemWithCommandID(menuHandle, kHICommandHide, 1,<br>
                     &amp;applicationMenu, &amp;outIndex);<br>
  #endif&#39; inSmalltalk:[menuHandle].<br>
        ^outIndex asSmallIntegerObj<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetIndMenuWithCommandID:commandID: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetIndMenuWithCommandID: menuHandleOop commandID: aCommandID<br>
+       | menuHandle commandID applicationMenu outIndex |<br>
-       | menuHandle MenuItemIndex commandID applicationMenu outIndex |<br>
        self primitive: &#39;primitiveGetIndMenuWithCommandID&#39;<br>
                parameters: #(Oop Oop).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;commandID&#39; type: &#39;MenuCommand&#39;.<br>
        self var: &#39;applicationMenu&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;outIndex&#39; type: &#39;MenuItemIndex&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        commandID := self cCoerce: (interpreterProxy positive32BitValueOf: aCommandID) to: &#39;MenuCommand&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;#if TARGET_API_MAC_CARBON<br>
  GetIndMenuItemWithCommandID(menuHandle, kHICommandHide, 1,<br>
                     &amp;applicationMenu, &amp;outIndex);<br>
  #endif &#39; inSmalltalk:[menuHandle].<br>
+       outIndex asSmallIntegerObj. &quot;to avoid elimination of the variable...&quot;<br>
+       ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: applicationMenu to: &#39;long&#39;)<br>
-       ^interpreterProxy positive32BitIntegerFor: (self cCoerce: applicationMenu to: &#39;long&#39;)<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetItemCmd:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetItemCmd: menuHandleOop item: anInteger<br>
        | menuHandle aCharacter |<br>
        &lt;var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;&gt;<br>
        &lt;var: #aCharacter type: &#39;CharParameter&#39;&gt;<br>
        self primitive: &#39;primitiveGetItemCmd&#39;<br>
                parameters: #(Oop SmallInteger).<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        aCharacter := 0.<br>
        self cCode: &#39;GetItemCmd(menuHandle,anInteger,&amp;aCharacter)&#39; inSmalltalk:[menuHandle].<br>
        ^aCharacter asSmallIntegerObj<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetItemIcon:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetItemIcon: menuHandleOop item: anInteger<br>
        | menuHandle iconIndex |<br>
        self primitive: &#39;primitiveGetItemIcon&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;iconIndex&#39; type: &#39;short&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        iconIndex := 0.<br>
        self cCode: &#39;GetItemIcon(menuHandle,anInteger,&amp;iconIndex)&#39; inSmalltalk:[menuHandle].<br>
        ^iconIndex asSmallIntegerObj<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetItemMark:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetItemMark: menuHandleOop item: anInteger<br>
        | menuHandle aCharacter |<br>
        &lt;var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;&gt;<br>
        &lt;var: #aCharacter type: &#39;CharParameter&#39;&gt;<br>
        self primitive: &#39;primitiveGetItemMark&#39;<br>
                parameters: #(Oop SmallInteger).<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        aCharacter := 0.<br>
        self cCode: &#39;GetItemMark(menuHandle,anInteger,&amp;aCharacter)&#39; inSmalltalk:[menuHandle].<br>
        ^aCharacter asSmallIntegerObj<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetItemStyle:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetItemStyle: menuHandleOop item: anInteger<br>
        | menuHandle chStyle |<br>
        self primitive: &#39;primitiveGetItemStyle&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;chStyle&#39; type: &#39;Style&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        chStyle := 0.<br>
        self cCode: &#39;GetItemStyle(menuHandle,anInteger,&amp;chStyle)&#39; inSmalltalk:[menuHandle].<br>
        ^chStyle asSmallIntegerObj<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuBar (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuBar<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveGetMenuBar&#39;<br>
                parameters: #().<br>
        self var: &#39;menuHandle&#39; type: &#39;Handle&#39;.<br>
        menuHandle := self cCode: &#39;GetMenuBar()&#39; inSmalltalk:[0].<br>
+       ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: &#39;long&#39;)!<br>
-       ^interpreterProxy positive32BitIntegerFor: (self cCoerce: menuHandle to: &#39;long&#39;)!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuHandle: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuHandle: menuID<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveGetMenuHandle&#39;<br>
                parameters: #(SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;menuID&#39; type: &#39;MenuID&#39;.<br>
        menuHandle := self cCode: &#39;GetMenuHandle(menuID)&#39; inSmalltalk:[0].<br>
+       ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: &#39;long&#39;)!<br>
-       ^interpreterProxy positive32BitIntegerFor: (self cCoerce: menuHandle to: &#39;long&#39;)!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuID: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuID: menuHandleOop<br>
        | menuHandle menuID |<br>
<br>
        self primitive: &#39;primitiveGetMenuID&#39;<br>
                parameters: #(Oop ).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;menuID&#39; type: &#39;MenuID&#39;.<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;menuID = GetMenuID(menuHandle)&#39; inSmalltalk:[menuHandle].<br>
        ^menuID asSmallIntegerObj<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuItemCommandID:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuItemCommandID: menuHandleOop item: anInteger<br>
        | menuHandle outCommandID |<br>
        self primitive: &#39;primitiveGetMenuItemCommandID&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;outCommandID&#39; type: &#39;MenuCommand&#39;.<br>
        outCommandID := 0.<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;GetMenuItemCommandID(menuHandle,anInteger,&amp;outCommandID)&#39; inSmalltalk:[menuHandle].<br>
        ^interpreterProxy positive32BitIntegerFor: outCommandID<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuItemFontID:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuItemFontID: menuHandleOop item: anInteger<br>
        | menuHandle outFontID |<br>
        self primitive: &#39;primitiveGetMenuItemFontID&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;outFontID&#39; type: &#39;SInt16&#39;.<br>
        outFontID := 0.<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;GetMenuItemFontID(menuHandle,anInteger,&amp;outFontID)&#39; inSmalltalk:[menuHandle].<br>
        ^outFontID asSmallIntegerObj<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuItemHierarchicalID:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuItemHierarchicalID: menuHandleOop item: anInteger<br>
        | menuHandle outHierID |<br>
        self primitive: &#39;primitiveGetMenuItemHierarchicalID&#39;<br>
                parameters: #(Oop SmallInteger ).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;outHierID&#39; type: &#39;MenuID&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        outHierID := 0.<br>
        self cCode: &#39;GetMenuItemHierarchicalID(menuHandle,anInteger,&amp;outHierID)&#39; inSmalltalk:[menuHandle].<br>
        ^outHierID asSmallIntegerObj<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuItemKeyGlyph:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuItemKeyGlyph: menuHandleOop item: anInteger<br>
        | menuHandle outGlyph |<br>
        self primitive: &#39;primitiveGetMenuItemKeyGlyph&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;outGlyph&#39; type: &#39;SInt16&#39;.<br>
        outGlyph := 0.<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;GetMenuItemKeyGlyph(menuHandle,anInteger,&amp;outGlyph)&#39; inSmalltalk:[menuHandle].<br>
        ^interpreterProxy positive32BitIntegerFor: outGlyph<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuItemModifiers:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuItemModifiers: menuHandleOop item: anInteger<br>
        | menuHandle outModifers |<br>
        self primitive: &#39;primitiveGetMenuItemModifiers&#39;<br>
                parameters: #(Oop SmallInteger ).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;outModifers&#39; type: &#39;Style&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        outModifers := 0.<br>
        self cCode: &#39;GetMenuItemModifiers(menuHandle,anInteger,&amp;outModifers)&#39; inSmalltalk:[menuHandle].<br>
        ^outModifers asSmallIntegerObj<br>
<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuItemText:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuItemText: menuHandleOop item: anInteger<br>
        | menuHandle size oop ptr aString |<br>
        &lt;var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;&gt;<br>
        &lt;var: #aString type: &#39;Str255 &#39;&gt;<br>
        &lt;var: #ptr type: &#39;char *&#39;&gt;<br>
        self primitive: &#39;primitiveGetMenuItemText&#39;<br>
                parameters: #(Oop SmallInteger).<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        aString at: 0 put: 0.<br>
        self cCode: &#39;GetMenuItemText(menuHandle,anInteger,aString)&#39; inSmalltalk:[menuHandle].<br>
        size := self cCode: &#39;aString[0]&#39; inSmalltalk: [0].<br>
        oop := interpreterProxy instantiateClass: interpreterProxy classString indexableSize:  size.<br>
        ptr := interpreterProxy firstIndexableField: oop.<br>
        0 to: size-1 do:[:i|<br>
                ptr at: i put: (aString at: (i+1))].<br>
        ^oop<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuItemTextEncoding:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuItemTextEncoding: menuHandleOop item: anInteger<br>
        | menuHandle outScriptID |<br>
        self primitive: &#39;primitiveGetMenuItemTextEncoding&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;outScriptID&#39; type: &#39;TextEncoding&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;GetMenuItemTextEncoding(menuHandle,anInteger,&amp;outScriptID)&#39; inSmalltalk:[menuHandle].<br>
        ^interpreterProxy positive32BitIntegerFor: outScriptID!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveGetMenuTitle: (in category &#39;system primitives&#39;) -----<br>
  primitiveGetMenuTitle: menuHandleOop<br>
        | menuHandle size oop ptr aString |<br>
        &lt;var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;&gt;<br>
        &lt;var: #aString type: &#39;Str255 &#39;&gt;<br>
        &lt;var: #ptr type: &#39;char *&#39;&gt;<br>
        self primitive: &#39;primitiveGetMenuTitle&#39;<br>
                parameters: #(Oop).<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        aString at: 0 put: 0.<br>
        self cCode: &#39;GetMenuTitle(menuHandle,aString)&#39; inSmalltalk:[menuHandle].<br>
        size := self cCode: &#39;aString[0]&#39; inSmalltalk: [0].<br>
        oop := interpreterProxy instantiateClass: interpreterProxy classString indexableSize:  size.<br>
        ptr := interpreterProxy firstIndexableField: oop.<br>
        0 to: size-1 do:[:i|<br>
                ptr at: i put: (aString at: (i+1))].<br>
        ^oop<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveInsertFontResMenu:afterItem:scriptFilter: (in category &#39;system primitives&#39;) -----<br>
  primitiveInsertFontResMenu: menuHandleOop afterItem: afterItemInteger scriptFilter:  scriptFilterInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveInsertFontResMenu&#39;<br>
                parameters: #(Oop SmallInteger SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;InsertFontResMenu(menuHandle,afterItemInteger,scriptFilterInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveInsertIntlResMenu:theType:afterItem:scriptFilter: (in category &#39;system primitives&#39;) -----<br>
  primitiveInsertIntlResMenu: menuHandleOop theType: aResType afterItem: afterItemInteger scriptFilter:  scriptFilterInteger<br>
        | menuHandle resType |<br>
        self primitive: &#39;primitiveInsertIntlResMenu&#39;<br>
                parameters: #(Oop SmallInteger SmallInteger SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;resType&#39; type: &#39;ResType&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        resType := self cCoerce: (interpreterProxy positive32BitValueOf: aResType) to: &#39;ResType&#39;.<br>
        self cCode: &#39;InsertIntlResMenu(menuHandle,resType,afterItemInteger,scriptFilterInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveInsertMenu:beforeID: (in category &#39;system primitives&#39;) -----<br>
  primitiveInsertMenu: menuHandleOop beforeID: anInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveInsertMenu&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;anInteger&#39; type: &#39;MenuID&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;InsertMenu(menuHandle,anInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveInsertMenuItem:itemString:afterItem: (in category &#39;system primitives&#39;) -----<br>
  primitiveInsertMenuItem: menuHandleOop itemString: str255 afterItem: anInteger<br>
        | menuHandle constStr255 |<br>
        self primitive: &#39;primitiveInsertMenuItem&#39;<br>
                parameters: #(Oop ByteArray SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;constStr255&#39; type: &#39;ConstStr255Param&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        constStr255 := self cCoerce: str255 to: &#39;ConstStr255Param&#39;.<br>
        self cCode: &#39;InsertMenuItem(menuHandle,constStr255,anInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveIsMenuItemEnabled:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveIsMenuItemEnabled: menuHandleOop item: anInteger<br>
<br>
        | menuHandle result |<br>
        self primitive: &#39;primitiveIsMenuItemEnabled&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        result := self cCode: &#39;IsMenuItemEnabled(menuHandle,anInteger)&#39; inSmalltalk:[0].<br>
        ^result asOop: Boolean!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveIsMenuItemIconEnabled:item: (in category &#39;system primitives&#39;) -----<br>
  primitiveIsMenuItemIconEnabled: menuHandleOop item: anInteger<br>
<br>
        | menuHandle result |<br>
        self primitive: &#39;primitiveIsMenuItemIconEnabled&#39;<br>
                parameters: #(Oop SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        result := self cCode: &#39;IsMenuItemIconEnabled(menuHandle,anInteger)&#39; inSmalltalk:[0].<br>
        ^result asOop: Boolean!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveNewMenu:menuTitle: (in category &#39;system primitives&#39;) -----<br>
  primitiveNewMenu: menuID menuTitle: menuTitle<br>
<br>
        | menuHandle constStr255 |<br>
        self primitive: &#39;primitiveNewMenu&#39;<br>
                parameters: #(SmallInteger ByteArray).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;constStr255&#39; type: &#39;ConstStr255Param&#39;.<br>
        self var: &#39;menuID&#39; type: &#39;MenuID&#39;.<br>
<br>
        constStr255 := self cCoerce: menuTitle to: &#39;ConstStr255Param&#39;.<br>
        menuHandle := self cCode: &#39;NewMenu(menuID,constStr255)&#39; inSmalltalk:[0].<br>
+       ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: &#39;long&#39;)!<br>
-       ^interpreterProxy positive32BitIntegerFor: (self cCoerce: menuHandle to: &#39;long&#39;)!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetItemCmd:item:cmdChar: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetItemCmd: menuHandleOop item: anInteger cmdChar: anIntegerCmdChar<br>
        | menuHandle aCharacter |<br>
        &lt;var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;&gt;<br>
        &lt;var: #aCharacter type: &#39;CharParameter &#39;&gt;<br>
        self primitive: &#39;primitiveSetItemCmd&#39;<br>
                parameters: #(Oop SmallInteger SmallInteger).<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        aCharacter := anIntegerCmdChar.<br>
        self cCode: &#39;SetItemCmd(menuHandle,anInteger,aCharacter)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetItemIcon:item:iconIndex: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetItemIcon: menuHandleOop item: anInteger iconIndex: aIconIndexInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveSetItemIcon&#39;<br>
                parameters: #(Oop SmallInteger SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;SetItemIcon(menuHandle,anInteger,aIconIndexInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetItemMark:item:markChar: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetItemMark: menuHandleOop item: anInteger markChar: aMarkChar<br>
        | menuHandle aCharacter |<br>
        &lt;var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;&gt;<br>
        &lt;var: #aCharacter type: &#39;CharParameter &#39;&gt;<br>
        self primitive: &#39;primitiveSetItemMark&#39;<br>
                parameters: #(Oop SmallInteger SmallInteger).<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        aCharacter := aMarkChar.<br>
        self cCode: &#39;SetItemMark(menuHandle,anInteger,aCharacter)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetItemStyle:item:styleParameter: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetItemStyle: menuHandleOop item: anInteger styleParameter: chStyleInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveSetItemStyle&#39;<br>
                parameters: #(Oop SmallInteger SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;SetItemStyle(menuHandle,anInteger,chStyleInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
<br>
  !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetMenuBar: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetMenuBar: menuHandleOop<br>
<br>
        | menuBarHandle |<br>
        self primitive: &#39;primitiveSetMenuBar&#39;<br>
                parameters: #(Oop).<br>
        self var: &#39;menuBarHandle&#39; type: &#39;MenuBarHandle&#39;.<br>
+       menuBarHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuBarHandle&#39;.<br>
-       menuBarHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuBarHandle&#39;.<br>
        self cCode: &#39;SetMenuBar(menuBarHandle)&#39; inSmalltalk:[menuBarHandle].<br>
        ^nil!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetMenuItemCommandID:item:menuCommand: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetMenuItemCommandID: menuHandleOop item: anInteger menuCommand:  inCommandID<br>
        | menuHandle commandID |<br>
        self primitive: &#39;primitiveSetMenuItemCommandID&#39;<br>
                parameters: #(Oop SmallInteger Oop).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;commandID&#39; type: &#39;MenuCommand&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        commandID := self cCoerce: (interpreterProxy positive32BitValueOf: inCommandID) to: &#39;MenuCommand&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;SetMenuItemCommandID(menuHandle,anInteger,commandID)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetMenuItemFontID:item:fontID: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetMenuItemFontID: menuHandleOop item: anInteger fontID: aFontIDInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveSetMenuItemFontID&#39;<br>
                parameters: #(Oop SmallInteger SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;SetMenuItemFontID(menuHandle,anInteger,aFontIDInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetMenuItemHierarchicalID:item:hierID: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetMenuItemHierarchicalID: menuHandleOop item: anInteger hierID: aMenuID<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveSetMenuItemHierarchicalID&#39;<br>
                parameters: #(Oop SmallInteger SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;menuID&#39; type: &#39;MenuID&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;SetMenuItemHierarchicalID(menuHandle,anInteger,aMenuID)&#39; inSmalltalk:[menuHandle].<br>
        ^nil!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetMenuItemKeyGlyph:item:glyph: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetMenuItemKeyGlyph: menuHandleOop item: anInteger glyph:  inGlyphInteger<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveSetMenuItemKeyGlyph&#39;<br>
                parameters: #(Oop SmallInteger SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;SetMenuItemKeyGlyph(menuHandle,anInteger,inGlyphInteger)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetMenuItemModifiers:item:inModifiers: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetMenuItemModifiers: menuHandleOop item: anInteger inModifiers: aUInt8<br>
        | menuHandle |<br>
        self primitive: &#39;primitiveSetMenuItemModifiers&#39;<br>
                parameters: #(Oop SmallInteger SmallInteger).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        self cCode: &#39;SetMenuItemModifiers(menuHandle,anInteger,aUInt8)&#39; inSmalltalk:[menuHandle].<br>
        ^nil!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetMenuItemText:item:itemString: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetMenuItemText: menuHandleOop item: anInteger itemString: str255<br>
        | menuHandle constStr255 |<br>
        self primitive: &#39;primitiveSetMenuItemText&#39;<br>
                parameters: #(Oop SmallInteger ByteArray).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;constStr255&#39; type: &#39;ConstStr255Param&#39;.<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        constStr255 := self cCoerce: str255 to: &#39;ConstStr255Param&#39;.<br>
        self cCode: &#39;SetMenuItemText(menuHandle,anInteger,constStr255)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
        !<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetMenuItemTextEncoding:item:inScriptID: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetMenuItemTextEncoding: menuHandleOop item: anInteger inScriptID: aTextEncodingOop<br>
        | menuHandle inScriptID |<br>
        self primitive: &#39;primitiveSetMenuItemTextEncoding&#39;<br>
                parameters: #(Oop SmallInteger Oop).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;inScriptID&#39; type: &#39;TextEncoding&#39;.<br>
<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        inScriptID := self cCoerce: (interpreterProxy positive32BitValueOf: aTextEncodingOop) to: &#39;TextEncoding&#39;.<br>
        self cCode: &#39;SetMenuItemTextEncoding(menuHandle,anInteger,inScriptID)&#39; inSmalltalk:[menuHandle].<br>
        ^nil!<br>
<br>
Item was changed:<br>
  ----- Method: MacMenubarPlugin&gt;&gt;primitiveSetMenuTitle:title: (in category &#39;system primitives&#39;) -----<br>
  primitiveSetMenuTitle: menuHandleOop  title: str255<br>
        | menuHandle constStr255 |<br>
        self primitive: &#39;primitiveSetMenuTitle&#39;<br>
                parameters: #(Oop ByteArray).<br>
        self var: &#39;menuHandle&#39; type: &#39;MenuHandle&#39;.<br>
        self var: &#39;constStr255&#39; type: &#39;ConstStr255Param&#39;.<br>
+       menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
-       menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: &#39;MenuHandle&#39;.<br>
        (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
        constStr255 := self cCoerce: str255 to: &#39;ConstStr255Param&#39;.<br>
        self cCode: &#39;SetMenuTitle(menuHandle,constStr255)&#39; inSmalltalk:[menuHandle].<br>
        ^nil<br>
        !<br>
<br>
</blockquote></div><br><br clear="all"><div><br></div>-- <br><div class="gmail_signature"><div dir="ltr"><div><span style="font-size:small;border-collapse:separate"><div>_,,,^..^,,,_<br></div><div>best, Eliot</div></span></div></div></div>
</div>