VM Maker: VMMaker-dtl.176.mcz

 
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" <[hidden email]>
Subject: VMMakerTool menu registration also for Pharo 1.1.
To: [hidden email], [hidden email]

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'}].!