--- 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:[