--- 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) ...