Garret Mott
13-Nov-2015, 06:37 PM
Hi -
This is in the "getting picky" department, but here goes anyway.
An added menu item does not line up exactly (red line added to show it):
9443
Here's the code (identical 18.1 & 18.2):
Object oHelpMenu is a cCJMenuItem
Set peControlType to xtpControlPopup
Set psCaption to "Help"
Set psDescription to "About"
Set psToolTip to "About"
Object oAboutMenuItem is a cCJMenuItem
Set psCaption to "About"
Set psTooltip to "About "
Procedure OnExecute Variant vCommandBarControl
Handle hoClient
Get Client_Id to hoClient
Send Activate_About of hoClient
End_Procedure
End_Object
End_Object
Object oSkinsMenuItem is a cCJMenuItem
Set psCaption to "Skins"
Set psTooltip to "Skins"
Procedure OnExecute Variant vCommandBarControl
Handle hoClient
Get Client_Id to hoClient
Send Activate_oSkinEnumeration of hoClient
End_Procedure
End_Object
This is in the "getting picky" department, but here goes anyway.
An added menu item does not line up exactly (red line added to show it):
9443
Here's the code (identical 18.1 & 18.2):
Object oHelpMenu is a cCJMenuItem
Set peControlType to xtpControlPopup
Set psCaption to "Help"
Set psDescription to "About"
Set psToolTip to "About"
Object oAboutMenuItem is a cCJMenuItem
Set psCaption to "About"
Set psTooltip to "About "
Procedure OnExecute Variant vCommandBarControl
Handle hoClient
Get Client_Id to hoClient
Send Activate_About of hoClient
End_Procedure
End_Object
End_Object
Object oSkinsMenuItem is a cCJMenuItem
Set psCaption to "Skins"
Set psTooltip to "Skins"
Procedure OnExecute Variant vCommandBarControl
Handle hoClient
Get Client_Id to hoClient
Send Activate_oSkinEnumeration of hoClient
End_Procedure
End_Object