[Vm-dev] VM Maker: VMMaker.oscog-nice.1724.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Mar 12 21:39:37 UTC 2016


Nicolas Cellier uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-nice.1724.mcz

==================== Summary ====================

Name: VMMaker.oscog-nice.1724
Author: nice
Time: 12 March 2016, 10:37:26.642 pm
UUID: e599a841-72b6-402b-8518-87a807a96752
Ancestors: VMMaker.oscog-eem.1722

Modernize MacMenubarPlugin with <var:type:> definitions and cppIf:ifTrue:

=============== Diff against VMMaker.oscog-eem.1722 ===============

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveAppendMenu:data: (in category 'system primitives') -----
  primitiveAppendMenu: menuHandleOop data: str255
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #constStr255 type: #ConstStr255Param>
  	| menuHandle constStr255 |
  	self primitive: 'primitiveAppendMenu'
  		parameters: #(Oop ByteArray).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'constStr255' type: 'ConstStr255Param'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	constStr255 := self cCoerce: str255 to: #ConstStr255Param.	
- 	constStr255 := self cCoerce: str255 to: 'ConstStr255Param'.	
  	self cCode: 'AppendMenu(menuHandle,constStr255)' inSmalltalk:[menuHandle].
  	^nil!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveAppendMenuItemText:data: (in category 'system primitives') -----
  primitiveAppendMenuItemText: menuHandleOop data: str255
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #constStr255 type: #ConstStr255Param>
  	| menuHandle constStr255 |
  	self primitive: 'primitiveAppendMenuItemText'
  		parameters: #(Oop ByteArray).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'constStr255' type: 'ConstStr255Param'.
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	constStr255 := self cCoerce: str255 to: #ConstStr255Param.	
- 	constStr255 := self cCoerce: str255 to: 'ConstStr255Param'.	
  	self cCode: 'AppendMenuItemText(menuHandle,constStr255)' inSmalltalk:[menuHandle].
  	^nil!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveCheckMenuItem:item:checked: (in category 'system primitives') -----
  primitiveCheckMenuItem: menuHandleOop item: anInteger checked: aBoolean
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveCheckMenuItem'
  		parameters: #(Oop SmallInteger Boolean).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'CheckMenuItem(menuHandle,anInteger,aBoolean)' inSmalltalk:[menuHandle].
  	^nil
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveCountMenuItems: (in category 'system primitives') -----
  primitiveCountMenuItems: menuHandleOop 
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle returnValue |
  	self primitive: 'primitiveCountMenuItems'
  		parameters: #(Oop).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	returnValue := self cCode: 'CountMenuItems(menuHandle)' inSmalltalk:[0].
  	^returnValue asSmallIntegerObj
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveCreateStandardWindowMenu: (in category 'system primitives') -----
  primitiveCreateStandardWindowMenu: inOptions 
+ 	<var: #menuHandle type: #MenuHandle>
- 
  	| menuHandle result |
  	self primitive: 'primitiveCreateStandardWindowMenu'
  		parameters: #(SmallInteger).
+ 	self cppIf: #TARGET_API_MAC_CARBON
+ 		ifTrue: [result := self cCode: 'CreateStandardWindowMenu(inOptions,&menuHandle);' inSmalltalk:[0]].
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	self cCode: '#if TARGET_API_MAC_CARBON
- '.
- 	result := self cCode: 'CreateStandardWindowMenu(inOptions,&menuHandle);
- #endif' inSmalltalk:[0].
  	^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveDeleteMenu: (in category 'system primitives') -----
  primitiveDeleteMenu: menuID 
+ 	<var: #menuID type: #MenuID>
  	self primitive: 'primitiveDeleteMenu'
  		parameters: #(SmallInteger).
- 	
- 	self var: 'menuID' type: 'MenuID'.
  	self cCode: 'DeleteMenu(menuID)' inSmalltalk:[].
  	^nil!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveDeleteMenuItem:item: (in category 'system primitives') -----
  primitiveDeleteMenuItem: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveDeleteMenuItem'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'DeleteMenuItem(menuHandle,anInteger)' inSmalltalk:[menuHandle].
  	^nil
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveDisableMenuCommand:item: (in category 'system primitives') -----
  primitiveDisableMenuCommand: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #commandID type: #MenuCommand>
  	| menuHandle commandID |
  	self primitive: 'primitiveDisableMenuCommand'
  		parameters: #(Oop Oop).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
