ChemoJunAbstractFileWriter

ChemoJun050 (2006/08/08) Copyright 2002-2006 National Institute of Informatics, Research Organization of Information and Systems.

category:

• ChemoJun-Abstract-Objects

inheritance:

• Object
  • ChemoJunAbstractFile
    • ChemoJunAbstractFileWriter
      • ChemoJunMolFileWriter
      • ChemoJunSdFileWriter

instance variables:

class instance variables:

class variables:

pool variables:

instance methods:

1. write [writing]
   

   	| aStream |
   	self fileName isNil ifTrue: [^nil].
   	JunControlUtility 
   		assert: [aStream := self fileName asFilename writeStream]
   		do: [self writeOn: aStream]
   		ensure: [aStream close]

2. writeOn: aStream [writing]
   

    
   	^self

class methods:

1. copyright [copyright]
   

   	^'ChemoJun050 (2006/08/08) Copyright 2002-2006 National Institute of Informatics, Research Organization of Information and Systems.'

2. defaultInitialFileName [defaults]
   

   	^nil

3. defaultRequestMessageString [defaults]
   

   	^(#jun_Input_a_file_ >> 'Input a file.') asString

4. request: messageString [utilities]
   

    
   	"ChemoJunAbstractFileWriter request: ChemoJunAbstractFileWriter defaultRequestMessageString."
   
   	^self request: messageString initialFileName: self defaultInitialFileName

5. request: messageString initialFileName: initialFileName [utilities]
   

    
   	"ChemoJunAbstractFileWriter request: ChemoJunAbstractFileWriter defaultRequestMessageString initialFileName: 'filename'."
   
   	| aFilename aWriter |
   	aFilename := ChemoJunFileRequesterDialog requestNewFilename: messageString
   				initialFilename: initialFileName.
   	aFilename isNil ifTrue: [^nil].
   	aWriter := self new.
   	aWriter fileName: aFilename.
   	^aWriter

6. requestInitialFileName: initialFileName [utilities]
   

    
   	"ChemoJunAbstractFileWriter requestInitialFileName: 'filename'."
   
   	^self request: self defaultRequestMessageString
   		initialFileName: initialFileName

7. system [copyright]
   

   	^'ChemoJun'

8. version [copyright]
   

   	^'050'