<div dir="ltr">Hi Nicolas,<div><br></div><div> how about refactoring like this: ?</div><div><br></div><div><span style="color:rgb(0,0,0);font-size:12.8px">MacMenubarPlugin>>oopAsMenuHandle: </span><span style="color:rgb(0,0,0);font-size:12.8px">menuHandleOop</span><br></div><div><span style="color:rgb(0,0,0);font-size:12.8px"> <returnTypeC: #MenuHandle></span></div><div><span style="color:rgb(0,0,0);font-size:12.8px"> ^self</span><span style="color:rgb(0,0,0);font-size:12.8px"> cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle</span></div><div><span style="color:rgb(0,0,0);font-size:12.8px"><br></span></div><div><span style="color:rgb(0,0,0);font-size:12.8px">primitiveSetMenuItemKeyGlyph: menuHandleOop item: anInteger glyph: inGlyphInteger</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> | menuHandle |</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> self primitive: 'primitiveSetMenuItemKeyGlyph'</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> parameters: #(Oop SmallInteger SmallInteger).</span><br style="color:rgb(0,0,0);font-size:12.8px"><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> menuHandle := self </span><span style="color:rgb(0,0,0);font-size:12.8px">oopAsMenuHandle: </span><span style="color:rgb(0,0,0);font-size:12.8px">menuHandleOop</span><span style="color:rgb(0,0,0);font-size:12.8px">.</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> (self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> self cCode: 'SetMenuItemKeyGlyph(</span><span style="color:rgb(0,0,0);font-size:12.8px">menuHandle,anInteger,</span><span style="color:rgb(0,0,0);font-size:12.8px">inGlyphInteger)' inSmalltalk:[menuHandle].</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> ^nil</span><span style="color:rgb(0,0,0);font-size:12.8px"><br></span></div><div><span style="color:rgb(0,0,0);font-size:12.8px"><br></span></div><div><span style="color:rgb(0,0,0);font-size:12.8px">or this?</span></div><div><div><span style="color:rgb(0,0,0);font-size:12.8px">MacMenubarPlugin>>checkedMenuHandle: </span><span style="color:rgb(0,0,0);font-size:12.8px">menuHandleOop</span></div><span style="color:rgb(0,0,0);font-size:12.8px"> | menuHandle |</span><div><span style="color:rgb(0,0,0);font-size:12.8px"> <returnTypeC: #MenuHandle></span></div><div><span style="color:rgb(0,0,0);font-size:12.8px"> </span><span style="color:rgb(0,0,0);font-size:12.8px">menuHandle := </span><span style="color:rgb(0,0,0);font-size:12.8px">self</span><span style="color:rgb(0,0,0);font-size:12.8px"> cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.</span></div></div><div><span style="color:rgb(0,0,0);font-size:12.8px"> </span><span style="color:rgb(0,0,0);font-size:12.8px">self ioCheckMenuHandle: menuHandle.</span></div><div><span style="color:rgb(0,0,0);font-size:12.8px"> ^</span><span style="color:rgb(0,0,0);font-size:12.8px"> menuHandle</span></div><div><span style="color:rgb(0,0,0);font-size:12.8px"><br></span></div><div><span style="color:rgb(0,0,0);font-size:12.8px">primitiveSetMenuItemKeyGlyph: menuHandleOop item: anInteger glyph: inGlyphInteger</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> | menuHandle |</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> self primitive: 'primitiveSetMenuItemKeyGlyph'</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> parameters: #(Oop SmallInteger SmallInteger).</span><br style="color:rgb(0,0,0);font-size:12.8px"><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> menuHandle := self </span><span style="color:rgb(0,0,0);font-size:12.8px">checkedMenuHandle</span><span style="color:rgb(0,0,0);font-size:12.8px">: </span><span style="color:rgb(0,0,0);font-size:12.8px">menuHandleOop</span><span style="color:rgb(0,0,0);font-size:12.8px">.</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> </span><span style="color:rgb(0,0,0);font-size:12.8px">interpreterProxy failed</span><span style="color:rgb(0,0,0);font-size:12.8px"> ifFalse:</span><br style="color:rgb(0,0,0);font-size:12.8px"><span style="color:rgb(0,0,0);font-size:12.8px"> [self SetMenu: </span><span style="color:rgb(0,0,0);font-size:12.8px">menuHandle </span><span style="color:rgb(0,0,0);font-size:12.8px">ItemKey: </span><span style="color:rgb(0,0,0);font-size:12.8px">anInteger </span><span style="color:rgb(0,0,0);font-size:12.8px">Glyph: </span><span style="color:rgb(0,0,0);font-size:12.8px">inGlyphInteger]</span></div><div><span style="color:rgb(0,0,0);font-size:12.8px"><br></span></div></div><div class="gmail_extra"><br><div class="gmail_quote">On Fri, Mar 4, 2016 at 5:33 PM, <span dir="ltr"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></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>>primitiveAppendMenu:data: (in category 'system primitives') -----<br>
primitiveAppendMenu: menuHandleOop data: str255<br>
| menuHandle constStr255 |<br>
self primitive: 'primitiveAppendMenu'<br>
parameters: #(Oop ByteArray).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'constStr255' type: 'ConstStr255Param'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
constStr255 := self cCoerce: str255 to: 'ConstStr255Param'.<br>
self cCode: 'AppendMenu(menuHandle,constStr255)' inSmalltalk:[menuHandle].<br>
^nil!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveAppendMenuItemText:data: (in category 'system primitives') -----<br>
primitiveAppendMenuItemText: menuHandleOop data: str255<br>
| menuHandle constStr255 |<br>
self primitive: 'primitiveAppendMenuItemText'<br>
parameters: #(Oop ByteArray).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'constStr255' type: 'ConstStr255Param'.<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
constStr255 := self cCoerce: str255 to: 'ConstStr255Param'.<br>
self cCode: 'AppendMenuItemText(menuHandle,constStr255)' inSmalltalk:[menuHandle].<br>
^nil!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveCheckMenuItem:item:checked: (in category 'system primitives') -----<br>
primitiveCheckMenuItem: menuHandleOop item: anInteger checked: aBoolean<br>
| menuHandle |<br>
self primitive: 'primitiveCheckMenuItem'<br>
parameters: #(Oop SmallInteger Boolean).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'CheckMenuItem(menuHandle,anInteger,aBoolean)' inSmalltalk:[menuHandle].<br>
^nil<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveCountMenuItems: (in category 'system primitives') -----<br>
primitiveCountMenuItems: menuHandleOop<br>
| menuHandle returnValue |<br>
self primitive: 'primitiveCountMenuItems'<br>
parameters: #(Oop).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
returnValue := self cCode: 'CountMenuItems(menuHandle)' inSmalltalk:[0].<br>
^returnValue asSmallIntegerObj<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveCreateStandardWindowMenu: (in category 'system primitives') -----<br>
primitiveCreateStandardWindowMenu: inOptions<br>
<br>
| menuHandle result |<br>
self primitive: 'primitiveCreateStandardWindowMenu'<br>
parameters: #(SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
self cCode: '#if TARGET_API_MAC_CARBON<br>
'.<br>
result := self cCode: 'CreateStandardWindowMenu(inOptions,&menuHandle);<br>
#endif' inSmalltalk:[0].<br>
+ ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!<br>
- ^interpreterProxy positive32BitIntegerFor: (self cCoerce: menuHandle to: 'long')!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveDeleteMenuItem:item: (in category 'system primitives') -----<br>
primitiveDeleteMenuItem: menuHandleOop item: anInteger<br>
| menuHandle |<br>
self primitive: 'primitiveDeleteMenuItem'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'DeleteMenuItem(menuHandle,anInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveDisableMenuCommand:item: (in category 'system primitives') -----<br>
primitiveDisableMenuCommand: menuHandleOop item: anInteger<br>
| menuHandle commandID |<br>
self primitive: 'primitiveDisableMenuCommand'<br>
parameters: #(Oop Oop).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'commandID' type: 'MenuCommand'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
commandID := self cCoerce: (interpreterProxy positive32BitValueOf: anInteger) to: 'MenuCommand'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: '#if TARGET_API_MAC_CARBON<br>
DisableMenuCommand(menuHandle,commandID);<br>
#endif' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveDisableMenuItem:item: (in category 'system primitives') -----<br>
primitiveDisableMenuItem: menuHandleOop item: anInteger<br>
| menuHandle |<br>
self primitive: 'primitiveDisableMenuItem'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'DisableMenuItem(menuHandle,anInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveDisableMenuItemIcon:item: (in category 'system primitives') -----<br>
primitiveDisableMenuItemIcon: menuHandleOop item: anInteger<br>
| menuHandle |<br>
self primitive: 'primitiveDisableMenuItemIcon'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'DisableMenuItemIcon(menuHandle,anInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveDisposeMenu: (in category 'system primitives') -----<br>
primitiveDisposeMenu: menuHandleOop<br>
| menuHandle |<br>
self primitive: 'primitiveDisposeMenu'<br>
parameters: #(Oop).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'DisposeMenu(menuHandle)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveEnableMenuCommand:item: (in category 'system primitives') -----<br>
primitiveEnableMenuCommand: menuHandleOop item: anInteger<br>
| menuHandle commandID |<br>
self primitive: 'primitiveEnableMenuCommand'<br>
parameters: #(Oop Oop).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'commandID' type: 'MenuCommand'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
commandID := self cCoerce: (interpreterProxy positive32BitValueOf: anInteger) to: 'MenuCommand'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: '#if TARGET_API_MAC_CARBON<br>
EnableMenuCommand(menuHandle,commandID);<br>
#endif' inSmalltalk:[menuHandle].<br>
^nil!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveEnableMenuItem:item: (in category 'system primitives') -----<br>
primitiveEnableMenuItem: menuHandleOop item: anInteger<br>
| menuHandle |<br>
self primitive: 'primitiveEnableMenuItem'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'EnableMenuItem(menuHandle,anInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveEnableMenuItemIcon:item: (in category 'system primitives') -----<br>
primitiveEnableMenuItemIcon: menuHandleOop item: anInteger<br>
| menuHandle |<br>
self primitive: 'primitiveEnableMenuItemIcon'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'EnableMenuItemIcon(menuHandle,anInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetIndMenuItemWithCommandID:commandID: (in category 'system primitives') -----<br>
primitiveGetIndMenuItemWithCommandID: menuHandleOop commandID: aCommandID<br>
| menuHandle MenuItemIndex commandID applicationMenu outIndex |<br>
self primitive: 'primitiveGetIndMenuItemWithCommandID'<br>
parameters: #(Oop Oop).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'commandID' type: 'MenuCommand'.<br>
self var: 'applicationMenu' type: 'MenuHandle'.<br>
self var: 'outIndex' type: 'MenuItemIndex'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
commandID := self cCoerce: (interpreterProxy positive32BitValueOf: aCommandID) to: 'MenuCommand'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: '#if TARGET_API_MAC_CARBON<br>
GetIndMenuItemWithCommandID(menuHandle, kHICommandHide, 1,<br>
&applicationMenu, &outIndex);<br>
#endif' inSmalltalk:[menuHandle].<br>
^outIndex asSmallIntegerObj<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetIndMenuWithCommandID:commandID: (in category 'system primitives') -----<br>
primitiveGetIndMenuWithCommandID: menuHandleOop commandID: aCommandID<br>
+ | menuHandle commandID applicationMenu outIndex |<br>
- | menuHandle MenuItemIndex commandID applicationMenu outIndex |<br>
self primitive: 'primitiveGetIndMenuWithCommandID'<br>
parameters: #(Oop Oop).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'commandID' type: 'MenuCommand'.<br>
self var: 'applicationMenu' type: 'MenuHandle'.<br>
self var: 'outIndex' type: 'MenuItemIndex'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
commandID := self cCoerce: (interpreterProxy positive32BitValueOf: aCommandID) to: 'MenuCommand'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: '#if TARGET_API_MAC_CARBON<br>
GetIndMenuItemWithCommandID(menuHandle, kHICommandHide, 1,<br>
&applicationMenu, &outIndex);<br>
#endif ' inSmalltalk:[menuHandle].<br>
+ outIndex asSmallIntegerObj. "to avoid elimination of the variable..."<br>
+ ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: applicationMenu to: 'long')<br>
- ^interpreterProxy positive32BitIntegerFor: (self cCoerce: applicationMenu to: 'long')<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetItemCmd:item: (in category 'system primitives') -----<br>
primitiveGetItemCmd: menuHandleOop item: anInteger<br>
| menuHandle aCharacter |<br>
<var: 'menuHandle' type: 'MenuHandle'><br>
<var: #aCharacter type: 'CharParameter'><br>
self primitive: 'primitiveGetItemCmd'<br>
parameters: #(Oop SmallInteger).<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
aCharacter := 0.<br>
self cCode: 'GetItemCmd(menuHandle,anInteger,&aCharacter)' inSmalltalk:[menuHandle].<br>
^aCharacter asSmallIntegerObj<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetItemIcon:item: (in category 'system primitives') -----<br>
primitiveGetItemIcon: menuHandleOop item: anInteger<br>
| menuHandle iconIndex |<br>
self primitive: 'primitiveGetItemIcon'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'iconIndex' type: 'short'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
iconIndex := 0.<br>
self cCode: 'GetItemIcon(menuHandle,anInteger,&iconIndex)' inSmalltalk:[menuHandle].<br>
^iconIndex asSmallIntegerObj<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetItemMark:item: (in category 'system primitives') -----<br>
primitiveGetItemMark: menuHandleOop item: anInteger<br>
| menuHandle aCharacter |<br>
<var: 'menuHandle' type: 'MenuHandle'><br>
<var: #aCharacter type: 'CharParameter'><br>
self primitive: 'primitiveGetItemMark'<br>
parameters: #(Oop SmallInteger).<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
aCharacter := 0.<br>
self cCode: 'GetItemMark(menuHandle,anInteger,&aCharacter)' inSmalltalk:[menuHandle].<br>
^aCharacter asSmallIntegerObj<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetItemStyle:item: (in category 'system primitives') -----<br>
primitiveGetItemStyle: menuHandleOop item: anInteger<br>
| menuHandle chStyle |<br>
self primitive: 'primitiveGetItemStyle'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'chStyle' type: 'Style'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
chStyle := 0.<br>
self cCode: 'GetItemStyle(menuHandle,anInteger,&chStyle)' inSmalltalk:[menuHandle].<br>
^chStyle asSmallIntegerObj<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetMenuBar (in category 'system primitives') -----<br>
primitiveGetMenuBar<br>
| menuHandle |<br>
self primitive: 'primitiveGetMenuBar'<br>
parameters: #().<br>
self var: 'menuHandle' type: 'Handle'.<br>
menuHandle := self cCode: 'GetMenuBar()' inSmalltalk:[0].<br>
+ ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!<br>
- ^interpreterProxy positive32BitIntegerFor: (self cCoerce: menuHandle to: 'long')!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetMenuHandle: (in category 'system primitives') -----<br>
primitiveGetMenuHandle: menuID<br>
| menuHandle |<br>
self primitive: 'primitiveGetMenuHandle'<br>
parameters: #(SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'menuID' type: 'MenuID'.<br>
menuHandle := self cCode: 'GetMenuHandle(menuID)' inSmalltalk:[0].<br>
+ ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!<br>
- ^interpreterProxy positive32BitIntegerFor: (self cCoerce: menuHandle to: 'long')!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetMenuID: (in category 'system primitives') -----<br>
primitiveGetMenuID: menuHandleOop<br>
| menuHandle menuID |<br>
<br>
self primitive: 'primitiveGetMenuID'<br>
parameters: #(Oop ).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'menuID' type: 'MenuID'.<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'menuID = GetMenuID(menuHandle)' inSmalltalk:[menuHandle].<br>
^menuID asSmallIntegerObj<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetMenuItemCommandID:item: (in category 'system primitives') -----<br>
primitiveGetMenuItemCommandID: menuHandleOop item: anInteger<br>
| menuHandle outCommandID |<br>
self primitive: 'primitiveGetMenuItemCommandID'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'outCommandID' type: 'MenuCommand'.<br>
outCommandID := 0.<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'GetMenuItemCommandID(menuHandle,anInteger,&outCommandID)' inSmalltalk:[menuHandle].<br>
^interpreterProxy positive32BitIntegerFor: outCommandID<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetMenuItemFontID:item: (in category 'system primitives') -----<br>
primitiveGetMenuItemFontID: menuHandleOop item: anInteger<br>
| menuHandle outFontID |<br>
self primitive: 'primitiveGetMenuItemFontID'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'outFontID' type: 'SInt16'.<br>
outFontID := 0.<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'GetMenuItemFontID(menuHandle,anInteger,&outFontID)' inSmalltalk:[menuHandle].<br>
^outFontID asSmallIntegerObj<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetMenuItemHierarchicalID:item: (in category 'system primitives') -----<br>
primitiveGetMenuItemHierarchicalID: menuHandleOop item: anInteger<br>
| menuHandle outHierID |<br>
self primitive: 'primitiveGetMenuItemHierarchicalID'<br>
parameters: #(Oop SmallInteger ).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'outHierID' type: 'MenuID'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
outHierID := 0.<br>
self cCode: 'GetMenuItemHierarchicalID(menuHandle,anInteger,&outHierID)' inSmalltalk:[menuHandle].<br>
^outHierID asSmallIntegerObj<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetMenuItemKeyGlyph:item: (in category 'system primitives') -----<br>
primitiveGetMenuItemKeyGlyph: menuHandleOop item: anInteger<br>
| menuHandle outGlyph |<br>
self primitive: 'primitiveGetMenuItemKeyGlyph'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'outGlyph' type: 'SInt16'.<br>
outGlyph := 0.<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'GetMenuItemKeyGlyph(menuHandle,anInteger,&outGlyph)' inSmalltalk:[menuHandle].<br>
^interpreterProxy positive32BitIntegerFor: outGlyph<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetMenuItemModifiers:item: (in category 'system primitives') -----<br>
primitiveGetMenuItemModifiers: menuHandleOop item: anInteger<br>
| menuHandle outModifers |<br>
self primitive: 'primitiveGetMenuItemModifiers'<br>
parameters: #(Oop SmallInteger ).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'outModifers' type: 'Style'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
outModifers := 0.<br>
self cCode: 'GetMenuItemModifiers(menuHandle,anInteger,&outModifers)' inSmalltalk:[menuHandle].<br>
^outModifers asSmallIntegerObj<br>
<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetMenuItemText:item: (in category 'system primitives') -----<br>
primitiveGetMenuItemText: menuHandleOop item: anInteger<br>
| menuHandle size oop ptr aString |<br>
<var: 'menuHandle' type: 'MenuHandle'><br>
<var: #aString type: 'Str255 '><br>
<var: #ptr type: 'char *'><br>
self primitive: 'primitiveGetMenuItemText'<br>
parameters: #(Oop SmallInteger).<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
aString at: 0 put: 0.<br>
self cCode: 'GetMenuItemText(menuHandle,anInteger,aString)' inSmalltalk:[menuHandle].<br>
size := self cCode: 'aString[0]' 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>>primitiveGetMenuItemTextEncoding:item: (in category 'system primitives') -----<br>
primitiveGetMenuItemTextEncoding: menuHandleOop item: anInteger<br>
| menuHandle outScriptID |<br>
self primitive: 'primitiveGetMenuItemTextEncoding'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'outScriptID' type: 'TextEncoding'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'GetMenuItemTextEncoding(menuHandle,anInteger,&outScriptID)' inSmalltalk:[menuHandle].<br>
^interpreterProxy positive32BitIntegerFor: outScriptID!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveGetMenuTitle: (in category 'system primitives') -----<br>
primitiveGetMenuTitle: menuHandleOop<br>
| menuHandle size oop ptr aString |<br>
<var: 'menuHandle' type: 'MenuHandle'><br>
<var: #aString type: 'Str255 '><br>
<var: #ptr type: 'char *'><br>
self primitive: 'primitiveGetMenuTitle'<br>
parameters: #(Oop).<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
aString at: 0 put: 0.<br>
self cCode: 'GetMenuTitle(menuHandle,aString)' inSmalltalk:[menuHandle].<br>
size := self cCode: 'aString[0]' 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>>primitiveInsertFontResMenu:afterItem:scriptFilter: (in category 'system primitives') -----<br>
primitiveInsertFontResMenu: menuHandleOop afterItem: afterItemInteger scriptFilter: scriptFilterInteger<br>
| menuHandle |<br>
self primitive: 'primitiveInsertFontResMenu'<br>
parameters: #(Oop SmallInteger SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'InsertFontResMenu(menuHandle,afterItemInteger,scriptFilterInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveInsertIntlResMenu:theType:afterItem:scriptFilter: (in category 'system primitives') -----<br>
primitiveInsertIntlResMenu: menuHandleOop theType: aResType afterItem: afterItemInteger scriptFilter: scriptFilterInteger<br>
| menuHandle resType |<br>
self primitive: 'primitiveInsertIntlResMenu'<br>
parameters: #(Oop SmallInteger SmallInteger SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'resType' type: 'ResType'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
resType := self cCoerce: (interpreterProxy positive32BitValueOf: aResType) to: 'ResType'.<br>
self cCode: 'InsertIntlResMenu(menuHandle,resType,afterItemInteger,scriptFilterInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveInsertMenu:beforeID: (in category 'system primitives') -----<br>
primitiveInsertMenu: menuHandleOop beforeID: anInteger<br>
| menuHandle |<br>
self primitive: 'primitiveInsertMenu'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'anInteger' type: 'MenuID'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'InsertMenu(menuHandle,anInteger)' inSmalltalk:[menuHandle].<br>
^nil!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveInsertMenuItem:itemString:afterItem: (in category 'system primitives') -----<br>
primitiveInsertMenuItem: menuHandleOop itemString: str255 afterItem: anInteger<br>
| menuHandle constStr255 |<br>
self primitive: 'primitiveInsertMenuItem'<br>
parameters: #(Oop ByteArray SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'constStr255' type: 'ConstStr255Param'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
constStr255 := self cCoerce: str255 to: 'ConstStr255Param'.<br>
self cCode: 'InsertMenuItem(menuHandle,constStr255,anInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveIsMenuItemEnabled:item: (in category 'system primitives') -----<br>
primitiveIsMenuItemEnabled: menuHandleOop item: anInteger<br>
<br>
| menuHandle result |<br>
self primitive: 'primitiveIsMenuItemEnabled'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
result := self cCode: 'IsMenuItemEnabled(menuHandle,anInteger)' inSmalltalk:[0].<br>
^result asOop: Boolean!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveIsMenuItemIconEnabled:item: (in category 'system primitives') -----<br>
primitiveIsMenuItemIconEnabled: menuHandleOop item: anInteger<br>
<br>
| menuHandle result |<br>
self primitive: 'primitiveIsMenuItemIconEnabled'<br>
parameters: #(Oop SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
result := self cCode: 'IsMenuItemIconEnabled(menuHandle,anInteger)' inSmalltalk:[0].<br>
^result asOop: Boolean!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveNewMenu:menuTitle: (in category 'system primitives') -----<br>
primitiveNewMenu: menuID menuTitle: menuTitle<br>
<br>
| menuHandle constStr255 |<br>
self primitive: 'primitiveNewMenu'<br>
parameters: #(SmallInteger ByteArray).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'constStr255' type: 'ConstStr255Param'.<br>
self var: 'menuID' type: 'MenuID'.<br>
<br>
constStr255 := self cCoerce: menuTitle to: 'ConstStr255Param'.<br>
menuHandle := self cCode: 'NewMenu(menuID,constStr255)' inSmalltalk:[0].<br>
+ ^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!<br>
- ^interpreterProxy positive32BitIntegerFor: (self cCoerce: menuHandle to: 'long')!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetItemCmd:item:cmdChar: (in category 'system primitives') -----<br>
primitiveSetItemCmd: menuHandleOop item: anInteger cmdChar: anIntegerCmdChar<br>
| menuHandle aCharacter |<br>
<var: 'menuHandle' type: 'MenuHandle'><br>
<var: #aCharacter type: 'CharParameter '><br>
self primitive: 'primitiveSetItemCmd'<br>
parameters: #(Oop SmallInteger SmallInteger).<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
aCharacter := anIntegerCmdChar.<br>
self cCode: 'SetItemCmd(menuHandle,anInteger,aCharacter)' inSmalltalk:[menuHandle].<br>
^nil<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetItemIcon:item:iconIndex: (in category 'system primitives') -----<br>
primitiveSetItemIcon: menuHandleOop item: anInteger iconIndex: aIconIndexInteger<br>
| menuHandle |<br>
self primitive: 'primitiveSetItemIcon'<br>
parameters: #(Oop SmallInteger SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'SetItemIcon(menuHandle,anInteger,aIconIndexInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetItemMark:item:markChar: (in category 'system primitives') -----<br>
primitiveSetItemMark: menuHandleOop item: anInteger markChar: aMarkChar<br>
| menuHandle aCharacter |<br>
<var: 'menuHandle' type: 'MenuHandle'><br>
<var: #aCharacter type: 'CharParameter '><br>
self primitive: 'primitiveSetItemMark'<br>
parameters: #(Oop SmallInteger SmallInteger).<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
aCharacter := aMarkChar.<br>
self cCode: 'SetItemMark(menuHandle,anInteger,aCharacter)' inSmalltalk:[menuHandle].<br>
^nil<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetItemStyle:item:styleParameter: (in category 'system primitives') -----<br>
primitiveSetItemStyle: menuHandleOop item: anInteger styleParameter: chStyleInteger<br>
| menuHandle |<br>
self primitive: 'primitiveSetItemStyle'<br>
parameters: #(Oop SmallInteger SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'SetItemStyle(menuHandle,anInteger,chStyleInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetMenuBar: (in category 'system primitives') -----<br>
primitiveSetMenuBar: menuHandleOop<br>
<br>
| menuBarHandle |<br>
self primitive: 'primitiveSetMenuBar'<br>
parameters: #(Oop).<br>
self var: 'menuBarHandle' type: 'MenuBarHandle'.<br>
+ menuBarHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuBarHandle'.<br>
- menuBarHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuBarHandle'.<br>
self cCode: 'SetMenuBar(menuBarHandle)' inSmalltalk:[menuBarHandle].<br>
^nil!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetMenuItemCommandID:item:menuCommand: (in category 'system primitives') -----<br>
primitiveSetMenuItemCommandID: menuHandleOop item: anInteger menuCommand: inCommandID<br>
| menuHandle commandID |<br>
self primitive: 'primitiveSetMenuItemCommandID'<br>
parameters: #(Oop SmallInteger Oop).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'commandID' type: 'MenuCommand'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
commandID := self cCoerce: (interpreterProxy positive32BitValueOf: inCommandID) to: 'MenuCommand'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'SetMenuItemCommandID(menuHandle,anInteger,commandID)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetMenuItemFontID:item:fontID: (in category 'system primitives') -----<br>
primitiveSetMenuItemFontID: menuHandleOop item: anInteger fontID: aFontIDInteger<br>
| menuHandle |<br>
self primitive: 'primitiveSetMenuItemFontID'<br>
parameters: #(Oop SmallInteger SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'SetMenuItemFontID(menuHandle,anInteger,aFontIDInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetMenuItemHierarchicalID:item:hierID: (in category 'system primitives') -----<br>
primitiveSetMenuItemHierarchicalID: menuHandleOop item: anInteger hierID: aMenuID<br>
| menuHandle |<br>
self primitive: 'primitiveSetMenuItemHierarchicalID'<br>
parameters: #(Oop SmallInteger SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'menuID' type: 'MenuID'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'SetMenuItemHierarchicalID(menuHandle,anInteger,aMenuID)' inSmalltalk:[menuHandle].<br>
^nil!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetMenuItemKeyGlyph:item:glyph: (in category 'system primitives') -----<br>
primitiveSetMenuItemKeyGlyph: menuHandleOop item: anInteger glyph: inGlyphInteger<br>
| menuHandle |<br>
self primitive: 'primitiveSetMenuItemKeyGlyph'<br>
parameters: #(Oop SmallInteger SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'SetMenuItemKeyGlyph(menuHandle,anInteger,inGlyphInteger)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetMenuItemModifiers:item:inModifiers: (in category 'system primitives') -----<br>
primitiveSetMenuItemModifiers: menuHandleOop item: anInteger inModifiers: aUInt8<br>
| menuHandle |<br>
self primitive: 'primitiveSetMenuItemModifiers'<br>
parameters: #(Oop SmallInteger SmallInteger).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
self cCode: 'SetMenuItemModifiers(menuHandle,anInteger,aUInt8)' inSmalltalk:[menuHandle].<br>
^nil!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetMenuItemText:item:itemString: (in category 'system primitives') -----<br>
primitiveSetMenuItemText: menuHandleOop item: anInteger itemString: str255<br>
| menuHandle constStr255 |<br>
self primitive: 'primitiveSetMenuItemText'<br>
parameters: #(Oop SmallInteger ByteArray).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'constStr255' type: 'ConstStr255Param'.<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
constStr255 := self cCoerce: str255 to: 'ConstStr255Param'.<br>
self cCode: 'SetMenuItemText(menuHandle,anInteger,constStr255)' inSmalltalk:[menuHandle].<br>
^nil<br>
!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetMenuItemTextEncoding:item:inScriptID: (in category 'system primitives') -----<br>
primitiveSetMenuItemTextEncoding: menuHandleOop item: anInteger inScriptID: aTextEncodingOop<br>
| menuHandle inScriptID |<br>
self primitive: 'primitiveSetMenuItemTextEncoding'<br>
parameters: #(Oop SmallInteger Oop).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'inScriptID' type: 'TextEncoding'.<br>
<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
inScriptID := self cCoerce: (interpreterProxy positive32BitValueOf: aTextEncodingOop) to: 'TextEncoding'.<br>
self cCode: 'SetMenuItemTextEncoding(menuHandle,anInteger,inScriptID)' inSmalltalk:[menuHandle].<br>
^nil!<br>
<br>
Item was changed:<br>
----- Method: MacMenubarPlugin>>primitiveSetMenuTitle:title: (in category 'system primitives') -----<br>
primitiveSetMenuTitle: menuHandleOop title: str255<br>
| menuHandle constStr255 |<br>
self primitive: 'primitiveSetMenuTitle'<br>
parameters: #(Oop ByteArray).<br>
self var: 'menuHandle' type: 'MenuHandle'.<br>
self var: 'constStr255' type: 'ConstStr255Param'.<br>
+ menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.<br>
- menuHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'MenuHandle'.<br>
(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].<br>
constStr255 := self cCoerce: str255 to: 'ConstStr255Param'.<br>
self cCode: 'SetMenuTitle(menuHandle,constStr255)' 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>