+ 	commandID := self cCoerce: (interpreterProxy positive32BitValueOf: anInteger) to: #MenuCommand.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'commandID' type: 'MenuCommand'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
- 	commandID := self cCoerce: (interpreterProxy positive32BitValueOf: anInteger) to: 'MenuCommand'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	self cppIf: #TARGET_API_MAC_CARBON
+ 		ifTrue: [self cCode: 'DisableMenuCommand(menuHandle,commandID);' inSmalltalk: [menuHandle]].
- 	self cCode: '#if TARGET_API_MAC_CARBON
- DisableMenuCommand(menuHandle,commandID);
- #endif' inSmalltalk:[menuHandle].
  	^nil
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveDisableMenuItem:item: (in category 'system primitives') -----
  primitiveDisableMenuItem: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveDisableMenuItem'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'DisableMenuItem(menuHandle,anInteger)' inSmalltalk:[menuHandle].
  	^nil
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveDisableMenuItemIcon:item: (in category 'system primitives') -----
  primitiveDisableMenuItemIcon: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveDisableMenuItemIcon'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'DisableMenuItemIcon(menuHandle,anInteger)' inSmalltalk:[menuHandle].
  	^nil
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveDisposeMenu: (in category 'system primitives') -----
  primitiveDisposeMenu: menuHandleOop 
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveDisposeMenu'
+ 		parameters: #(Oop).	
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 		parameters: #(Oop).
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'DisposeMenu(menuHandle)' inSmalltalk:[menuHandle].
  	^nil
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveDisposeMenuBar: (in category 'system primitives') -----
  primitiveDisposeMenuBar: menuHandleOop 
+ 	<var: #menuBarHandle type: #Handle>
  	| menuBarHandle |
  	self primitive: 'primitiveDisposeMenuBar'
  		parameters: #(Oop).
+ 	menuBarHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: #Handle.
+ 	self cppIf: #TARGET_API_MAC_CARBON
+ 		ifTrue: [self cCode: 'DisposeMenuBar(menuBarHandle);' inSmalltalk: [menuBarHandle]]
+ 		ifFalse: [self cCode: 'DisposeHandle(menuBarHandle);' inSmalltalk: [menuBarHandle]].
- 	self var: 'menuBarHandle' type: 'Handle'.
- 	
- 	menuBarHandle := self cCoerce: (interpreterProxy positive32BitValueOf: menuHandleOop) to: 'Handle'.
- 	self cCode: '#if TARGET_API_MAC_CARBON
- 	DisposeMenuBar(menuBarHandle);
- 	#else
- 	DisposeHandle(menuBarHandle);
- 	#endif
- 	' 
- 		inSmalltalk:[menuBarHandle].
  	^nil
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveEnableMenuCommand:item: (in category 'system primitives') -----
  primitiveEnableMenuCommand: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #commandID type: #MenuCommand>
  	| menuHandle commandID |
  	self primitive: 'primitiveEnableMenuCommand'
  		parameters: #(Oop Oop).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
+ 	commandID := self cCoerce: (interpreterProxy positive32BitValueOf: anInteger) to: #MenuCommand.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'commandID' type: 'MenuCommand'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
- 	commandID := self cCoerce: (interpreterProxy positive32BitValueOf: anInteger) to: 'MenuCommand'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	self cppIf: #TARGET_API_MAC_CARBON
+ 		ifTrue: [self cCode: 'EnableMenuCommand(menuHandle,commandID);' inSmalltalk: [menuHandle]].
- 	self cCode: '#if TARGET_API_MAC_CARBON
- EnableMenuCommand(menuHandle,commandID);
- #endif' inSmalltalk:[menuHandle].
  	^nil!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveEnableMenuItem:item: (in category 'system primitives') -----
  primitiveEnableMenuItem: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveEnableMenuItem'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'EnableMenuItem(menuHandle,anInteger)' inSmalltalk:[menuHandle].
  	^nil
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveEnableMenuItemIcon:item: (in category 'system primitives') -----
  primitiveEnableMenuItemIcon: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveEnableMenuItemIcon'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'EnableMenuItemIcon(menuHandle,anInteger)' inSmalltalk:[menuHandle].
  	^nil
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetIndMenuItemWithCommandID:commandID: (in category 'system primitives') -----
  primitiveGetIndMenuItemWithCommandID: menuHandleOop commandID: aCommandID
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #commandID type: #MenuCommand>
+ 	<var: #applicationMenu type: #MenuHandle>
+ 	<var: #outIndex type: #MenuItemIndex>
+ 	| menuHandle commandID applicationMenu outIndex |
- 	| menuHandle MenuItemIndex commandID applicationMenu outIndex |
  	self primitive: 'primitiveGetIndMenuItemWithCommandID'
  		parameters: #(Oop Oop).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
