Smalltalk.st
branchjv
changeset 17742 3fef0ed4c2d5
parent 17739 a9d8f3d46502
child 17743 7f5137d3db85
--- 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 §'
 ! !
 
+