2006/08/08 17:41:25
ChemoJun050 (2006/08/08) Copyright 2002-2006 National Institute of Informatics, Research Organization of Information and Systems.
category:
-
ChemoJun-Topology-Grapher
inheritance:
instance variables:
class instance variables:
class variables:
pool variables:
instance methods:
-
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:
-
copyright [copyright]
^'ChemoJun050 (2006/08/08) Copyright 2002-2006 National Institute of Informatics, Research Organization of Information and Systems.'
-
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
-
system [copyright]
^'ChemoJun'
-
version [copyright]
^'050'
-
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 ) ) ) )