+ 	commandID := self cCoerce: (interpreterProxy positive32BitValueOf: aCommandID) to: #MenuCommand.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'commandID' type: 'MenuCommand'.
- 	self var: 'applicationMenu' type: 'MenuHandle'.
- 	self var: 'outIndex' type: 'MenuItemIndex'.
- 
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
- 	commandID := self cCoerce: (interpreterProxy positive32BitValueOf: aCommandID) to: 'MenuCommand'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	self cppIf: #TARGET_API_MAC_CARBON
+ 		ifTrue: [self cCode: 'GetIndMenuItemWithCommandID(menuHandle, kHICommandHide, 1,
+                    &applicationMenu, &outIndex);' inSmalltalk: [menuHandle]].
- 	self cCode: '#if TARGET_API_MAC_CARBON
- GetIndMenuItemWithCommandID(menuHandle, kHICommandHide, 1,
-                    &applicationMenu, &outIndex);
- #endif' inSmalltalk:[menuHandle].
  	^outIndex asSmallIntegerObj
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetIndMenuWithCommandID:commandID: (in category 'system primitives') -----
  primitiveGetIndMenuWithCommandID: menuHandleOop commandID: aCommandID
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #commandID type: #MenuCommand>
+ 	<var: #applicationMenu type: #MenuHandle>
+ 	<var: #outIndex type: #MenuItemIndex>
  	| menuHandle commandID applicationMenu outIndex |
  	self primitive: 'primitiveGetIndMenuWithCommandID'
  		parameters: #(Oop Oop).
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'commandID' type: 'MenuCommand'.
- 	self var: 'applicationMenu' type: 'MenuHandle'.
- 	self var: 'outIndex' type: 'MenuItemIndex'.
- 
  	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	commandID := self cCoerce: (interpreterProxy positive32BitValueOf: aCommandID) to: 'MenuCommand'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	self cppIf: #TARGET_API_MAC_CARBON
+ 		ifTrue: [self cCode: 'GetIndMenuItemWithCommandID(menuHandle, kHICommandHide, 1,
+                    &applicationMenu, &outIndex);' inSmalltalk: [menuHandle]].
- 	self cCode: '#if TARGET_API_MAC_CARBON
- GetIndMenuItemWithCommandID(menuHandle, kHICommandHide, 1,
-                    &applicationMenu, &outIndex);
- #endif ' inSmalltalk:[menuHandle].
  	outIndex asSmallIntegerObj. "to avoid elimination of the variable..."
  	^interpreterProxy positiveMachineIntegerFor: (self cCoerce: applicationMenu to: 'long')
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetItemCmd:item: (in category 'system primitives') -----
  primitiveGetItemCmd: menuHandleOop item: anInteger
  	| menuHandle aCharacter |
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #aCharacter type: #CharParameter>
- 	<var: 'menuHandle' type: 'MenuHandle'>
- 	<var: #aCharacter type: 'CharParameter'>
  	self primitive: 'primitiveGetItemCmd'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	aCharacter := 0.
  	self cCode: 'GetItemCmd(menuHandle,anInteger,&aCharacter)' inSmalltalk:[menuHandle].
  	^aCharacter asSmallIntegerObj
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetItemIcon:item: (in category 'system primitives') -----
  primitiveGetItemIcon: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #iconIndex type: #short>
  	| menuHandle iconIndex |
  	self primitive: 'primitiveGetItemIcon'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'iconIndex' type: 'short'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	iconIndex := 0.
  	self cCode: 'GetItemIcon(menuHandle,anInteger,&iconIndex)' inSmalltalk:[menuHandle].
  	^iconIndex asSmallIntegerObj
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetItemMark:item: (in category 'system primitives') -----
  primitiveGetItemMark: menuHandleOop item: anInteger
  	| menuHandle aCharacter |
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #aCharacter type: #CharParameter>
- 	<var: 'menuHandle' type: 'MenuHandle'>
- 	<var: #aCharacter type: 'CharParameter'>
  	self primitive: 'primitiveGetItemMark'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	aCharacter := 0.
  	self cCode: 'GetItemMark(menuHandle,anInteger,&aCharacter)' inSmalltalk:[menuHandle].
  	^aCharacter asSmallIntegerObj
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetItemStyle:item: (in category 'system primitives') -----
  primitiveGetItemStyle: menuHandleOop item: anInteger 
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #chStyle type: #Style>
  	| menuHandle chStyle |
  	self primitive: 'primitiveGetItemStyle'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'chStyle' type: 'Style'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	chStyle := 0.
  	self cCode: 'GetItemStyle(menuHandle,anInteger,&chStyle)' inSmalltalk:[menuHandle].
  	^chStyle asSmallIntegerObj
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuBar (in category 'system primitives') -----
  primitiveGetMenuBar 
