smalltalk.rc
changeset 24 1b6ff7a7839e
parent 20 af1e702d74d0
child 25 463dd2575719
--- a/smalltalk.rc	Sun Apr 02 13:48:09 1995 +0200
+++ b/smalltalk.rc	Fri May 19 06:03:53 1995 +0200
@@ -145,11 +145,19 @@
  *"
 Smalltalk fileIn:'host.rc'.
 
+"
+ set the package to some useful default
+"
+Project notNil ifTrue:[
+    Project setDefaultProject.
+    Project current packageName:#'private'.
+].
 "*
  * you can add your very private things here - if its put into HOME/.smalltalk,
  * each user can add his/her private things even when everything else is
  * shared
  *"
+Transcript showCr:'reading private.rc ...'.
 Smalltalk fileIn:'private.rc'.
 
 "*