equal
deleted
inserted
replaced
550 "/ some ST80 name aliases |
550 "/ some ST80 name aliases |
551 "/ (actually, much more is needed - this is just a start ...) |
551 "/ (actually, much more is needed - this is just a start ...) |
552 "/ |
552 "/ |
553 (cls := Smalltalk at:#StandardSystemView) notNil ifTrue:[ |
553 (cls := Smalltalk at:#StandardSystemView) notNil ifTrue:[ |
554 Smalltalk at:#ScheduledWindow put:cls |
554 Smalltalk at:#ScheduledWindow put:cls |
|
555 Smalltalk at:#SystemWindow put:cls |
555 ]. |
556 ]. |
556 (cls := Smalltalk at:#Socket) notNil ifTrue:[ |
557 (cls := Smalltalk at:#Socket) notNil ifTrue:[ |
557 Smalltalk at:#UnixSocketAccessor put:cls. |
558 Smalltalk at:#UnixSocketAccessor put:cls. |
558 Smalltalk at:#SocketAccessor put:cls. |
559 Smalltalk at:#SocketAccessor put:cls. |
559 Smalltalk at:#SocketAccessorByAddress put:cls. |
560 Smalltalk at:#SocketAccessorByAddress put:cls. |