[Pkg] Packages: Packages-Core-kph.48.mcz

[squeaksource-noreply at iam.unibe.ch]

A new version of Packages-Core was added to project Packages:
http://www.squeaksource.com/Packages/Packages-Core-kph.48.mcz

==================== Summary ====================

Name: Packages-Core-kph.48
Author: kph
Time: 7 July 2008, 10:17:51 pm
UUID: cc334036-e53b-43b4-ae76-e13c227f56f1
Ancestors: Packages-Core-kph.47

add +log to the launcher options

=============== Diff against Packages-Core-kph.47 ===============

Item was changed:
  ----- Method: Packages class>>launchWith: (in category 'launcher') -----
  launchWith: params
  
  	| packagesClass task runLevel | 
  
  	packagesClass := self current.
  
  	runLevel := #run.
  	
   	params at: 'B' ifPresent: [ :v | params at: 'BETA' put: v ].
   	params at: 'U' ifPresent: [ :v | params at: 'UNLOAD' put: v ].
   	params at: 'L' ifPresent: [ :v | params at: 'LOAD' put: v ].
   	params at: 'S' ifPresent: [ :v | params at: 'STEPPING' put: v ].
   	params at: 'I' ifPresent: [ :v | params at: 'INTERACTIVELY' put: v ].
   	params at: 'Q' ifPresent: [ :v | params at: 'QUIETLY' put: v ].
  
  	params at: 'BETA' ifPresent: [ :v | 
  		v ifTrue: [ packagesClass := self beta ].
  	].
  
  	params at: 'LOAD' ifPresent: [ :v | 
  		task := packagesClass collection: (v splitOn: ';')		
  	].
  
  	params at: 'UNLOAD' ifPresent: [ :v | 
  		task := SakeTask collection: ((v splitOn: ';') collect: [ :ea | (self named: ea) unload ])	
  	].
  
  	params at: 'STEPPING' ifPresent: [ :v | 
  		v ifTrue: [ runLevel := #runStepping ].
  	].
  
  	params at: 'QUIETLY' ifPresent: [ :v | 
  		v ifTrue: [ runLevel := #runQuietly ].
  	].
  	params at: 'INTERACTIVELY' ifPresent: [ :v | 
  		v ifTrue: [ runLevel := #runInteractively ].
  	].
+  	params at: 'LOG' ifPresent: [ :v | 
+ 		v ifTrue: [ runLevel := #runLogging ].
+ 	].
   
  	task perform: runLevel.!