ChemoJunGrapher

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

category:

• ChemoJun-Topology-Grapher

inheritance:

• Object
  • Model
    • ApplicationModel
      • JunApplicationModel
        • JunGrapher
          • ChemoJunGrapher

instance variables:

class instance variables:

class variables:

pool variables:

instance methods:

1. scrollFor: aNode [scrolling]
   

    
   	self isHierarchicalArrangement 
   		ifTrue: 
   			[self getView ifNotNil: 
   					[:aView | 
   					aView scrollTo: aNode bounds origin negated 
   								+ self graph arrangeForestMargin asPoint.
   					self
   						focusBoundingBox: nil;
   						focusBoundingBox]]
   		ifFalse: [super scrollFor: aNode]

class methods:

1. copyright [copyright]
   

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

2. example1 [examples]
   

   	"ChemoJunGrapher example1."
   
   	| moleculeObject moleculeViewer chemGrapher |
   	moleculeObject := ChemoJunMoleculeObject request.
   	moleculeObject isNil ifTrue: [^nil].
   	moleculeViewer := ChemoJunMoleculeViewer moleculeObject: moleculeObject.
   	moleculeViewer openAt: 100 @ 250.
   	chemGrapher := moleculeViewer asGrapher.
   	chemGrapher openAt: 410 @ 250.
   	^chemGrapher

3. system [copyright]
   

   	^'ChemoJun'

4. version [copyright]
   

   	^'050'

5. windowSpec [interface specs]
   

   	"Tools.UIPainter new openOnClass: self andSelector: #windowSpec"
   
   	<resource: #canvas>
   	^#(#{UI.FullSpec} 
   		#window: 
   		#(#{UI.WindowSpec} 
   			#label: 
   			#(#{Kernel.UserMessage} 
   				#key: #jun_Grapher 
   				#defaultString: 'Grapher' ) 
   			#min: #(#{Core.Point} 640 480 ) 
   			#max: #(#{Core.Point} 0 0 ) 
   			#bounds: #(#{Graphics.Rectangle} 0 0 640 480 ) 
   			#colors: 
   			#(#{UI.LookPreferences} 
   				#setBackgroundColor: #(#{Graphics.ColorValue} 8000 8000 8000 ) ) ) 
   		#component: 
   		#(#{UI.SpecCollection} 
   			#collection: #(
   				#(#{UI.ArbitraryComponentSpec} 
   					#layout: #(#{Graphics.LayoutFrame} 1 0 1 0 -1 1 -1 1 ) 
   					#name: #createView 
   					#component: #createView ) ) ) )