[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