[Vm-dev] VM Maker: VMMaker-dtl.176.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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 at gmx.de>
Subject: VMMakerTool menu registration also for Pharo 1.1.
To: vm-dev at lists.squeakfoundation.org, pharo-project at 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'}].!