Content-Type: text/plain; charset=us-ascii
Content-Description: message body text
Content-Transfer-Encoding: 7bit

I think it is annoying when I try to accept a method like

	transistor
	| flip|
	flip := true. flop := false.

and let the Parser insert the temporary variable flop and get this:

	transistor
	| flipflop |
	flip := true. flop := false.

The included fileIn changes declareTempAndPaste: to check if
there is a whitespace between the last declared variable and the
trailing | character.

Alex.


Content-Type: text/plain
Content-Description: changes declareTempAndPaste: to check if

trailing | character
Content-Disposition: inline;
	filename="Parser-declareTempAndPaste.st"
Content-Transfer-Encoding: 7bit

'From Squeak 2.5 of August 6, 1999 [latest update: #1499] on 1 October 1999 at 8:18:46 pm'!

!Parser methodsFor: 'error correction' stamp: 'laza 10/1/1999 20:18'!
declareTempAndPaste: name
	| insertion tabbed |
	(requestor text string at: tempsMark) = $|
				ifTrue:  "Paste it before the second vertical bar"
					[insertion _ name, ' '.
					(requestor text string at: tempsMark-1) isSeparator
						ifFalse: [insertion _ ' ', insertion].
					tempsMark _ tempsMark +
						(self substituteWord: insertion
							wordInterval: (tempsMark to: tempsMark-1)
							offset: 0)]
				ifFalse:  "No bars - insert some with CR, tab"
					[insertion _ '| ' , name , ' |
'.
					tabbed _ tempsMark > 1
						and: [(requestor text string at: tempsMark-1) = Character tab].
					tabbed
						ifTrue: [insertion _ insertion , (String with: Character tab)].
					tempsMark _ tempsMark +
						(self substituteWord: insertion
							wordInterval: (tempsMark to: tempsMark-1)
							offset: 0)
						- (tabbed ifTrue: [3] ifFalse: [2])].
			^ encoder reallyBind: name! !

Content-Type: text/plain; charset=us-ascii
Content-Description: .signature
Content-Transfer-Encoding: 7bit


-- 
------  Alexander  Lazarevic  ------------------------------------------------
-- Otto-von-Guericke-Universitaet            mailto: Alexander at Lazarevic.de --
--   Computational Visualistics    http://www.cs.uni-magdeburg.de/~lazarevi --