ChemoJunCredits

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
        • JunBulletinBoard
          • ChemoJunCredits

instance variables:

class instance variables:

class variables:

pool variables:

instance methods:

class methods:

1. copyright [copyright]
   

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

2. defaultBackgroundColor [defaults]
   

   	^ColorValue white

3. defaultBulletinHeight [defaults]
   

   	^36

4. show [instance creation]
   

   	"ChemoJunCredits show."
   
   	| aModel aString aView aDecorator aWindow displayArea launcherWindow launcherModel |
   	aModel := ChemoJunCredits new.
   	aString := JunBulletinBoard 
   				convertToFlatString: (#chemoJun_CreditString 
   						>> 'Copyright 2002-2006 National Institute of Informatics, Research Organization of Information and Systems') 
   							asString.
   	aString with: (1 to: aString size)
   		do: 
   			[:aCharacter :anIndex | 
   			aModel color: (ColorValue 
   						hue: 0
   						saturation: 0
   						brightness: 0).
   			aModel add: (String with: aCharacter)].
   	aView := JunBulletinBoardView model: aModel.
   	aDecorator := aView defaultDecorator.
   	aWindow := ScheduledWindow 
   				model: aModel
   				label: (#jun_Credits >> 'Credits') asString
   				minimumSize: aView defaultWindowSize.
   	aWindow component: aDecorator.
   	displayArea := nil.
   	launcherWindow := nil.
   	launcherModel := ScheduledControllers scheduledControllers detect: 
   					[:c | 
   					launcherWindow := c view.
   					c model isKindOf: ChemoJunLauncher]
   				ifNone: [nil].
   	launcherModel notNil 
   		ifTrue: 
   			[| origin extent |
   			origin := launcherWindow displayBox bottomLeft + (0 @ 20).
   			extent := launcherWindow displayBox width 
   						@ aModel class defaultBulletinHeight.
   			displayArea := origin extent: extent.	"aWindow maximumSize: displayArea extent"
   			aWindow minimumSize: displayArea extent].
   	displayArea isNil 
   		ifTrue: 
   			[aWindow 
   				openWithExtent: aWindow minimumSize x @ aModel class defaultBulletinHeight]
   		ifFalse: [aWindow openIn: displayArea].
   	aView displaySpeed: 4.
   	^aModel

5. system [copyright]
   

   	^'ChemoJun'

6. version [copyright]
   

   	^'050'