+ 	<var: #menuHandle type: #Handle>
  	| menuHandle |
  	self primitive: 'primitiveGetMenuBar'
  		parameters: #().
- 	self var: 'menuHandle' type: 'Handle'.
  	menuHandle := self cCode: 'GetMenuBar()' inSmalltalk:[0].
  	^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuHandle: (in category 'system primitives') -----
  primitiveGetMenuHandle: menuID 
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #menuID type: #MenuID>
  	| menuHandle |
  	self primitive: 'primitiveGetMenuHandle'
  		parameters: #(SmallInteger).
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'menuID' type: 'MenuID'.
  	menuHandle := self cCode: 'GetMenuHandle(menuID)' inSmalltalk:[0].
  	^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuID: (in category 'system primitives') -----
  primitiveGetMenuID: menuHandleOop 
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #menuID type: #MenuID>
  	| menuHandle menuID |
- 	
  	self primitive: 'primitiveGetMenuID'
  		parameters: #(Oop ).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'menuID' type: 'MenuID'.
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'menuID = GetMenuID(menuHandle)' inSmalltalk:[menuHandle].
  	^menuID asSmallIntegerObj
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuItemCommandID:item: (in category 'system primitives') -----
  primitiveGetMenuItemCommandID: menuHandleOop item: anInteger 
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #outCommandID type: #MenuCommand>
  	| menuHandle outCommandID |
  	self primitive: 'primitiveGetMenuItemCommandID'
  		parameters: #(Oop SmallInteger).
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'outCommandID' type: 'MenuCommand'.
  	outCommandID := 0.
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'GetMenuItemCommandID(menuHandle,anInteger,&outCommandID)' inSmalltalk:[menuHandle].
  	^interpreterProxy positive32BitIntegerFor: outCommandID
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuItemFontID:item: (in category 'system primitives') -----
  primitiveGetMenuItemFontID: menuHandleOop item: anInteger 
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #outFontID type: #SInt16>
  	| menuHandle outFontID |
  	self primitive: 'primitiveGetMenuItemFontID'
  		parameters: #(Oop SmallInteger).
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'outFontID' type: 'SInt16'.
  	outFontID := 0.
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'GetMenuItemFontID(menuHandle,anInteger,&outFontID)' inSmalltalk:[menuHandle].
  	^outFontID asSmallIntegerObj
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuItemHierarchicalID:item: (in category 'system primitives') -----
  primitiveGetMenuItemHierarchicalID: menuHandleOop item: anInteger 
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #outHierID type: #MenuID>
  	| menuHandle outHierID |
  	self primitive: 'primitiveGetMenuItemHierarchicalID'
  		parameters: #(Oop SmallInteger ).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'outHierID' type: 'MenuID'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	outHierID := 0.
  	self cCode: 'GetMenuItemHierarchicalID(menuHandle,anInteger,&outHierID)' inSmalltalk:[menuHandle].
  	^outHierID asSmallIntegerObj
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuItemKeyGlyph:item: (in category 'system primitives') -----
  primitiveGetMenuItemKeyGlyph: menuHandleOop item: anInteger 
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #outGlyph type: #SInt16>
  	| menuHandle outGlyph |
  	self primitive: 'primitiveGetMenuItemKeyGlyph'
  		parameters: #(Oop SmallInteger).
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'outGlyph' type: 'SInt16'.
  	outGlyph := 0.
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'GetMenuItemKeyGlyph(menuHandle,anInteger,&outGlyph)' inSmalltalk:[menuHandle].
  	^interpreterProxy positive32BitIntegerFor: outGlyph
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuItemModifiers:item: (in category 'system primitives') -----
  primitiveGetMenuItemModifiers: menuHandleOop item: anInteger 
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #outModifers type: #Style>
  	| menuHandle outModifers |
  	self primitive: 'primitiveGetMenuItemModifiers'
  		parameters: #(Oop SmallInteger ).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'outModifers' type: 'Style'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	outModifers := 0.
  	self cCode: 'GetMenuItemModifiers(menuHandle,anInteger,&outModifers)' inSmalltalk:[menuHandle].
  	^outModifers asSmallIntegerObj
  	
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuItemText:item: (in category 'system primitives') -----
  primitiveGetMenuItemText: menuHandleOop item: anInteger
  	| menuHandle size oop ptr aString |
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #aString type: #Str255>
- 	<var: 'menuHandle' type: 'MenuHandle'>
- 	<var: #aString type: 'Str255 '>
  	<var: #ptr type: 'char *'>
  	self primitive: 'primitiveGetMenuItemText'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	aString at: 0 put: 0.
  	self cCode: 'GetMenuItemText(menuHandle,anInteger,aString)' inSmalltalk:[menuHandle].
  	size := self cCode: 'aString[0]' inSmalltalk: [0].
  	oop := interpreterProxy instantiateClass: interpreterProxy classString indexableSize:  size.
  	ptr := interpreterProxy firstIndexableField: oop.
  	0 to: size-1 do:[:i|
  		ptr at: i put: (aString at: (i+1))].
  	^oop
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuItemTextEncoding:item: (in category 'system primitives') -----
  primitiveGetMenuItemTextEncoding: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #outScriptID type: #TextEncoding>
  	| menuHandle outScriptID |
  	self primitive: 'primitiveGetMenuItemTextEncoding'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'outScriptID' type: 'TextEncoding'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'GetMenuItemTextEncoding(menuHandle,anInteger,&outScriptID)' inSmalltalk:[menuHandle].
  	^interpreterProxy positive32BitIntegerFor: outScriptID!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveGetMenuTitle: (in category 'system primitives') -----
  primitiveGetMenuTitle: menuHandleOop
  	| menuHandle size oop ptr aString |
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #aString type: #Str255>
- 	<var: 'menuHandle' type: 'MenuHandle'>
- 	<var: #aString type: 'Str255 '>
  	<var: #ptr type: 'char *'>
  	self primitive: 'primitiveGetMenuTitle'
  		parameters: #(Oop).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	aString at: 0 put: 0.
  	self cCode: 'GetMenuTitle(menuHandle,aString)' inSmalltalk:[menuHandle].
  	size := self cCode: 'aString[0]' inSmalltalk: [0].
  	oop := interpreterProxy instantiateClass: interpreterProxy classString indexableSize:  size.
  	ptr := interpreterProxy firstIndexableField: oop.
  	0 to: size-1 do:[:i|
  		ptr at: i put: (aString at: (i+1))].
  	^oop
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveHiliteMenu: (in category 'system primitives') -----
  primitiveHiliteMenu: menuID 
