[squeak-dev] The Trunk: Graphics-ul.154.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Nov 15 09:04:38 UTC 2010


Levente Uzonyi uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-ul.154.mcz

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

Name: Graphics-ul.154
Author: ul
Time: 15 November 2010, 10:03:54.643 am
UUID: 884952be-ab72-324d-ac95-e5f8ee4edcbe
Ancestors: Graphics-ul.153

- get rid of the last underscore assignments

=============== Diff against Graphics-ul.153 ===============

Item was changed:
  ----- Method: XBMReadWriter>>readHeader (in category 'private') -----
  readHeader
  	"Set width and height, and position stream at start of bytes"
  	| number setwidth setheight fieldName |
  	setwidth := setheight := false.
  		[((stream atEnd) or: [setwidth and: [setheight]])]
  		whileFalse: [
  	  	self skipCComments.
  		(stream nextMatchAll: '#define ') ifFalse: [^ false].
  		(stream skipTo: $_) ifFalse: [^ false].
  		fieldName := String streamContents:
  			[:source |
  			[(stream atEnd) or: [ stream peek isSeparator ]]
  				whileFalse: [ source nextPut: stream next]].
  	  	(fieldName = 'width') ifTrue: [
  			stream skipSeparators.
  			number := Integer readFrom: stream.
+ 			(number > 0) ifTrue: [setwidth := true].
- 			(number > 0) ifTrue: [setwidth _true].
  	  		width := number.].
  		(fieldName = 'height') ifTrue: [
  			stream skipSeparators.
  			number := Integer readFrom: stream.
  			(number > 0) ifTrue: [setheight := true].
  			height := number.
  			].
  		].
  	(setwidth & setheight) ifFalse: [^ false].
  	^ stream skipTo: ${
  !




More information about the Squeak-dev mailing list