ChemoJunMoleculeCatalogueVoid

2006/08/08 17:41:28

ChemoJunMoleculeCatalogueVoid

category:

ChemoJun-Display-Catalogue

inheritance:

Object
- VisualComponent
  - ChemoJunMoleculeCatalogueVoid
    - ChemoJunMoleculeCatalogueElement

instance variables:

displayBox

class instance variables:

class variables:

pool variables:

instance methods:

baseNameString [private]
```
	^String new
```
bounds: newBounds [bounds accessing]
```
 
	displayBox := newBounds
```

defaultImage [defaults]

	| aPixmap anImage graphicsContext |
	JunControlUtility 
		assert: [aPixmap := Pixmap extent: self class defaultThumbnailExtent * 2]
		do: 
			[graphicsContext := aPixmap graphicsContext.
			graphicsContext
				paint: self class defaultEmptyColor;
				displayRectangle: aPixmap bounds.
			anImage := aPixmap asImage]
		ensure: [aPixmap close].
	^anImage

defaultThumbnail [defaults]

	| aPixmap anImage graphicsContext |
	JunControlUtility 
		assert: [aPixmap := Pixmap extent: self class defaultThumbnailExtent]
		do: 
			[graphicsContext := aPixmap graphicsContext.
			graphicsContext
				paint: self class defaultEmptyColor;
				displayRectangle: aPixmap bounds.
			anImage := aPixmap asImage]
		ensure: [aPixmap close].
	^anImage

displayOn: graphicsContext [displaying]

 
	(self bounds intersects: graphicsContext clippingBounds) 
		ifTrue: 
			[self thumbnail ifNil: 
					[graphicsContext paint: self class defaultEmptyColor.
					graphicsContext displayRectangle: self bounds]
				ifNotNil: [:it | it displayOn: graphicsContext at: self bounds origin]]

extent [accessing]

	^self thumbnail ifNil: [self class defaultThumbnailExtent]
		ifNotNil: [:it | it extent]

filename [accessing]
```
	^nil
```
filename: ignore [accessing]
```
 
	^self
```
height [accessing]
```
	^self extent y
```
image [accessing]
```
	^nil
```
initialize [initialize-release]
```
	super initialize.
	displayBox := nil
```
isNotVoid [testing]
```
	^self isVoid not
```
isVoid [testing]
```
	^true
```
moleculeObject [accessing]
```
	^nil
```

postCopy [copying]

	super postCopy.
	displayBox := displayBox copy

preferredBounds [bounds accessing]

	displayBox ifNil: [displayBox := Point zero extent: Point zero].
	^displayBox

printOn: aStream [printing]
```
 
	self toLispList printOn: aStream
```
thumbnail [accessing]
```
	^nil
```
thumbnail: ignore [accessing]
```
 
	^self
```

toLispList [lisp support]

	| aList |
	aList := JunLispCons cell.
	aList head: self class name.
	^aList

width [accessing]
```
	^self extent x
```

class methods:

copyright [copyright]

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

defaultCatalogueClass [defaults]
```
	^ChemoJunMoleculeCatalogue
```
defaultEmptyColor [defaults]
```
	^ColorValue veryLightGray
```
defaultMoleculeObjectClass [defaults]
```
	^ChemoJunMoleculeObject
```
defaultMoleculePresentation [defaults]
```
	^#moleculeAsBallAndStick
```
defaultMoleculeViewerClass [defaults]
```
	^ChemoJunMoleculeViewer
```
defaultThumbnailExtent [defaults]
```
	^128 @ 128
```

example1 [examples]

	"ChemoJunMoleculeCatalogueVoid example1."

	| catalogueVoid |
	catalogueVoid := ChemoJunMoleculeCatalogueVoid new.
	JunImageDisplayModel show: catalogueVoid thumbnail.
	^catalogueVoid

fromLispList: aList [lisp support]

 
	| aClass catalogueVoid |
	aClass := Smalltalk at: aList head.
	catalogueVoid := aClass new.
	^catalogueVoid

system [copyright]
```
	^'ChemoJun'
```
version [copyright]
```
	^'050'
```