+ 	<var: #menuID type: #MenuID>
  	self primitive: 'primitiveHiliteMenu'
  		parameters: #(SmallInteger).
- 	self var: 'menuID' type: 'MenuID'.
  	self cCode: 'HiliteMenu(menuID)' inSmalltalk:[].
  	^nil!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveInsertFontResMenu:afterItem:scriptFilter: (in category 'system primitives') -----
  primitiveInsertFontResMenu: menuHandleOop afterItem: afterItemInteger scriptFilter:  scriptFilterInteger
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveInsertFontResMenu'
  		parameters: #(Oop SmallInteger SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'InsertFontResMenu(menuHandle,afterItemInteger,scriptFilterInteger)' inSmalltalk:[menuHandle].
  	^nil
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveInsertIntlResMenu:theType:afterItem:scriptFilter: (in category 'system primitives') -----
  primitiveInsertIntlResMenu: menuHandleOop theType: aResType afterItem: afterItemInteger scriptFilter:  scriptFilterInteger
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #resType type: #ResType>
  	| menuHandle resType |
  	self primitive: 'primitiveInsertIntlResMenu'
  		parameters: #(Oop SmallInteger SmallInteger SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'resType' type: 'ResType'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	resType := self cCoerce: (interpreterProxy positive32BitValueOf: aResType) to: #ResType.
