--- a/patches Fri May 19 06:03:53 1995 +0200
+++ b/patches Wed Aug 16 17:38:28 1995 +0200
@@ -22,7 +22,7 @@
Project notNil ifTrue:[
Project setDefaultProject.
- Project current packageName:#'autoloaded-classes'.
+ Project current packageName:#'autoloaded'.
].
"/
@@ -35,16 +35,16 @@
requiredClasses do:[:s |
(Smalltalk at:s) isNil ifTrue:[
- Transcript showCr:'loading ' , s , ' ...'.
+ ('loading ' , s , ' ...') infoPrintNL.
Smalltalk fileInClass:s initialize:true lazy:false silent:true
]
].
!
|optionalClasses optionalGames optionalDemos optionalApps optionalBench
- optionalTools optionalViews optionalImage compat optionalPro|
+ optionalTools optionalViews optionalImage compat optionalPro optionalUI|
-Transcript showCr:'installing autoloaded classes ...'.
+'installing autoloaded classes ...' infoPrintNL.
(Smalltalk at:#View) isNil ifTrue:[
optionalViews := #(
@@ -83,6 +83,10 @@
PopUpView
ShadowView
Colormap
+ DeviceHandle
+ DeviceFormHandle
+ DeviceViewHandle
+ DisplayObject
).
optionalViews do:[:s |
"install if not already compiled-in"
@@ -107,8 +111,10 @@
optionalDemos := #(
Animation GlobeDemo RoundGlobe
- PenDemo CommanderDemo Calendar
- GLTeapotDemo GLTeapotView
+ PenDemo CommanderDemo FractalPlantsDemo
+ FractalPatternsDemo
+ Calendar
+ GLTeapotDemo GLTeapotView GLXYGraph
GLPlaneDemoView1 GLPlaneDemoView2
GLSphereDemoView1 GLSphereDemoView2
GLObjectDemoView GLCubeDemoView GLTetraDemoView
@@ -141,9 +147,7 @@
Clock ClockView RoundClock RoundClock2
- VocPanel VocBrowser VocView SoundStream
-
- Keyword KeywordSet ManualBrowser ManualMaker ManualView
+ VocPanel VocView SoundStream
).
optionalTools := #(
@@ -155,10 +159,16 @@
AboutBox
EventMonitor ProcessMonitor MemoryMonitor MemoryUsageView
+
+ "/ highly EXPERIMENTAL
+
+ XtInterface WidgetWrapper ScrollWidgetWrapper
+ XtTopLevel XtBox XtHTML
+ XtWidgetWithLabelAndAction
).
optionalViews := #(
- Scale HorizontalScale GLXView Point3D SliderBox
+ Scale HorizontalScale GLXView GLPoint3D SliderBox
DialogBox OptionBox TextBox
InputView Ruler VerticalRuler TextRuler
Slider HorizontalSlider
@@ -171,8 +181,7 @@
TwoColumnTextView DiffTextView
FilenameEditField FilenameEnterBox
-
- HelpView
+ ImageSelectionBox
ScreenSaver LightInTheDark LightInTheDark2
@@ -187,7 +196,7 @@
ListEntry MultiColListEntry ColoredListEntry
ViewScroller TabSpecRuler
- ProgressIndicator
+ ProgressIndicator AnimatedLabel ActionWaitBox
).
optionalPro := #(
@@ -196,12 +205,18 @@
Builder BuilderView BuilderTreeView
BuilderClassBox BuilderVariablesBox
- UIBuilder UIPainter UIMenuEditor
-
SelectionInHierarchy SelectionInHierarchyView
HierarchyNode
).
+optionalUI := #(
+ UIBuilder UIPainter UIMenuEditor
+
+ UISpecification
+ ActionButtonSpec CheckBoxSpec FullSpec InputFieldSpec
+ LabelSpec SequenceViewSpec UnknownSpec WindowSpec
+ ).
+
"/ 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
@@ -257,8 +272,9 @@
RDoItServer
HandlerCollection
- Plug Random
+ Plug Random MessageSend MessageChannel
MessageTally CallChain ProfileTree
+ GraphicsAttributes
RecursionLock Promise
).
@@ -292,7 +308,7 @@
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
- category:'autoloaded-Games & Demos'
+ category:'autoloaded-Games'
]
].
@@ -303,7 +319,7 @@
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
- category:'autoloaded-Games & Demos'
+ category:'autoloaded-Demos'
]
].
@@ -363,6 +379,18 @@
]
].
+optionalUI do:[:s |
+ "install if not already compiled-in"
+
+ (Smalltalk at:s) isNil ifTrue:[
+ Autoload subclass:s
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'autoloaded-UI'
+ ]
+].
+
"/
"/ install all widget & tool classes as autoloaded
"/ for compact systems (which have no GUI classes compiled in) ...
@@ -437,19 +465,24 @@
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
- category:'autoloaded-Classes'.
+ category:'autoloaded-Views'.
].
]
].
"/
-"/ additional compatibility classes
+"/ additional compatibility classes (many are empty dummies to allow fileIn at least)
"/
compat := #(
BitBlt Pen Commander DrawingPen
OpaqueForm
+ "/
+ "/ the path stuff is no longer compatible
+ "/ with ST-80 (i.e. dropped in ST; different implementation in VW)
+ "/
AbstractPath Path
- Arc Circle Curve LinearFit Arrow Line Spline Ellipse
+ Arc DCircle Curve LinearFit Arrow Line Spline Ellipse
+
ActionMenu
FillInTheBlank
KeyedSet
@@ -460,13 +493,11 @@
ControllerWithMenu
ComposedText
ComposedTextView
+ CompositeView SubCanvas
ClassOrganizer
ApplicationController
- SocketAddress
- UDSocketAddress
- IPSocketAddress
- UnixProcess
- CEnvironment
+ SocketAddress UDSocketAddress IPSocketAddress
+ UnixProcess CEnvironment
Layout LayoutOrigin LayoutFrame
Icon Mask CachedImage
CoveragePalette
@@ -475,9 +506,12 @@
SimpleDialog
SourceFileManager
ValueModel ValueHolder BufferedValueHolder TriggerValue
- StringHolder SelectionInList
+ StringHolder SelectionInList MultiSelectionInList SelectionInTable
+ RowAdaptor SimpleBorder TableAdaptor TableInterface TwoDList
PrintConverter
- PluggableAdaptor ProtocolAdaptor AspectAdaptor
+ PluggableAdaptor ProtocolAdaptor AspectAdaptor UpdateAdaptor
+ CodeStream MethodNode NullScope ProgramNodeBuilder
+ MenuItem TimestampPrintPolicy
).
compat do:[:s |
@@ -544,4 +578,4 @@
"/ the following patches where added by the changesBrowsers 'make change a patch'
"/ function ...
"/
-Transcript showCr:'installing patches ...' !
+'installing patches ...' infoPrintNL !