*** empty log message ***
authorclaus
Sun, 26 Mar 1995 22:20:47 +0200
changeset 21 30eaa11da086
parent 20 af1e702d74d0
child 22 dc03a7eda9dd
*** empty log message ***
Make.proto
patches
private.rc
--- a/Make.proto	Sat Mar 25 23:26:21 1995 +0100
+++ b/Make.proto	Sun Mar 26 22:20:47 1995 +0200
@@ -58,7 +58,7 @@
 SOURCEDIRS= \
 	$(LIBBASICDIR) $(LIBBASIC2DIR) $(LIBCOMPDIR) $(LIBVIEWDIR) $(LIBWIDGDIR) \
 	$(LIBWIDG2DIR) $(LIBWIDG3DIR) $(LIBTOOLDIR) $(CLIENTDIR)/[A-Z]*          \
-	$(LIBTABLEDIR) $(OTHERLIBDIRS)                                           \
+	$(LIBTABLEDIR) $(LIBPRODIR) $(OTHERLIBDIRS)                              \
 	$(TOP)/fileIn $(TOP)/libtomcat $(TOP)/goodies $(TOP)/goodies/*           \
 	$(TOP)/goodies/*/*
 
--- a/patches	Sat Mar 25 23:26:21 1995 +0100
+++ b/patches	Sun Mar 26 22:20:47 1995 +0200
@@ -33,7 +33,7 @@
 "/ machine code for them ...
 
 |optionalClasses optionalGames optionalDemos optionalApps optionalBench 
- optionalTools optionalViews optionalImage compat requiredClasses|
+ optionalTools optionalViews optionalImage compat requiredClasses optionalPro|
 
 "/
 "/ the following are required (either compiled or interpreted) ...
@@ -101,9 +101,6 @@
 		 ).
 
 optionalTools := #(
-		  Builder BuilderView BuilderTreeView
-		  BuilderClassBox BuilderVariablesBox
-
 		  SystemBrowser DebugView FileBrowser DirectoryBrowser
 		  ProjectView Launcher Workspace ChangesBrowser
 		  InspectorView OrderedCollectionInspectorView ContextInspectorView
@@ -122,7 +119,7 @@
 		  VariableHorizontalPanel
 		  FontPanel FramedBox FileSelectionBox FileSaveBox
 		  RadioButton RadioButtonGroup "MotionButton MenuButton"
-		  PullDownMenu
+		  PullDownMenu CheckBox
 
 		  TwoColumnTextView DiffTextView 
 		  FilenameEditField FilenameEnterBox
@@ -140,10 +137,15 @@
 
 		  TabulatorSpecification MultiColListEntry
 		  ViewScroller TabSpecRuler
-
-		  ActiveHelpView ActiveHelp EventListener
 		 ).
 
+optionalPro := #(
+		  ActiveHelpView ActiveHelp EventListener
+
+		  Builder BuilderView BuilderTreeView
+		  BuilderClassBox BuilderVariablesBox
+		 ).
+        
 "/ notice, that it does not really make sense to
 "/ run Benchmarks in interpreted mode ..."
 "/ If you really weant to measure the system, include (load) compiled
@@ -199,6 +201,7 @@
 		  RDoItServer
 
 		  HandlerCollection VariableArray StringCollection
+		  Plug
 	     ).
 
 optionalViews do:[:s |
@@ -289,6 +292,18 @@
     ]
 ].
 
+optionalPro do:[:s |
+    "install if not already compiled-in"
+
+    (Smalltalk at:s) isNil ifTrue:[
+	Autoload subclass:s
+	     instanceVariableNames:''
+	     classVariableNames:''
+	     poolDictionaries:''
+	     category:'autoloaded-Classes'
+    ]
+].
+
 "/
 "/ install all widget & tool classes as autoloaded
 "/ for compact systems (which have no GUI classes compiled in) ...
--- a/private.rc	Sat Mar 25 23:26:21 1995 +0100
+++ b/private.rc	Sun Mar 26 22:20:47 1995 +0200
@@ -11,11 +11,14 @@
 
 "
  add my private directory to the searchPath ...
+ This does not make sense in your environment.
+ However, I leave the code here to show how its done.
 "
 OperatingSystem getLoginName = 'claus' ifTrue:[
     Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/not_delivered'.
     Smalltalk systemPath addFirst:'/phys/clam/claus/smalltalk/private_classes'.
     Smalltalk systemPath addFirst:'/phys/clam/claus/work/fileIn/not_delivered'.
+    Smalltalk systemPath addFirst:'/phys/clam/claus/work/libpro'.
 ].
 
 "
@@ -59,7 +62,8 @@
  this is a temporary kludge: specify the flags to be used
  when compiling via stc. Primitive compilation (from within the browser)
  is still experimental. So you better not care (yet)
- BTW: its only supported on UnixWare and SGI anyway.
+ BTW: its only supported on UnixWare and SGI anyway 
+ (and not in the free demo release).
 "
 OperatingSystem getOSType = 'irix' ifTrue:[
     Compiler stcCompilationFlags:'-I../../include +optinline -DGLX'.
@@ -82,6 +86,8 @@
 "
  another experimental (and a secret)
  Playing around with GC parameters (aging params)
+ for now, this is experimental. Once the best numbers
+ have been found, I'll hardwire them and document it ...
 "
 |a|
 ObjectMemory newSpaceSize > (500*1024) ifTrue:[