- 	resType := self cCoerce: (interpreterProxy positive32BitValueOf: aResType) to: 'ResType'.
  	self cCode: 'InsertIntlResMenu(menuHandle,resType,afterItemInteger,scriptFilterInteger)' inSmalltalk:[menuHandle].
  	^nil
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveInsertMenu:beforeID: (in category 'system primitives') -----
  primitiveInsertMenu: menuHandleOop beforeID: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #anInteger type: #MenuID>
  	| menuHandle |
  	self primitive: 'primitiveInsertMenu'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'anInteger' type: 'MenuID'.
- 
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'InsertMenu(menuHandle,anInteger)' inSmalltalk:[menuHandle].
  	^nil!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveInsertMenuItem:itemString:afterItem: (in category 'system primitives') -----
  primitiveInsertMenuItem: menuHandleOop itemString: str255 afterItem: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #constStr255 type: #ConstStr255Param>
  	| menuHandle constStr255 |
  	self primitive: 'primitiveInsertMenuItem'
  		parameters: #(Oop ByteArray SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'constStr255' type: 'ConstStr255Param'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	constStr255 := self cCoerce: str255 to: #ConstStr255Param.
- 	constStr255 := self cCoerce: str255 to: 'ConstStr255Param'.	
  	self cCode: 'InsertMenuItem(menuHandle,constStr255,anInteger)' inSmalltalk:[menuHandle].
  	^nil
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveIsMenuItemEnabled:item: (in category 'system primitives') -----
  primitiveIsMenuItemEnabled: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
- 
  	| menuHandle result |
  	self primitive: 'primitiveIsMenuItemEnabled'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	result := self cCode: 'IsMenuItemEnabled(menuHandle,anInteger)' inSmalltalk:[0].
  	^result asOop: Boolean!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveIsMenuItemIconEnabled:item: (in category 'system primitives') -----
  primitiveIsMenuItemIconEnabled: menuHandleOop item: anInteger
+ 	<var: #menuHandle type: #MenuHandle>
- 
  	| menuHandle result |
  	self primitive: 'primitiveIsMenuItemIconEnabled'
  		parameters: #(Oop SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	result := self cCode: 'IsMenuItemIconEnabled(menuHandle,anInteger)' inSmalltalk:[0].
  	^result asOop: Boolean!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveNewMenu:menuTitle: (in category 'system primitives') -----
  primitiveNewMenu: menuID menuTitle: menuTitle
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #constStr255 type: #ConstStr255Param>
+ 	<var: #menuID type: #MenuID>
- 
  	| menuHandle constStr255 |
  	self primitive: 'primitiveNewMenu'
  		parameters: #(SmallInteger ByteArray).
+ 	constStr255 := self cCoerce: menuTitle to: #ConstStr255Param.	
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'constStr255' type: 'ConstStr255Param'.
- 	self var: 'menuID' type: 'MenuID'.
- 	
- 	constStr255 := self cCoerce: menuTitle to: 'ConstStr255Param'.	
  	menuHandle := self cCode: 'NewMenu(menuID,constStr255)' inSmalltalk:[0].
  	^interpreterProxy positiveMachineIntegerFor: (self cCoerce: menuHandle to: 'long')!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetItemCmd:item:cmdChar: (in category 'system primitives') -----
  primitiveSetItemCmd: menuHandleOop item: anInteger cmdChar: anIntegerCmdChar
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #aCharacter type: #CharParameter>
  	| menuHandle aCharacter |
