-
browseManual [menu messages]
JunURL browse: (ChemoJunUtility manualUriStringConstruct: 'index.html')
-
changeFont [menu messages]
ChemoJunSystem changeFont
-
defaultWindowLabel [defaults]
^(#chemoJun_ChemoJun_Launcher >> 'ChemoJun Launcher') asString
-
openAbout [menu messages]
ChemoJunSystem about
-
openChemicalMediaNavigator [menu messages]
ChemoJunChemicalMediaNavigator open
-
openCredits [menu messages]
ChemoJunCredits show
-
openEmail [menu messages]
JunURL
browse: (JunEnvironmentUtility environmentVariableAt: 'ChemoJunMailUri'
ifAbsent: ['mailto:cheminfo@nii.ac.jp' yourself])
-
openJunLauncher [menu messages]
JunLauncher install
-
openMoleculeCatalogue [menu messages]
ChemoJunMoleculeCatalogue open
-
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]]
-
openMoleculeViewer [menu messages]
ChemoJunMoleculeViewer open
-
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]]
-
openWebPage [menu messages]
JunURL
browse: (JunEnvironmentUtility environmentVariableAt: 'ChemoJunWebPageUri'
ifAbsent: ['http://research.nii.ac.jp/~cheminfo/ChemoJun/' yourself])