ChemoJunMoleculeModel

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

category:

• ChemoJun-Display-Viewers

inheritance:

• Object
  • Model
    • ApplicationModel
      • JunApplicationModel
        • JunOpenGLDisplayModel
          • ChemoJunGeneralViewer
            • ChemoJunAbstractViewer
              • ChemoJunMoleculeViewer
                • ChemoJunMoleculeModel

instance variables:

class instance variables:

class variables:

pool variables:

instance methods:

1. beInvisible [cmn support]
   

   	| specWrapper |
   	(specWrapper := self specWrapper) isNil ifTrue: [^nil].
   	specWrapper
   		beInvisible;
   		disable

2. beVisible [cmn support]
   

   	| specWrapper |
   	(specWrapper := self specWrapper) isNil ifTrue: [^nil].
   	specWrapper
   		beVisible;
   		enable

3. defaultDisplayViewClass [defaults]
   

   	^ChemoJunMoleculeView

4. isEmbedded [testing]
   

   	| aWindow |
   	((aWindow := self getWindow) notNil and: [aWindow model = self]) 
   		ifTrue: [^false].
   	^true

5. moleculeDragButtonView [interface opening]
   

   	^self dragButtonView

6. moleculeFocusButtonView [interface opening]
   

   	^self focusButtonView

7. moleculeGrabButtonView [interface opening]
   

   	^self grabButtonView

8. moleculePickButtonView [interface opening]
   

   	^self pickButtonView

9. moleculeView [interface opening]
   

   	| aView |
   	aView := self displayView.
   	(aView controller)
   		menuHolder: [self yellowButtonMenu];
   		performer: self.
   	^aView

10. moleculeZThumbWheelView [interface opening]
    

    	^self zThumbWheelView

11. setSize: extent [private]
    

     
    	self isEmbedded ifTrue: [^nil].
    	super setSize: extent

12. spawnObject [menu messages]
    

    	| moleculeModel |
    	moleculeModel := super spawnObject.
    	self getView 
    		ifNotNil: [:aView | moleculeModel setSize: aView bounds extent]

13. specWrapper [cmn support]
    

    	| aBuilder |
    	(aBuilder := self builder) isNil ifTrue: [^nil].
    	^aBuilder componentAt: #moleculeModel

14. yellowButtonMenu [menu accessing]
    

    	| rejectedLabelString menuItem aMenu |
    	rejectedLabelString := 'File'.
    	menuItem := self menuItemLabeled: rejectedLabelString inMenu: self menuBar.
    	menuItem isNil ifTrue: [^nil].
    	aMenu := menuItem submenu.
    	aMenu isNil ifTrue: [^nil].
    	menuItem := aMenu menuItemWithValue: #saveAsImage ifNone: [nil].
    	menuItem isNil ifTrue: [^nil].
    	aMenu := Menu new.
    	aMenu addItem: menuItem.
    	(self menuBar menuItems 
    		reject: [:each | each rawLabel defaultString = rejectedLabelString]) 
    			do: [:eachMenuItem | aMenu addItem: eachMenuItem].
    	^aMenu

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]
   

   	"ChemoJunMoleculeModel example1."
   
   	| aModel |
   	aModel := ChemoJunMoleculeModel new.
   	aModel open.
   	^aModel

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: #chemoJun_Molecular_Viewer 
   				#defaultString: 'Molecular Viewer' ) 
   			#min: #(#{Core.Point} 280 280 ) 
   			#bounds: #(#{Graphics.Rectangle} 512 384 812 684 ) 
   			#flags: 4 
   			#menu: #menuBar ) 
   		#component: 
   		#(#{UI.SpecCollection} 
   			#collection: #(
   				#(#{UI.ArbitraryComponentSpec} 
   					#layout: #(#{Graphics.LayoutFrame} 1 0 1 0 -20 1 -1 1 ) 
   					#name: #moleculeView 
   					#colors: 
   					#(#{UI.LookPreferences} 
   						#setBackgroundColor: #(#{Graphics.ColorValue} #white ) ) 
   					#component: #moleculeView ) 
   				#(#{UI.ArbitraryComponentSpec} 
   					#layout: #(#{Graphics.LayoutFrame} -19 1 1 0 -1 1 19 0 ) 
   					#name: #moleculePickButtonView 
   					#flags: 0 
   					#component: #moleculePickButtonView ) 
   				#(#{UI.ArbitraryComponentSpec} 
   					#layout: #(#{Graphics.LayoutFrame} -19 1 20 0 -1 1 38 0 ) 
   					#name: #moleculeGrabButtonView 
   					#flags: 0 
   					#component: #moleculeGrabButtonView ) 
   				#(#{UI.ArbitraryComponentSpec} 
   					#layout: #(#{Graphics.LayoutFrame} -19 1 39 0 -1 1 57 0 ) 
   					#name: #moleculeDragButtonView 
   					#flags: 0 
   					#component: #moleculeDragButtonView ) 
   				#(#{UI.ArbitraryComponentSpec} 
   					#layout: #(#{Graphics.LayoutFrame} -19 1 -61 0.5 -1 1 61 0.5 ) 
   					#name: #moleculeZThumbWheelView 
   					#flags: 0 
   					#component: #moleculeZThumbWheelView ) 
   				#(#{UI.ArbitraryComponentSpec} 
   					#layout: #(#{Graphics.LayoutFrame} -19 1 62 0.5 -1 1 80 0.5 ) 
   					#name: #moleculeFocusButtonView 
   					#flags: 0 
   					#component: #moleculeFocusButtonView ) ) ) )