- 	<var: 'menuHandle' type: 'MenuHandle'>
- 	<var: #aCharacter type: 'CharParameter '>
  	self primitive: 'primitiveSetItemCmd'
  		parameters: #(Oop SmallInteger SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	aCharacter := anIntegerCmdChar.
  	self cCode: 'SetItemCmd(menuHandle,anInteger,aCharacter)' inSmalltalk:[menuHandle].
  	^nil
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetItemIcon:item:iconIndex: (in category 'system primitives') -----
  primitiveSetItemIcon: menuHandleOop item: anInteger iconIndex: aIconIndexInteger
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveSetItemIcon'
  		parameters: #(Oop SmallInteger SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'SetItemIcon(menuHandle,anInteger,aIconIndexInteger)' inSmalltalk:[menuHandle].
  	^nil
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetItemMark:item:markChar: (in category 'system primitives') -----
  primitiveSetItemMark: menuHandleOop item: anInteger markChar: aMarkChar
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #aCharacter type: #CharParameter>
  	| menuHandle aCharacter |
- 	<var: 'menuHandle' type: 'MenuHandle'>
- 	<var: #aCharacter type: 'CharParameter '>
  	self primitive: 'primitiveSetItemMark'
  		parameters: #(Oop SmallInteger SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	aCharacter := aMarkChar.
  	self cCode: 'SetItemMark(menuHandle,anInteger,aCharacter)' inSmalltalk:[menuHandle].
  	^nil
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetItemStyle:item:styleParameter: (in category 'system primitives') -----
  primitiveSetItemStyle: menuHandleOop item: anInteger styleParameter: chStyleInteger
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveSetItemStyle'
  		parameters: #(Oop SmallInteger SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'SetItemStyle(menuHandle,anInteger,chStyleInteger)' inSmalltalk:[menuHandle].
  	^nil
  
  !

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetMenuBar: (in category 'system primitives') -----
  primitiveSetMenuBar: menuHandleOop
+ 	<var: #menuBarHandle type: #MenuBarHandle>
- 
  	| menuBarHandle |
  	self primitive: 'primitiveSetMenuBar'
  		parameters: #(Oop).
+ 	menuBarHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuBarHandle.
- 	self var: 'menuBarHandle' type: 'MenuBarHandle'.
- 	menuBarHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuBarHandle'.
  	self cCode: 'SetMenuBar(menuBarHandle)' inSmalltalk:[menuBarHandle].
  	^nil!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetMenuItemCommandID:item:menuCommand: (in category 'system primitives') -----
  primitiveSetMenuItemCommandID: menuHandleOop item: anInteger menuCommand:  inCommandID
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #commandID type: #MenuCommand>
  	| menuHandle commandID |
  	self primitive: 'primitiveSetMenuItemCommandID'
  		parameters: #(Oop SmallInteger Oop).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
+ 	commandID := self cCoerce: (interpreterProxy positive32BitValueOf: inCommandID) to: #MenuCommand.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'commandID' type: 'MenuCommand'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
- 	commandID := self cCoerce: (interpreterProxy positive32BitValueOf: inCommandID) to: 'MenuCommand'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'SetMenuItemCommandID(menuHandle,anInteger,commandID)' inSmalltalk:[menuHandle].
  	^nil
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetMenuItemFontID:item:fontID: (in category 'system primitives') -----
  primitiveSetMenuItemFontID: menuHandleOop item: anInteger fontID: aFontIDInteger  
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveSetMenuItemFontID'
  		parameters: #(Oop SmallInteger SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'SetMenuItemFontID(menuHandle,anInteger,aFontIDInteger)' inSmalltalk:[menuHandle].
  	^nil
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetMenuItemHierarchicalID:item:hierID: (in category 'system primitives') -----
  primitiveSetMenuItemHierarchicalID: menuHandleOop item: anInteger hierID: aMenuID
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #aMenuID type: #MenuID>
  	| menuHandle |
  	self primitive: 'primitiveSetMenuItemHierarchicalID'
  		parameters: #(Oop SmallInteger SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'menuID' type: 'MenuID'.
