Method.st
changeset 11066 95bf9204e56b
parent 11022 8dd9f699915f
child 11146 553e658691d2
equal deleted inserted replaced
11065:17c01b01000f 11066:95bf9204e56b
  1609 
  1609 
  1610     LastFileLock critical:[
  1610     LastFileLock critical:[
  1611         aStream := LastFileReference at:1.
  1611         aStream := LastFileReference at:1.
  1612         LastFileReference at:1 put:0.
  1612         LastFileReference at:1 put:0.
  1613 
  1613 
  1614         (aStream isNil or:[aStream == 0]) ifTrue:[
  1614         (aStream isNil or:[aStream == 0 or:[aStream isOpen not]]) ifTrue:[
  1615             aStream := nil.
  1615             aStream := nil.
  1616         ] ifFalse:[
  1616         ] ifFalse:[
  1617             LastSourceFileName = source ifFalse:[
  1617             LastSourceFileName = source ifFalse:[
  1618                 aStream close.
  1618                 aStream close.
  1619                 aStream := nil.
  1619                 aStream := nil.
  2830 ! !
  2830 ! !
  2831 
  2831 
  2832 !Method class methodsFor:'documentation'!
  2832 !Method class methodsFor:'documentation'!
  2833 
  2833 
  2834 version
  2834 version
  2835     ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.314 2008-05-26 08:34:35 cg Exp $'
  2835     ^ '$Header: /cvs/stx/stx/libbasic/Method.st,v 1.315 2008-06-28 12:17:18 stefan Exp $'
  2836 ! !
  2836 ! !
  2837 
  2837 
  2838 Method initialize!
  2838 Method initialize!