ChemoJunMoleculeCatalogueView

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

category:

• ChemoJun-Display-Catalogue

inheritance:

• Object
  • VisualComponent
    • VisualPart
      • DependentPart
        • View
          • SimpleView
            • ScrollingView
              • ChemoJunMoleculeCatalogueView

instance variables:

class instance variables:

class variables:

pool variables:

instance methods:

1. bounds: newBounds [bounds accessing]
   

    
   	super bounds: newBounds.
   	
   	[| viewWidth imageWidth columnSize |
   	self model isEmpty ifTrue: [^nil].
   	viewWidth := self bounds width.
   	imageWidth := self model elements first image width.
   	columnSize := (viewWidth / imageWidth) floor.
   	self model arrange: columnSize] 
   			yourself

2. defaultControllerClass [controller accessing]
   

   	^ChemoJunMoleculeCatalogueController

3. displayOn: graphicsContext [displaying]
   

    
   	self model displayOn: graphicsContext

4. preferredBounds [display box accessing]
   

   	self model isNil 
   		ifTrue: [^Screen default bounds]
   		ifFalse: [^self model boundingBox]

5. scrollOffset [private]
   

   	^scrollOffset value

6. update: aSymbol [updating]
   

    
   	self isOpen ifFalse: [^self].
   	(#(#redisplay #clearAndRedisplay) includes: aSymbol) 
   		ifTrue: 
   			[aSymbol = #redisplay ifTrue: [self displayOn: self graphicsContext].
   			aSymbol = #clearAndRedisplay 
   				ifTrue: 
   					[self clearInside.
   					self displayOn: self graphicsContext]]
   		ifFalse: [super update: aSymbol].
   	self fixScrollingOffset

class methods:

1. copyright [copyright]
   

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

2. system [copyright]
   

   	^'ChemoJun'

3. version [copyright]
   

   	^'050'