- 
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'SetMenuItemHierarchicalID(menuHandle,anInteger,aMenuID)' inSmalltalk:[menuHandle].
  	^nil!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetMenuItemKeyGlyph:item:glyph: (in category 'system primitives') -----
  primitiveSetMenuItemKeyGlyph: menuHandleOop item: anInteger glyph:  inGlyphInteger
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveSetMenuItemKeyGlyph'
  		parameters: #(Oop SmallInteger SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'SetMenuItemKeyGlyph(menuHandle,anInteger,inGlyphInteger)' inSmalltalk:[menuHandle].
  	^nil
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetMenuItemModifiers:item:inModifiers: (in category 'system primitives') -----
  primitiveSetMenuItemModifiers: menuHandleOop item: anInteger inModifiers: aUInt8
+ 	<var: #menuHandle type: #MenuHandle>
  	| menuHandle |
  	self primitive: 'primitiveSetMenuItemModifiers'
  		parameters: #(Oop SmallInteger SmallInteger).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
  	self cCode: 'SetMenuItemModifiers(menuHandle,anInteger,aUInt8)' inSmalltalk:[menuHandle].
  	^nil!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetMenuItemText:item:itemString: (in category 'system primitives') -----
  primitiveSetMenuItemText: menuHandleOop item: anInteger itemString: str255
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #constStr255 type: #ConstStr255Param>
  	| menuHandle constStr255 |
  	self primitive: 'primitiveSetMenuItemText'
  		parameters: #(Oop SmallInteger ByteArray).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'constStr255' type: 'ConstStr255Param'.
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	constStr255 := self cCoerce: str255 to: #ConstStr255Param.
- 	constStr255 := self cCoerce: str255 to: 'ConstStr255Param'.	
  	self cCode: 'SetMenuItemText(menuHandle,anInteger,constStr255)' inSmalltalk:[menuHandle].
  	^nil
  	!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetMenuItemTextEncoding:item:inScriptID: (in category 'system primitives') -----
  primitiveSetMenuItemTextEncoding: menuHandleOop item: anInteger inScriptID: aTextEncodingOop
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #inScriptID type: #TextEncoding>
  	| menuHandle inScriptID |
  	self primitive: 'primitiveSetMenuItemTextEncoding'
  		parameters: #(Oop SmallInteger Oop).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'inScriptID' type: 'TextEncoding'.
- 	
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	inScriptID := self cCoerce: (interpreterProxy positive32BitValueOf: aTextEncodingOop) to: #TextEncoding.
- 	inScriptID := self cCoerce: (interpreterProxy positive32BitValueOf: aTextEncodingOop) to: 'TextEncoding'.
  	self cCode: 'SetMenuItemTextEncoding(menuHandle,anInteger,inScriptID)' inSmalltalk:[menuHandle].
  	^nil!

Item was changed:
  ----- Method: MacMenubarPlugin>>primitiveSetMenuTitle:title: (in category 'system primitives') -----
  primitiveSetMenuTitle: menuHandleOop  title: str255
+ 	<var: #menuHandle type: #MenuHandle>
+ 	<var: #constStr255 type: #ConstStr255Param>
  	| menuHandle constStr255 |
  	self primitive: 'primitiveSetMenuTitle'
  		parameters: #(Oop ByteArray).
+ 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: #MenuHandle.
- 	self var: 'menuHandle' type: 'MenuHandle'.
- 	self var: 'constStr255' type: 'ConstStr255Param'.
- 	menuHandle := self cCoerce: (interpreterProxy positiveMachineIntegerValueOf: menuHandleOop) to: 'MenuHandle'.
  	(self ioCheckMenuHandle: menuHandle) ifFalse: [^interpreterProxy success: false].
+ 	constStr255 := self cCoerce: str255 to: #ConstStr255Param.
- 	constStr255 := self cCoerce: str255 to: 'ConstStr255Param'.	
  	self cCode: 'SetMenuTitle(menuHandle,constStr255)' inSmalltalk:[menuHandle].
  	^nil
  	!



More information about the Vm-dev mailing list