ChemoJunLauncher

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

category:

• ChemoJun-System-Support

inheritance:

• Object
  • Model
    • ApplicationModel
      • JunApplicationModel
        • JunLauncher
          • ChemoJunLauncher

instance variables:

class instance variables:

class variables:

pool variables:

instance methods:

1. browseManual [menu messages]
   

   	JunURL browse: (ChemoJunUtility manualUriStringConstruct: 'index.html')

2. changeFont [menu messages]
   

   	ChemoJunSystem changeFont

3. defaultWindowLabel [defaults]
   

   	^(#chemoJun_ChemoJun_Launcher >> 'ChemoJun Launcher') asString

4. openAbout [menu messages]
   

   	ChemoJunSystem about

5. openChemicalMediaNavigator [menu messages]
   

   	ChemoJunChemicalMediaNavigator open

6. openCredits [menu messages]
   

   	ChemoJunCredits show

7. openEmail [menu messages]
   

   	JunURL 
   		browse: (JunEnvironmentUtility environmentVariableAt: 'ChemoJunMailUri'
   				ifAbsent: ['mailto:cheminfo@nii.ac.jp' yourself])

8. openJunLauncher [menu messages]
   

   	JunLauncher install

9. openMoleculeCatalogue [menu messages]
   

   	ChemoJunMoleculeCatalogue open

10. openMoleculeCatalogueData [menu messages]
    

    	| aCollection aPoint |
    	JunSensorUtility shiftDown 
    		ifTrue: 
    			[aCollection := ChemoJunUtility selectDirectoriesInChemoJunSampleData 
    						ifNil: [Array new]
    						ifNotNil: [:it | it yourself]]
    		ifFalse: 
    			[aCollection := ChemoJunUtility selectDirectoryInChemoJunSampleData 
    						ifNil: [Array new]
    						ifNotNil: [:it | (Array with: it) yourself]].
    	aPoint := 100 @ 100.
    	aCollection do: 
    			[:aDirectory | 
    			(ChemoJunMoleculeCatalogue directory: aDirectory) openAt: aPoint.
    			aPoint := aPoint + (20 @ 20).
    			JunSensorUtility shiftDown ifTrue: [^self]]

11. openMoleculeViewer [menu messages]
    

    	ChemoJunMoleculeViewer open

12. openMoleculeViewerData [menu messages]
    

    	| aCollection aPoint |
    	JunSensorUtility shiftDown 
    		ifTrue: 
    			[aCollection := ChemoJunUtility selectMolfilesInChemoJunSampleData 
    						ifNil: [Array new]
    						ifNotNil: [:it | it yourself]]
    		ifFalse: 
    			[aCollection := ChemoJunUtility selectMolfileInChemoJunSampleData 
    						ifNil: [Array new]
    						ifNotNil: [:it | (Array with: it) yourself]].
    	aPoint := 100 @ 100.
    	aCollection do: 
    			[:aFilename | 
    			(ChemoJunMoleculeViewer fileName: aFilename) openAt: aPoint.
    			aPoint := aPoint + (20 @ 20).
    			JunSensorUtility shiftDown ifTrue: [^self]]

13. openWebPage [menu messages]
    

    	JunURL 
    		browse: (JunEnvironmentUtility environmentVariableAt: 'ChemoJunWebPageUri'
    				ifAbsent: ['http://research.nii.ac.jp/~cheminfo/ChemoJun/' yourself])

class methods:

1. copyright [copyright]
   

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

2. defaultSystemClass [defaults]
   

   	^ChemoJunSystem

3. example1 [examples]
   

   	"ChemoJunLauncher example1."
   
   	ChemoJunLauncher open

4. initialize [class initialization]
   

   	"ChemoJunLauncher initialize."
   
   	super initialize

5. install [class initialization]
   

   	"ChemoJunLauncher install."
   
   	"It is necessary to hook at installation."
   
   	super install

6. menuBar [resources]
   

   	"Tools.MenuEditor new openOnClass: self andSelector: #menuBar"
   
   	<resource: #menu>
   	^#(#{UI.Menu} #(
   			#(#{UI.MenuItem} 
   				#rawLabel: 
   				#(#{Kernel.UserMessage} 
   					#key: #chemoJun_Tools 
   					#defaultString: 'Tools' ) 
   				#submenu: #(#{UI.Menu} #(
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #chemoJun_Molecular_Viewer 
   								#defaultString: 'Molecular Viewer' ) 
   							#value: #openMoleculeViewer ) 
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #chemoJun_Molecular_Viewer___Select_Data 
   								#defaultString: 'Molecular Viewer - Select Data' ) 
   							#value: #openMoleculeViewerData ) 
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #chemoJun_Chemical_Media_Navigator 
   								#defaultString: 'Chemical Media Navigator' ) 
   							#value: #openChemicalMediaNavigator ) 
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #chemoJun_Molecular_Catalogue 
   								#defaultString: 'Molecular Catalogue' ) 
   							#value: #openMoleculeCatalogue ) 
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #chemoJun_Molecular_Catalogue___Select_Data 
   								#defaultString: 'Molecular Catalogue - Select Data' ) 
   							#value: #openMoleculeCatalogueData ) ) #(2 1 2 ) nil ) ) 
   			#(#{UI.MenuItem} 
   				#rawLabel: 
   				#(#{Kernel.UserMessage} 
   					#key: #jun_Misc 
   					#defaultString: 'Misc' ) 
   				#submenu: #(#{UI.Menu} #(
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #jun_Manual 
   								#defaultString: 'Manual' ) 
   							#value: #browseManual ) 
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #chemoJun_About 
   								#defaultString: 'About' ) 
   							#value: #openAbout ) 
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #jun_Credits 
   								#defaultString: 'Credits' ) 
   							#value: #openCredits ) 
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #jun_Web_Page 
   								#defaultString: 'Web Page' ) 
   							#value: #openWebPage ) 
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #jun_E_mail 
   								#defaultString: 'E-mail' ) 
   							#value: #openEmail ) 
   						#(#{UI.MenuItem} 
   							#rawLabel: 
   							#(#{Kernel.UserMessage} 
   								#key: #jun_Jun_Launcher 
   								#defaultString: 'Jun Launcher' ) 
   							#value: #openJunLauncher ) ) #(1 4 1 ) nil ) ) ) #(2 ) nil ) decodeAsLiteralArray

7. system [copyright]
   

   	^'ChemoJun'

8. version [copyright]
   

   	^'050'