Hi torsten
you posted the following and I wanted to know whether we should not
add something in the shutdown list.
Stef
initialize
"SystemDictionary initialize"
| oldList |
oldList := StartUpList.
StartUpList := OrderedCollection new.
"These get processed from the top down..."
#(
Delay
DisplayScreen
Cursor
InputEventFetcher
ProcessorScheduler "Starts low space watcher and bkground."
LanguageEnvironment
FileDirectory "Enables file stack dump and opens sources."
NaturalLanguageTranslator
ShortIntegerArray
ShortRunArray
CrLfFileStream
Clipboard
) do:[:clsName|
Smalltalk at: clsName ifPresent:[:cls| Smalltalk
addToStartUpList:
cls].
].
oldList ifNotNil: [oldList do: [:className | Smalltalk at: className
ifPresent: [:theClass |
Smalltalk addToStartUpList: theClass]]].
#(
ImageSegment
PasteUpMorph
"ControlManager"
) do:[:clsName|
Smalltalk at: clsName ifPresent:[:cls| Smalltalk
addToStartUpList:
cls].
].
oldList := ShutDownList.
ShutDownList := OrderedCollection new.
"These get processed from the bottom up..."
#(
Delay
DisplayScreen
InputEventFetcher
Form
"ControlManager"
PasteUpMorph
StrikeFont
Color
FileDirectory
SoundPlayer
HttpUrl
Password
PWS
MailDB
ImageSegment
) do:[:clsName|
Smalltalk at: clsName ifPresent:[:cls| Smalltalk
addToShutDownList:
cls].
].
oldList ifNotNil: [oldList reverseDo: [:className | Smalltalk at:
className
ifPresent: [:theClass |
Smalltalk addToShutDownList: theClass]]].
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
