Dave Lewis uploaded a new version of VMMaker to project VM Maker: http://www.squeaksource.com/VMMaker/VMMaker-dtl.176.mcz
==================== Summary ====================
Name: VMMaker-dtl.176 Author: dtl Time: 25 May 2010, 9:26:24 am UUID: 95c6cda2-9251-46b4-9e8c-421c6c911f70 Ancestors: VMMaker-dtl.175
Add menu registration for Pharo contributed by Torsten Bergmann.
Date: Tue, 25 May 2010 19:15:25 +0200 From: "Torsten Bergmann" astares@gmx.de Subject: VMMakerTool menu registration also for Pharo 1.1. To: vm-dev@lists.squeakfoundation.org, pharo-project@lists.gforge.inria.fr
Hi,
since world menu registration has changed from Pharo 1.0 to 1.1 (Pharo now uses Pragmas) loading the VMMakerTool throws a deprecated warning during world menu registration in class side #initialize.
Attached is a changeset with a fix so that world menu registration should work in Squeak 4.1., Pharo 1.0 and Pharo 1.1.
Would be nice if it could be incorporated. Unfortunately I have no write access on squeaksource/VMMaker.
We can then update the ConfigurationOfVMMaker too.
Thx T.
[-- Attachment #2: VMMakerMenueRegistration.1.cs --]
=============== Diff against VMMaker-dtl.175 ===============
Item was changed: ----- Method: VMMakerTool class>>unload (in category 'unloading') ----- unload + Smalltalk at: #TheWorldMenu ifPresent: [ :class | + class class methodDict at: #unregisterOpenCommandWithReceiver: ifPresent: [ :method | + (method sendsSelector: #deprecated:) + ifFalse: [ class unregisterOpenCommandWithReceiver: self ] ] ]! - - TheWorldMenu unregisterOpenCommandWithReceiver: self!
Item was added: + ----- Method: VMMakerTool class>>menuCommandOn: (in category 'world menu') ----- + menuCommandOn: aBuilder + <worldMenu> + (aBuilder item: #'VMMaker') + parent: #Tools; + action:[self openInWorld]!
Item was changed: ----- Method: VMMakerTool class>>initialize (in category 'instance creation') ----- initialize
+ Smalltalk at: #TheWorldMenu ifPresent: [ :class | + class class methodDict at: #registerOpenCommand: ifPresent: [ :method | + (method sendsSelector: #deprecated:) + ifFalse: [ class registerOpenCommand: (Array with: 'VMMaker' with: (Array with: self with: #openInWorld)) ] ] ]! - (TheWorldMenu respondsTo: #registerOpenCommand:) - - ifTrue: [TheWorldMenu registerOpenCommand: {'VMMaker'. {self. #openInWorld}. 'The VM making tool'}].!
vm-dev@lists.squeakfoundation.org