--- a/Smalltalk.st Sun Dec 27 19:45:23 2009 +0000
+++ b/Smalltalk.st Sun Dec 27 20:16:54 2009 +0000
@@ -2942,7 +2942,7 @@
2 entries: 1st: the best (longest) match
2nd: collection consisting of matching names"
- ^ DoWhatIMeanSupport globalNameCompletion:aPartialGlobalName inEnvironment:self
+ ^ DoWhatIMeanSupport globalNameCompletion:aPartialGlobalName inEnvironment:self match:true
"
Smalltalk globalnameCompletion:'Arr'
@@ -3538,7 +3538,9 @@
].
].
- self hideSplashWindow. "/ if there is one, its now time to hide it
+ (StartupClass perform:#keepSplashWindowOpen ifNotUnderstood:[false]) ifFalse:[
+ self hideSplashWindow. "/ if there is one, its now time to hide it
+ ].
"
if view-classes exist, start dispatching;
@@ -3891,6 +3893,12 @@
idx := CommandLineArguments indexOf:'-e'.
idx == 0 ifTrue:[
idx := CommandLineArguments indexOf:'--execute'.
+ idx == 0 ifTrue:[
+ idx := CommandLineArguments indexOf:'--script'.
+ idx ~~ 0 ifTrue:[
+ SilentLoading := true.
+ ].
+ ].
].
idx ~~ 0 ifTrue:[
arg := CommandLineArguments at:idx + 1.
@@ -5659,9 +5667,9 @@
inStream := streamArg.
inStream isNil ifTrue:[^ false].
- inStream := ChangeSet isNil
+ inStream := EncodedStream isNil
ifTrue:[ inStream ]
- ifFalse:[ ChangeSet decodedStreamFor:inStream ].
+ ifFalse:[ EncodedStream decodedStreamFor:inStream ].
lazy notNil ifTrue:[wasLazy := Compiler compileLazy:lazy].
silent notNil ifTrue:[wasSilent := self silentLoading:silent].
@@ -7443,10 +7451,11 @@
!Smalltalk class methodsFor:'documentation'!
version
- ^ '$Id: Smalltalk.st 10486 2009-12-27 18:19:51Z vranyj1 $'
+ ^ '$Id: Smalltalk.st 10489 2009-12-27 20:16:54Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.914 2009/11/18 17:57:52 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.919 2009/12/18 10:16:17 cg Exp §'
! !
+