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

commits at source.squeak.org commits at source.squeak.org
Tue Sep 15 01:53:06 UTC 2015


David T. Lewis uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker-dtl.370.mcz

==================== Summary ====================

Name: VMMaker-dtl.370
Author: dtl
Time: 14 September 2015, 9:52:35.845 pm
UUID: bdc970fd-9c84-4ece-8746-21060933384a
Ancestors: VMMaker-tfel.369

VMMaker 4.14.2

Nicolai Hess fix for Mantis 0007265: Bug in Matrix2x3Plugin okayIntValue: (also fixed in VMMaker.oscog-eem.1449 for Spur).
BitmapStreamTests pass before and after the change.

Change VMMakerTool layout to work with Squeak 4.6 / 5.0

=============== Diff against VMMaker-tfel.369 ===============

Item was changed:
  ----- Method: Matrix2x3Plugin>>okayIntValue: (in category 'private') -----
  okayIntValue: value
+ 	^(value >= -1073741824 asFloat and:[value <= 1073741823 asFloat]) 
- 	^(value >= -1073741824 asFloat and:[m23ResultX <= 1073741823 asFloat]) 
  !

Item was changed:
  ----- Method: VMMaker class>>versionString (in category 'version testing') -----
  versionString
  
  	"VMMaker versionString"
  
+ 	^'4.14.2'!
- 	^'4.14.1'!

Item was changed:
  ----- Method: VMMakerTool>>buildCenterRows (in category 'window construction') -----
  buildCenterRows
  	| rows color1 color2 labelWidth longestLabel |
  	color1 := Color blue veryMuchLighter.
  	color2 := Color green veryMuchLighter.
  	longestLabel := 'Path to platforms code:'.	"calculate labelWidth for acceptable results on varous images"
  	labelWidth := (TextMorph new contents: longestLabel translated asText allBold) width *1.13.
  	rows := Morph new color: Color transparent;
  				 layoutPolicy: TableLayout new;
  				 vResizing: #spaceFill;
+ 				 extent: 550 @ (TextStyle defaultFont height * 16);
- 				 extent: 550 @ (TextStyle defaultFont height * 8);
  				 hResizing: #spaceFill;
  				 listDirection: #topToBottom;
  				borderStyle: (BorderStyle complexAltRaised width: 2);
  				 wrapDirection: #none;
  				 wrapCentering: #center;
  				 yourself.
  	rows
  		addMorphBack: ((self
  				entryRowWithLabel: 'Interpreter class name:'
  				labelWidth: labelWidth
  				balloonText: 'The name of the Interpreter class'
  				getFieldText: #interpreterClassName
  				setFieldText: #interpreterClassName:
  				buttonLabel: nil
  				buttonAction: nil
  				buttonBalloonText: nil)
  				color: color1).
  	interpreterClassMorph := rows submorphs last submorphs first.
  
  	rows
  		addMorphBack: ((self
  				entryRowWithLabel: 'Path to platforms code:'
  				labelWidth: labelWidth
  				balloonText: 'The directory where the platform source tree is found; can be edited in text field to the right. Default of {working directory}/src is strongly recommended'
  				getFieldText: #platformsPathText
  				setFieldText: #platformsPathText:
  				buttonLabel: 'Find Path'
  				buttonAction: #findPlatformsPath
  				buttonBalloonText: 'Choose the directory where you keep the platform specific code from a file dialogue')
  				color: color2).
  	platformPathMorph := rows submorphs last submorphs second.
  
  	rows
  		addMorphBack: ((self
  				entryRowWithLabel: 'Platform name:'
  				labelWidth: labelWidth
  				balloonText: 'The platform name (as returned by Smalltalk platformName - unix, Mac OS, RISCOS, win32 etc); can be edited (in text field to the right) to cross generate'
  				getFieldText: #platformNameText
  				setFieldText: #platformNameText:
  				buttonLabel: 'Find platform'
  				buttonAction: #platformsListMenu
  				buttonBalloonText: 'Choose from a list of known platforms. The default is this current platform.')
  				color: color1).
  	platformNameMorph := rows submorphs last submorphs second.
  
  	rows
  		addMorphBack: ((self
  				entryRowWithLabel: 'Path to generated sources:'
  				labelWidth: labelWidth
  				balloonText: 'The directory where the built sources will be placed; can be edited in text field to the right. The default is strongly recommended; makefile alterations may be needed if you use a different path.'
  				getFieldText: #sourcePathText
  				setFieldText: #sourcePathText:
  				buttonLabel: 'Clean out'
  				buttonAction: #cleanoutSrcDir
  				buttonBalloonText: 'Clean out all the files in the target directory, ready for a clean build')
  				color: color2).
  	generatedPathMorph := rows submorphs last submorphs second.
  
  	^ rows!



More information about the Vm-dev mailing list