Miguel Enrique Cobá Martinez wrote:
> I prefer to use PharoCore for deployment and not worry about trimming a
> squeak image when loading several images on production. The squeak
> stable image is to big, and you must update it and then trimming it.

Out of curiosity, what have you been trimming in the past for your
production deployments?

> PS. to the "against-recommending-pharo" souls, this is not a pharo
> advertisement, just I think that Magma is as stable and solid on Pharo
> as is on Squeak, no matter its short life.

I think it may be helpful to phrase your comments a bit more carefully.
Keep in mind that the split between Pharo and Squeak has left just as
many people wounded here as it has in the Pharo world. There is no need
to rub it in every time you post here. A bit caution is useful since you
don't know the history and the individuals involved.

Cheers,
    - Andreas

El mar, 10-11-2009 a las 12:02 -0800, Ross Boylan escribió:
> On Sun, 2009-11-08 at 10:52 -0800, RossBoylan@... wrote:
> > I tried to install Citezen-All-onierstrasz.18 from
> > 'http://www.squeaksource.com/Citezen' but after I hit load the hourglass
> > just sits there (waited several minutes).  I've pulled other packages
> > successfully from squeaksource, as recently as yesterday.
> For the record, the problem is cleared up now.  I assume the cause was
> the hang-up of squeaksource reported by Nicolas.
>
> I prefer to use squeak because getting magma going under pharo has its
> own set of challenges--I'm not even sure I ever got it to work.

Umm, I haven't had any problem and I am using it daily on production.
What problem do you have to got it work on Pharo?

> magma
> only recently added pharo support, so things are probably more likely to
> go wrong there.

That is a subjective opinion. As said before I haven't had any problem
with magma on pharo.


> Finally, I'm not crazy about forks and want to help the
> mainline stay healthy.

I prefer to use PharoCore for deployment and not worry about trimming a
squeak image when loading several images on production. The squeak
stable image is to big, and you must update it and then trimming it.
That is not the case with PharoCore. In it I just load the packages I
want and nothing else. Perfect for deployment.

Cheers
PS. to the "against-recommending-pharo" souls, this is not a pharo
advertisement, just I think that Magma is as stable and solid on Pharo
as is on Squeak, no matter its short life.


>
> Ross
>
>
--
Miguel Cobá
http://miguel.leugim.com.mx

On Sun, 2009-11-08 at 10:52 -0800, RossBoylan@... wrote:
> I tried to install Citezen-All-onierstrasz.18 from
> 'http://www.squeaksource.com/Citezen' but after I hit load the hourglass
> just sits there (waited several minutes).  I've pulled other packages
> successfully from squeaksource, as recently as yesterday.
For the record, the problem is cleared up now.  I assume the cause was
the hang-up of squeaksource reported by Nicolas.

I prefer to use squeak because getting magma going under pharo has its
own set of challenges--I'm not even sure I ever got it to work.  magma
only recently added pharo support, so things are probably more likely to
go wrong there.  Finally, I'm not crazy about forks and want to help the
mainline stay healthy.

Ross

Ken G. Brown wrote:
> Perhaps some will find this of interest in relation to the current discussion
of the vision for Squeak:
>
> Squeak: Open Personal Computing and Multimedia
> <http://coweb.cc.gatech.edu/squeakbook/>
>
> The Future of Squeak - Dan Shafer
> <http://coweb.cc.gatech.edu/squeakbook/uploads/futuresqueak2.pdf>

This is a great text and very relevant to the discussion we should be
having. Though the book came out in 2001, I imagine that these words
were written earlier - before the full impact of the bursting of the
Internet bubble was felt. That left many Squeakers looking for jobs, so
naturally the pace of development slowed down a bit compared to what was
predicted. I would say that if you consider things like VPRI's "Steps",
Cobalt/Teleplace and Dan's Lively Kernel as part of the "greater Squeak"
then most of what was described in this paper has come to pass.

What's next?

-- Jecel

David T. Lewis wrote:
> On Mon, Nov 09, 2009 at 08:56:01PM -0800, Andreas Raab wrote:
>> David T. Lewis wrote:
>>
>>> I consider these changes somewhat risky, so I would appreciate if anyone can
>>> review them and speak up if they cause problems. In particular, the methods
>>> Project>>enterForEmergencyRecovery and Project>>enter:revert:saveForRevert:
>>> could stand a good review.
>> I think we should nuke enterForEmergencyRecovery and those parts in
>> Project that deal with isolated changes. This is one of the projects
>> that never got to a conclusion and there is no point in keeping all
>> these hooks for stuff that is unused. If you want to keep the interface,
>> just raise an error if you ever see a revert == true or so.
>
> Oh, good, that explains it. I was rather nervous about modifying a method
> when I did not even know what it was being used for.

It was used in an experimental project that tried to isolate changes
done in a project by un-applying them when you would enter another
project. Unfortunately, the approach taken (making copies of the methods
and applying/unapplying them when entering leaving projects) was fraught
with perils and didn't work very well in practice. So nuke it ;-)

Cheers,
    - Andreas

On Mon, Nov 09, 2009 at 08:56:01PM -0800, Andreas Raab wrote:
> David T. Lewis wrote:
>
> >I consider these changes somewhat risky, so I would appreciate if anyone can
> >review them and speak up if they cause problems. In particular, the methods
> >Project>>enterForEmergencyRecovery and Project>>enter:revert:saveForRevert:
> >could stand a good review.
>
> I think we should nuke enterForEmergencyRecovery and those parts in
> Project that deal with isolated changes. This is one of the projects
> that never got to a conclusion and there is no point in keeping all
> these hooks for stuff that is unused. If you want to keep the interface,
> just raise an error if you ever see a revert == true or so.

Oh, good, that explains it. I was rather nervous about modifying a method
when I did not even know what it was being used for.

Dave

Andreas Raab uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-ar.225.mcz

==================== Summary ====================

Name: Morphic-ar.225
Author: ar
Time: 9 November 2009, 10:39:43 am
UUID: 700028d2-c710-db49-acbd-e4697d4ddbfa
Ancestors: Morphic-dtl.224

Exclude the scrollbar from minExtent computations when they have been turned off
explicitly. This avoids input fields to show up like text areas in some
situations.

=============== Diff against Morphic-dtl.224 ===============

Item was changed:
   ----- Method: ScrollPane>>minScrollbarExtent (in category 'geometry') -----
   minScrollbarExtent
  	 "Answer the minimum extent occupied by the receiver..
+  It is assumed the if the receiver is sized to its minimum both scrollbars
will be used (and visible) unless they have been turned off explicitly.
-  It is assumed the if the receiver is sized to its minimum both scrollbars
will be used (and visible).
  	 This makes the behaviour also more predictable."
+  ^((self valueOfProperty: #noVScrollBarPlease ifAbsent: [false])
+ 	 ifTrue:[0@0] ifFalse:[scrollBar minExtent])  +
+  ((self valueOfProperty: #noHScrollBarPlease ifAbsent: [false])
+ 	 ifTrue:[0@0] ifFalse:[hScrollBar minExtent])!
-
-  ^ scrollBar minExtent + hScrollBar minExtent!

David T. Lewis wrote:
> I have committed a set of changes continue the factoring of Project into
> MVC and Morphic subclasses, hopefully aligned with the direction that
> Andreas has set forth to achieve an unloadable MVC package.

Yes, absolutely!

> I consider these changes somewhat risky, so I would appreciate if anyone can
> review them and speak up if they cause problems. In particular, the methods
> Project>>enterForEmergencyRecovery and Project>>enter:revert:saveForRevert:
> could stand a good review.

I think we should nuke enterForEmergencyRecovery and those parts in
Project that deal with isolated changes. This is one of the projects
that never got to a conclusion and there is no point in keeping all
these hooks for stuff that is unused. If you want to keep the interface,
just raise an error if you ever see a revert == true or so.

Cheers,
    - Andreas

> For background, these two methods handle entry into a project from another
> project, possibly involving transition from MVC or Morphic and vice versa.
> The conditional logic (#isMorphic and #isMorph) in the original method
> implementations has been replaced by methods in the MVCProject and
> MorphicProject subclasses, and these subclass methods are invoked through
> reference to self (the project being entered) or class variable CurrentProject
> (the prior project from which we are exiting).
>
> The updates in Squeak trunk are System-dtl.163, Morphic-dtl.224, and
> ST-80-dtl.64. Note that MVC is somewhat broken in trunk, so the objective
> here is to not make it any more badly broken.
>
> Thanks,
> Dave
>
> On Tue, Nov 10, 2009 at 12:58:14AM +0000, commits@... wrote:
>> David T. Lewis uploaded a new version of System to project The Trunk:
>> http://source.squeak.org/trunk/System-dtl.163.mcz
>>
>> ==================== Summary ====================
>>
>> Name: System-dtl.163
>> Author: dtl
>> Time: 9 November 2009, 9:55:32 am
>> UUID: 625c3b61-dd78-4cd5-a60f-dc90ee753144
>> Ancestors: System-dtl.162
>>
>> Continue factoring Project into MVCProject and MorphicProject. Add method
category 'enter' for methods associated with entering one project from another,
including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is
significantly modified. Changes are in packages System, Morphic, and ST-80.
>>
>
>

I have committed a set of changes continue the factoring of Project into
MVC and Morphic subclasses, hopefully aligned with the direction that
Andreas has set forth to achieve an unloadable MVC package.

I consider these changes somewhat risky, so I would appreciate if anyone can
review them and speak up if they cause problems. In particular, the methods
Project>>enterForEmergencyRecovery and Project>>enter:revert:saveForRevert:
could stand a good review.

For background, these two methods handle entry into a project from another
project, possibly involving transition from MVC or Morphic and vice versa.
The conditional logic (#isMorphic and #isMorph) in the original method
implementations has been replaced by methods in the MVCProject and
MorphicProject subclasses, and these subclass methods are invoked through
reference to self (the project being entered) or class variable CurrentProject
(the prior project from which we are exiting).

The updates in Squeak trunk are System-dtl.163, Morphic-dtl.224, and
ST-80-dtl.64. Note that MVC is somewhat broken in trunk, so the objective
here is to not make it any more badly broken.

Thanks,
Dave

On Tue, Nov 10, 2009 at 12:58:14AM +0000, commits@... wrote:
> David T. Lewis uploaded a new version of System to project The Trunk:
> http://source.squeak.org/trunk/System-dtl.163.mcz
>
> ==================== Summary ====================
>
> Name: System-dtl.163
> Author: dtl
> Time: 9 November 2009, 9:55:32 am
> UUID: 625c3b61-dd78-4cd5-a60f-dc90ee753144
> Ancestors: System-dtl.162
>
> Continue factoring Project into MVCProject and MorphicProject. Add method
category 'enter' for methods associated with entering one project from another,
including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is
significantly modified. Changes are in packages System, Morphic, and ST-80.
>

David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.163.mcz

==================== Summary ====================

Name: System-dtl.163
Author: dtl
Time: 9 November 2009, 9:55:32 am
UUID: 625c3b61-dd78-4cd5-a60f-dc90ee753144
Ancestors: System-dtl.162

Continue factoring Project into MVCProject and MorphicProject. Add method
category 'enter' for methods associated with entering one project from another,
including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is
significantly modified. Changes are in packages System, Morphic, and ST-80.

=============== Diff against System-dtl.162 ===============

Item was changed:
+ ----- Method: Project>>enter:revert:saveForRevert: (in category 'enter') -----
- ----- Method: Project>>enter:revert:saveForRevert: (in category 'menu
messages') -----
   enter: returningFlag revert: revertFlag saveForRevert: saveForRevert
  	 "Install my ChangeSet, Transcript, and scheduled views as current globals. If
returningFlag is true, we will return to the project from whence the current
project was entered; don't change its previousProject link in this case.
  	 If saveForRevert is true, save the ImageSegment of the project being left.
  	 If revertFlag is true, make stubs for the world of the project being left.
  	 If revertWithoutAsking is true in the project being left, then always
revert."

+  | showZoom recorderOrNil old forceRevert response seg |
-  | showZoom recorderOrNil old forceRevert response seg newProcess |
-
-  (world isKindOf: StringMorph) ifTrue: [
- 	 self inform: 'This project is not all here. I will try to load a complete
version.' translated.
- 	 ^self loadFromServer: true "try to get a fresh copy"
-  ].
-  self isCurrentProject ifTrue: [^ self].
-  "Check the guards"
-  guards ifNotNil:
- 	 [guards := guards reject: [:obj | obj isNil].
- 	 guards do: [:obj | obj okayToEnterProject ifFalse: [^ self]]].
-  CurrentProject world triggerEvent: #aboutToLeaveWorld.
-  forceRevert := false.
-  CurrentProject rawParameters
- 	 ifNil: [revertFlag ifTrue: [^ self inform: 'nothing to revert to'
translated]]
- 	 ifNotNil: [saveForRevert ifFalse: [
- 			 forceRevert := CurrentProject projectParameters
- 							 at: #revertWithoutAsking ifAbsent: [false]]].
-  forceRevert not & revertFlag ifTrue: [
- 	 response := (UIManager default chooseFrom: {
- 		 'Revert to saved version' translated.
- 		 'Cancel' translated.
- 	 } title: 'Are you sure you want to destroy this Project\ and revert to an
older version?\\(From the parent project, click on this project''s thumbnail.)'
translated withCRs) = 1.
- 	 response ifFalse: [^ self]].
-
-  revertFlag | forceRevert
- 	 ifTrue: [seg := CurrentProject projectParameters at: #revertToMe ifAbsent: [
- 				 ^ self inform: 'nothing to revert to' translated]]
- 	 ifFalse: [
- 		 CurrentProject finalExitActions.
- 		 CurrentProject makeThumbnail.
- 		 returningFlag == #specialReturn
- 			 ifTrue:
- 				 [ProjectHistory forget: CurrentProject.  "this guy is irrelevant"
- 				 Project forget: CurrentProject]
- 			 ifFalse:
- 				 [ProjectHistory remember: CurrentProject]].
-
-  (revertFlag | saveForRevert | forceRevert) ifFalse:
- 	 [(Preferences valueOfFlag: #projectsSentToDisk) ifTrue:
- 		 [self storeToMakeRoom]].
-
-  CurrentProject abortResourceLoading.
-  Smalltalk isMorphic ifTrue: [CurrentProject world triggerClosingScripts].
-
-  CurrentProject saveProjectPreferences.
-
-  "Update the display depth and make a thumbnail of the current project"
-  CurrentProject displayDepth: Display depth.
-  old := CurrentProject.  "for later"
-
-  "Show the project transition.
-  Note: The project zoom is run in the context of the old project,
- 	 so that eventual errors can be handled accordingly"
-  displayDepth == nil ifTrue: [displayDepth := Display depth].
-  self installNewDisplay: Display extent depth: displayDepth.
-  (showZoom := self showZoom) ifTrue: [
- 	 self displayZoom: CurrentProject parent ~~ self].
-
-  (world isMorph and: [world hasProperty: #letTheMusicPlay])
- 	 ifTrue: [world removeProperty: #letTheMusicPlay]
- 	 ifFalse: [Smalltalk at: #ScorePlayer ifPresentAndInMemory:
- 				 [:playerClass | playerClass allSubInstancesDo:
- 					 [:player | player pause]]].
-
-  returningFlag == #specialReturn ifTrue: [
- 	 old removeChangeSetIfPossible. "keep this stuff from accumulating"
- 	 nextProject := nil
-  ] ifFalse: [
- 	 returningFlag
- 		 ifTrue: [nextProject := CurrentProject]
- 		 ifFalse: [previousProject := CurrentProject].
-  ].
-
-  CurrentProject saveState.
-  CurrentProject isolationHead == self isolationHead ifFalse:
- 	 [self invokeFrom: CurrentProject].
-  CurrentProject := self.
-  self installProjectPreferences.
-  ChangeSet  newChanges: changeSet.
-  TranscriptStream newTranscript: transcript.
-  Sensor flushKeyboard.
-  Smalltalk isMorphic ifTrue: [recorderOrNil := World pauseEventRecorder].

+  self isIncompletelyLoaded ifTrue:
+ 	 [^self loadFromServer: true "try to get a fresh copy"].
+  self isCurrentProject ifTrue: [^ self].
+  "Check the guards"
+  guards ifNotNil:
+ 	 [guards := guards reject: [:obj | obj isNil].
+ 	 guards do: [:obj | obj okayToEnterProject ifFalse: [^ self]]].
+  CurrentProject world triggerEvent: #aboutToLeaveWorld.
+  forceRevert := false.
+  CurrentProject rawParameters
+ 	 ifNil: [revertFlag ifTrue: [^ self inform: 'nothing to revert to'
translated]]
+ 	 ifNotNil: [saveForRevert ifFalse: [
+ 			 forceRevert := CurrentProject projectParameters
+ 							 at: #revertWithoutAsking ifAbsent: [false]]].
+  forceRevert not & revertFlag ifTrue: [
+ 	 response := (UIManager default chooseFrom: {
+ 		 'Revert to saved version' translated.
+ 		 'Cancel' translated.
+ 	 } title: 'Are you sure you want to destroy this Project\ and revert to an
older version?\\(From the parent project, click on this project''s thumbnail.)'
translated withCRs) = 1.
+ 	 response ifFalse: [^ self]].
+
+  revertFlag | forceRevert
+ 	 ifTrue: [seg := CurrentProject projectParameters at: #revertToMe ifAbsent: [
+ 				 ^ self inform: 'nothing to revert to' translated]]
+ 	 ifFalse: [
+ 		 CurrentProject finalExitActions.
+ 		 CurrentProject makeThumbnail.
+ 		 returningFlag == #specialReturn
+ 			 ifTrue:
+ 				 [ProjectHistory forget: CurrentProject.  "this guy is irrelevant"
+ 				 Project forget: CurrentProject]
+ 			 ifFalse:
+ 				 [ProjectHistory remember: CurrentProject]].
+
+  (revertFlag | saveForRevert | forceRevert) ifFalse:
+ 	 [(Preferences valueOfFlag: #projectsSentToDisk) ifTrue:
+ 		 [self storeToMakeRoom]].
+
+  CurrentProject abortResourceLoading.
+  CurrentProject triggerClosingScripts.
+  CurrentProject saveProjectPreferences.
+
+  "Update the display depth and make a thumbnail of the current project"
+  CurrentProject displayDepth: Display depth.
+  old := CurrentProject.  "for later"
+
+  "Show the project transition.
+  Note: The project zoom is run in the context of the old project,
+ 	 so that eventual errors can be handled accordingly"
+  displayDepth == nil ifTrue: [displayDepth := Display depth].
+  self installNewDisplay: Display extent depth: displayDepth.
+  (showZoom := self showZoom) ifTrue: [
+ 	 self displayZoom: CurrentProject parent ~~ self].
+
+  CurrentProject pauseSoundPlayers.
+
+  returningFlag == #specialReturn ifTrue: [
+ 	 old removeChangeSetIfPossible. "keep this stuff from accumulating"
+ 	 nextProject := nil
+  ] ifFalse: [
+ 	 returningFlag
+ 		 ifTrue: [nextProject := CurrentProject]
+ 		 ifFalse: [previousProject := CurrentProject].
+  ].
+
+  CurrentProject saveState.
+  CurrentProject isolationHead == self isolationHead ifFalse:
+ 	 [self invokeFrom: CurrentProject].
+  CurrentProject := self.
+  self installProjectPreferences.
+  ChangeSet  newChanges: changeSet.
+  TranscriptStream newTranscript: transcript.
+  Sensor flushKeyboard.
+  recorderOrNil := old pauseEventRecorder.
  	 ProjectHistory remember: CurrentProject.
+  self setWorldForEnterFrom: old recorder: recorderOrNil.
-
-  world isMorph
- 	 ifTrue:
- 		 [World := world.  "Signifies Morphic"
- 		 world install.
- 		 world transferRemoteServerFrom: old world.
- 		 "(revertFlag | saveForRevert | forceRevert) ifFalse: [
- 			 (Preferences valueOfFlag: #projectsSentToDisk) ifTrue: [
- 				 self storeSomeSegment]]."
- 		 recorderOrNil ifNotNil: [recorderOrNil resumeIn: world].
- 		 world triggerOpeningScripts]
- 	 ifFalse:
- 		 [World := nil.  "Signifies MVC"
- 		 Smalltalk at: #ScheduledControllers put: world].

  	 saveForRevert ifTrue: [
  		 Smalltalk garbageCollect. "let go of pointers"
  		 old storeSegment.
  		 "result :=" old world isInMemory
  			 ifTrue: ['Can''t seem to write the project.']
  			 ifFalse: [old projectParameters at: #revertToMe put:
  					 old world xxxSegment clone].
  				 'Project written.'].
  			 "original is for coming back in and continuing."

  	 revertFlag | forceRevert ifTrue: [
  		 seg clone revert]. "non-cloned one is for reverting again later"
  	 self removeParameter: #exportState.

  	 "Complete the enter: by launching a new process"
+  self scheduleProcessForEnter: showZoom
+ !
-  world isMorph ifTrue: [
- 	 self finalEnterActions.
- 	 world repairEmbeddedWorlds.
- 	 world triggerEvent: #aboutToEnterWorld.
- 	 Project spawnNewProcessAndTerminateOld: true
-  ] ifFalse: [
- 	 SystemWindow clearTopWindow. "break external ref to this project"
- 	 newProcess := [
- 		 ScheduledControllers resetActiveController. "in case of walkback in
#restore"
- 		 showZoom ifFalse: [ScheduledControllers restore].
- 		 ScheduledControllers searchForActiveController
- 	 ] fixTemps newProcess priority: Processor userSchedulingPriority.
- 	 newProcess resume.  "lose the current process and its referenced morphs"
- 	 Processor terminateActive.
-  ]!

Item was added:
+ ----- Method: Project>>isIncompletelyLoaded (in category 'enter') -----
+ isIncompletelyLoaded
+  "Answer true if project is incomplete and should be loaded from server "
+
+  ^ false!

Item was changed:
   ----- Method: Project>>armsLengthCommand:withDescription: (in category 'file
in/out') -----
   armsLengthCommand: aCommand withDescription: aString
-  | pvm tempProject foolingForm tempCanvas bbox crossHatchColor stride |
  	 "Set things up so that this aCommand is sent to self as a message
   after jumping to the parentProject.  For things that can't be executed
   while in this project, such as saveAs, loadFromServer, storeOnServer.  See
   ProjectViewMorph step."

+  self subclassResponsibility!
-  self isMorphic ifTrue: [
- 	 world borderWidth: 0. "get rid of the silly default border"
- 	 tempProject := MorphicProject new.
- 	 foolingForm := world imageForm.  "make them think they never left"
- 	 tempCanvas := foolingForm getCanvas.
- 	 bbox := foolingForm boundingBox.
- 	 crossHatchColor := Color yellow alpha: 0.3.
- 	 stride := 20.
- 	 10 to: bbox width by: stride do: [ :x |
- 		 tempCanvas fillRectangle: (x@0 extent: 1@bbox height) fillStyle:
crossHatchColor.
- 	 ].
- 	 10 to: bbox height by: stride do: [ :y |
- 		 tempCanvas fillRectangle: (0@y extent: bbox width@1) fillStyle:
crossHatchColor.
- 	 ].
-
- 	 tempProject world color: (InfiniteForm with: foolingForm).
- 	 tempProject projectParameters
- 		 at: #armsLengthCmd
- 		 put: (
- 			 DoCommandOnceMorph new
- 				 addText: aString;
- 				 actionBlock: [
- 					 self doArmsLengthCommand: aCommand.
- 				 ] fixTemps
- 		 ).
- 	 tempProject projectParameters
- 		 at: #deleteWhenEnteringNewProject
- 		 put: true.
- 	 tempProject enter.
-  ] ifFalse: [
- 	 parentProject ifNil: [^ self inform: 'The top project can''t do that'].
- 	 pvm := parentProject findProjectView: self.
- 	 pvm armsLengthCommand: {self. aCommand}.
- 	 self exit.
-  ].
- !

Item was added:
+ ----- Method: Project>>pauseSoundPlayers (in category 'enter') -----
+ pauseSoundPlayers
+  "Pause sound players, subject to preference settings"
+
+  self subclassResponsibility!

Item was added:
+ ----- Method: Project>>scheduleProcessForEnter: (in category 'enter') -----
+ scheduleProcessForEnter: showZoom
+  "Complete the enter: by launching a new process"
+
+  self subclassResponsibility!

Item was changed:
   ----- Method: Project>>assureNavigatorPresenceMatchesPreference (in category
'menu messages') -----
   assureNavigatorPresenceMatchesPreference
  	 "Make sure that the current project conforms to the presence/absence of the
navigator"
+ !
-
-  | navigator navType wantIt |
-  Smalltalk isMorphic ifFalse: [^ self].
-  wantIt :=  Preferences classicNavigatorEnabled and: [Preferences
showProjectNavigator].
-  navType := ProjectNavigationMorph preferredNavigator.
-  navigator := world findA: navType.
-  wantIt
- 	 ifFalse:
- 		 [navigator ifNotNil: [navigator delete]]
- 	 ifTrue:
- 		 [navigator isNil ifTrue:
- 			 [(navigator := navType new)
- 				 bottomLeft: world bottomLeft;
- 				 openInWorld: world]]!

Item was added:
+ ----- Method: Project>>setWorldForEnterFrom:recorder: (in category 'enter')
-----
+ setWorldForEnterFrom: old recorder: recorderOrNil
+  "Prepare world for enter."
+
+  self subclassResponsibility
+ !

Item was added:
+ ----- Method: Project>>setWorldForEmergencyRecovery (in category 'enter')
-----
+ setWorldForEmergencyRecovery
+  "Prepare world for enter with an absolute minimum of mechanism.
+  An unrecoverable error has been detected in an isolated project."
+
+  self subclassResponsibility
+ !

Item was added:
+ ----- Method: Project>>pauseEventRecorder (in category 'enter') -----
+ pauseEventRecorder
+  "Suspend any event recorder, and return it if found"
+
+  ^ nil!

Item was added:
+ ----- Method: Project>>triggerClosingScripts (in category 'enter') -----
+ triggerClosingScripts
+  "If any scripts must be run on closing, run them now"
+ !

Item was changed:
+ ----- Method: Project>>finalExitActions (in category 'enter') -----
- ----- Method: Project>>finalExitActions (in category 'menu messages') -----
   finalExitActions
-
-  | navigator |
-
-  world isMorph ifTrue: [
- 	 navigator := world findA: ProjectNavigationMorph.
- 	 navigator ifNotNil: [navigator retractIfAppropriate].
-  ].
   !

Item was changed:
+ ----- Method: Project>>enterForEmergencyRecovery (in category 'enter') -----
- ----- Method: Project>>enterForEmergencyRecovery (in category 'menu messages')
-----
   enterForEmergencyRecovery
  	 "This version of enter invokes an absolute minimum of mechanism.
  	 An unrecoverable error has been detected in an isolated project.
  	 It is assumed that the old changeSet has already been revoked.
  	 No new process gets spawned here.  This will happen in the debugger."

  	 self isCurrentProject ifTrue: [^ self].
  	 CurrentProject saveState.
  	 CurrentProject := self.
  	 Display newDepthNoRestore: displayDepth.
  	 ChangeSet  newChanges: changeSet.
  	 TranscriptStream newTranscript: transcript.
  	 World pauseEventRecorder.
+  self setWorldForEmergencyRecovery.
+  UIProcess := Processor activeProcess
-
-  world isMorph
- 	 ifTrue:
- 		 ["Entering a Morphic project"
- 		 World := world.
- 		 world install.
- 		 world triggerOpeningScripts]
- 	 ifFalse:
- 		 ["Entering an MVC project"
- 		 World := nil.
- 		 Smalltalk at: #ScheduledControllers put: world.
- 		 ScheduledControllers restore].
-  UIProcess := Processor activeProcess.
   !

Item was changed:
+ ----- Method: Project>>viewLocFor: (in category 'displaying') -----
- ----- Method: Project>>viewLocFor: (in category 'menu messages') -----
   viewLocFor: exitedProject
  	 "Look for a view of the exitedProject, and return its center"

+  self subclassResponsibility!
-  | ctlr |
-  world isMorph
- 	 ifTrue:
- 		 [world submorphsDo:
- 				 [:v |
- 				 ((v isSystemWindow) and: [v model == exitedProject])
- 					 ifTrue: [^v center]]]
- 	 ifFalse:
- 		 [ctlr := world controllerWhoseModelSatisfies: [:p | p == exitedProject].
- 		 ctlr ifNotNil: [^ctlr view windowBox center]].
-  ^Sensor cursorPoint "default result"!

Item was removed:
- ----- Method: Project>>navigatorFlapVisible (in category 'menu messages')
-----
- navigatorFlapVisible
-  "Answer whether a Navigator flap is visible"
-
-  ^ (Flaps sharedFlapsAllowed and:
- 	 [self flapsSuppressed not]) and:
- 		 [self isFlapIDEnabled: 'Navigator' translated]!

Item was removed:
- ----- Method: Project>>finalEnterActions (in category 'menu messages') -----
- finalEnterActions
-  "Perform the final actions necessary as the receiver project is entered"
-
-  | navigator armsLengthCmd navType thingsToUnhibernate fixBlock |
-
-  self projectParameters
- 	 at: #projectsToBeDeleted
- 	 ifPresent: [ :projectsToBeDeleted |
- 		 self removeParameter: #projectsToBeDeleted.
- 		 projectsToBeDeleted do: [ :each |
- 			 Project deletingProject: each.
- 			 each removeChangeSetIfPossible]].
-
-  Locale switchAndInstallFontToID: self localeID.
-
-  thingsToUnhibernate := world valueOfProperty: #thingsToUnhibernate ifAbsent:
[#()].
-  (thingsToUnhibernate anySatisfy:[:each|
- 	 each isMorph and:[each hasProperty: #needsLayoutFixed]])
- 		 ifTrue:[fixBlock := self displayFontProgress].
-  thingsToUnhibernate do: [:each | each unhibernate].
-  world removeProperty: #thingsToUnhibernate.
-
-  fixBlock ifNotNil:[
- 	 fixBlock value.
- 	 world fullRepaintNeeded.
-  ].
-
-  navType := ProjectNavigationMorph preferredNavigator.
-  armsLengthCmd := self parameterAt: #armsLengthCmd ifAbsent: [nil].
-  navigator := world findA: navType.
-  (Preferences classicNavigatorEnabled and: [Preferences showProjectNavigator
and: [navigator isNil]]) ifTrue:
- 	 [(navigator := navType new)
- 		 bottomLeft: world bottomLeft;
- 		 openInWorld: world].
-  navigator notNil & armsLengthCmd notNil ifTrue:
- 	 [navigator color: Color lightBlue].
-  armsLengthCmd notNil ifTrue:
- 	 [Preferences showFlapsWhenPublishing
- 		 ifFalse:
- 			 [self flapsSuppressed: true.
- 			 navigator ifNotNil: [navigator visible: false]].
- 	 armsLengthCmd openInWorld: world].
-  Smalltalk isMorphic ifTrue:
- 	 [world reformulateUpdatingMenus.
- 	 world presenter positionStandardPlayer.
- 	 self assureMainDockingBarPresenceMatchesPreference].
-
-  WorldState addDeferredUIMessage: [self startResourceLoading].!

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.224.mcz

==================== Summary ====================

Name: Morphic-dtl.224
Author: dtl
Time: 9 November 2009, 9:05:46 am
UUID: 17310e17-0eba-47f0-8a65-56eded9e452d
Ancestors: Morphic-nice.223

Continue factoring Project into MVCProject and MorphicProject. Add method
category 'enter' for methods associated with entering one project from another,
including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is
significantly modified. Changes are in packages System, Morphic, and ST-80.

=============== Diff against Morphic-nice.223 ===============

Item was added:
+ ----- Method: MorphicProject>>finalEnterActions (in category 'enter') -----
+ finalEnterActions
+  "Perform the final actions necessary as the receiver project is entered"
+
+  | navigator armsLengthCmd navType thingsToUnhibernate fixBlock |
+
+  self projectParameters
+ 	 at: #projectsToBeDeleted
+ 	 ifPresent: [ :projectsToBeDeleted |
+ 		 self removeParameter: #projectsToBeDeleted.
+ 		 projectsToBeDeleted do: [ :each |
+ 			 Project deletingProject: each.
+ 			 each removeChangeSetIfPossible]].
+
+  Locale switchAndInstallFontToID: self localeID.
+
+  thingsToUnhibernate := world valueOfProperty: #thingsToUnhibernate ifAbsent:
[#()].
+  (thingsToUnhibernate anySatisfy:[:each|
+ 	 each isMorph and:[each hasProperty: #needsLayoutFixed]])
+ 		 ifTrue:[fixBlock := self displayFontProgress].
+  thingsToUnhibernate do: [:each | each unhibernate].
+  world removeProperty: #thingsToUnhibernate.
+
+  fixBlock ifNotNil:[
+ 	 fixBlock value.
+ 	 world fullRepaintNeeded.
+  ].
+
+  navType := ProjectNavigationMorph preferredNavigator.
+  armsLengthCmd := self parameterAt: #armsLengthCmd ifAbsent: [nil].
+  navigator := world findA: navType.
+  (Preferences classicNavigatorEnabled and: [Preferences showProjectNavigator
and: [navigator isNil]]) ifTrue:
+ 	 [(navigator := navType new)
+ 		 bottomLeft: world bottomLeft;
+ 		 openInWorld: world].
+  navigator notNil & armsLengthCmd notNil ifTrue:
+ 	 [navigator color: Color lightBlue].
+  armsLengthCmd notNil ifTrue:
+ 	 [Preferences showFlapsWhenPublishing
+ 		 ifFalse:
+ 			 [self flapsSuppressed: true.
+ 			 navigator ifNotNil: [navigator visible: false]].
+ 	 armsLengthCmd openInWorld: world].
+  world reformulateUpdatingMenus.
+  world presenter positionStandardPlayer.
+  self assureMainDockingBarPresenceMatchesPreference.
+
+  WorldState addDeferredUIMessage: [self startResourceLoading].!

Item was added:
+ ----- Method: MorphicProject>>finalExitActions (in category 'enter') -----
+ finalExitActions
+
+  (world findA: ProjectNavigationMorph)
+ 	 ifNotNilDo: [:navigator | navigator retractIfAppropriate]!

Item was added:
+ ----- Method: MorphicProject>>viewLocFor: (in category 'display') -----
+ viewLocFor: exitedProject
+  "Look for a view of the exitedProject, and return its center"
+
+  world submorphsDo: [:v |
+ 		 (v isSystemWindow and: [v model == exitedProject])
+ 			 ifTrue: [^ v center]].
+  ^ Sensor cursorPoint "default result"!

Item was added:
+ ----- Method: MorphicProject>>pauseSoundPlayers (in category 'enter') -----
+ pauseSoundPlayers
+  "Pause sound players, subject to preference settings"
+
+  (world hasProperty: #letTheMusicPlay)
+ 	 ifTrue: [world removeProperty: #letTheMusicPlay]
+ 	 ifFalse: [Smalltalk at: #ScorePlayer ifPresentAndInMemory:
+ 				 [:playerClass | playerClass allSubInstancesDo:
+ 					 [:player | player pause]]]
+ !

Item was added:
+ ----- Method: MorphicProject>>assureNavigatorPresenceMatchesPreference (in
category 'menu messages') -----
+ assureNavigatorPresenceMatchesPreference
+  "Make sure that the current project conforms to the presence/absence of the
navigator"
+
+  | navigator navType wantIt |
+  wantIt :=  Preferences classicNavigatorEnabled and: [Preferences
showProjectNavigator].
+  navType := ProjectNavigationMorph preferredNavigator.
+  navigator := world findA: navType.
+  wantIt
+ 	 ifFalse:
+ 		 [navigator ifNotNil: [navigator delete]]
+ 	 ifTrue:
+ 		 [navigator isNil ifTrue:
+ 			 [(navigator := navType new)
+ 				 bottomLeft: world bottomLeft;
+ 				 openInWorld: world]]!

Item was added:
+ ----- Method: MorphicProject>>scheduleProcessForEnter: (in category 'enter')
-----
+ scheduleProcessForEnter: showZoom
+  "Complete the enter: by launching a new process"
+
+  self finalEnterActions.
+  world repairEmbeddedWorlds.
+  world triggerEvent: #aboutToEnterWorld.
+  Project spawnNewProcessAndTerminateOld: true
+ !

Item was added:
+ ----- Method: MorphicProject>>setWorldForEnterFrom:recorder: (in category
'enter') -----
+ setWorldForEnterFrom: old recorder: recorderOrNil
+  "Prepare world for enter."
+
+  World := world.  "Signifies Morphic"
+  world install.
+  world transferRemoteServerFrom: old world.
+  "(revertFlag | saveForRevert | forceRevert) ifFalse: [
+ 	 (Preferences valueOfFlag: #projectsSentToDisk) ifTrue: [
+ 		 self storeSomeSegment]]."
+  recorderOrNil ifNotNil: [recorderOrNil resumeIn: world].
+  world triggerOpeningScripts
+ !

Item was added:
+ ----- Method: MorphicProject>>setWorldForEmergencyRecovery (in category
'enter') -----
+ setWorldForEmergencyRecovery
+  "Prepare world for enter with an absolute minimum of mechanism.
+  An unrecoverable error has been detected in an isolated project."
+
+  World := world.
+  world install.
+  world triggerOpeningScripts
+ !

Item was added:
+ ----- Method: MorphicProject>>pauseEventRecorder (in category 'enter') -----
+ pauseEventRecorder
+  "Suspend any event recorder, and return it if found"
+
+  ^World pauseEventRecorder!

Item was added:
+ ----- Method: MorphicProject>>triggerClosingScripts (in category 'enter')
-----
+ triggerClosingScripts
+  "If any scripts must be run on closing, run them now"
+
+  CurrentProject world triggerClosingScripts
+ !

Item was added:
+ ----- Method: MorphicProject>>isIncompletelyLoaded (in category 'enter') -----
+ isIncompletelyLoaded
+  "Answer true if project is incomplete and should be loaded from server "
+
+  (world isKindOf: StringMorph)
+ 	 ifTrue: [self inform: 'This project is not all here. I will try to load a
complete version.' translated.
+ 		 ^ true].
+  ^ false!

Item was added:
+ ----- Method: MorphicProject>>armsLengthCommand:withDescription: (in category
'file in/out') -----
+ armsLengthCommand: aCommand withDescription: aString
+  | tempProject foolingForm tempCanvas bbox crossHatchColor stride |
+  "Set things up so that this aCommand is sent to self as a message
+ after jumping to the parentProject.  For things that can't be executed
+ while in this project, such as saveAs, loadFromServer, storeOnServer.  See
+ ProjectViewMorph step."
+
+  world borderWidth: 0. "get rid of the silly default border"
+  tempProject := MorphicProject new.
+  foolingForm := world imageForm.  "make them think they never left"
+  tempCanvas := foolingForm getCanvas.
+  bbox := foolingForm boundingBox.
+  crossHatchColor := Color yellow alpha: 0.3.
+  stride := 20.
+  10 to: bbox width by: stride do: [ :x |
+ 	 tempCanvas fillRectangle: (x@0 extent: 1@bbox height) fillStyle:
crossHatchColor.
+  ].
+  10 to: bbox height by: stride do: [ :y |
+ 	 tempCanvas fillRectangle: (0@y extent: bbox width@1) fillStyle:
crossHatchColor.
+  ].
+
+  tempProject world color: (InfiniteForm with: foolingForm).
+  tempProject projectParameters
+ 	 at: #armsLengthCmd
+ 	 put: (
+ 		 DoCommandOnceMorph new
+ 			 addText: aString;
+ 			 actionBlock: [
+ 				 self doArmsLengthCommand: aCommand.
+ 			 ] fixTemps
+ 	 ).
+  tempProject projectParameters
+ 	 at: #deleteWhenEnteringNewProject
+ 	 put: true.
+  tempProject enter
+ !

Item was added:
+ ----- Method: MorphicProject>>navigatorFlapVisible (in category 'flaps
support') -----
+ navigatorFlapVisible
+  "Answer whether a Navigator flap is visible"
+
+  self flag: #toRemove. "unreferenced in image, check eToys"
+  ^ (Flaps sharedFlapsAllowed and:
+ 	 [self flapsSuppressed not]) and:
+ 		 [self isFlapIDEnabled: 'Navigator' translated]!

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours:

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001747.html

Name: Kernel-nice.290
Ancestors: Kernel-nice.289

clean-up isSelfEvaluating

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001748.html

Name: ST80-dtl.64
Ancestors: ST80-nice.63

Continue factoring Project into MVCProject and MorphicProject. Add method
category 'enter' for methods associated with entering one project from another,
including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is
significantly modified. Changes are in packages System, Morphic, and ST-80.

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001749.html

Name: Kernel-tbn.288
Ancestors: Kernel-ul.287

categorize and format ChronologyConstants>>initialize as a first commit test

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001750.html

Name: Network-nice.40
Ancestors: Network-nice.39

Borrow excellent fix from http://code.google.com/p/pharo/issues/detail?id=1152
and let these instVarAt:put:  out of our sight

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001751.html

Name: System-dtl.162
Ancestors: System-dtl.161

Move three methods from MorphicProject back to Project, undoing prior change.
These are required for creating and entering an MVC project from Morphic.

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001752.html

Name: Morphic-dtl.222
Ancestors: Morphic-ar.221

Move three methods from MorphicProject back to Project, undoing prior change.
These are required for creating and entering an MVC project from Morphic.

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001753.html

Name: Kernel-nice.289
Ancestors: Kernel-tbn.288

Fix from http://code.google.com/p/pharo/issues/detail?id=1424
This will allow comparing
a MethodProperties analogousCodeTo: an AdditionalMethodState
et vice et versa

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001754.html

Name: Multilingual-nice.59
Ancestors: Multilingual-ar.58

File in fixes from http://bugs.squeak.org/view.php?id=7071 for handling unicode
input

==== ERROR ===

Error: subscript is out of bounds: 0

9 November 2009 10:51:40 pm

VM: unix - a SmalltalkImage
Image: Squeak3.7 [latest update: #5989]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /home/squeaksource
Trusted Dir /home/squeaksource/secure
Untrusted Dir /home/squeaksource/My Squeak

Array(Object)>>error:
	 Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xDelimiter #xDe...etc...
	 Arguments and temporary variables:
		 aString:  'subscript is out of bounds: 0'
	 Receiver's instance variables:
#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xDelimiter #xDe...etc...

Array(Object)>>errorSubscriptBounds:
	 Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xDelimiter #xDe...etc...
	 Arguments and temporary variables:
		 index:  0
	 Receiver's instance variables:
#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xDelimiter #xDe...etc...

Array(Object)>>at:
	 Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xDelimiter #xDe...etc...
	 Arguments and temporary variables:
		 index:  0
	 Receiver's instance variables:
#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xDelimiter #xDe...etc...

Parser(Scanner)>>scanToken
	 Receiver: a Parser
	 Arguments and temporary variables:

	 Receiver's instance variables:
		 source:  a ReadStream
		 mark:  nil
		 hereChar:  $
		 aheadChar:  $
		 token:  nil
		 tokenType:  nil
		 currentComment:  nil
		 buffer:  a WriteStream
		 typeTable:  #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xB...etc...
		 here:  nil
		 hereType:  nil
		 hereMark:  nil
		 hereEnd:  nil
		 prevMark:  nil
		 prevEnd:  nil
		 encoder:  nil
		 requestor:  nil
		 parseNode:  nil
		 failBlock:  [] in Parser>>initPattern:notifying:return: {[^ nil]}
		 requestorOffset:  nil
		 tempsMark:  nil
		 doitFlag:  nil


--- The full stack ---
Array(Object)>>error:
Array(Object)>>errorSubscriptBounds:
Array(Object)>>at:
Parser(Scanner)>>scanToken
  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Parser(Scanner)>>scan:
Parser>>init:notifying:failBlock:
Parser>>initPattern:notifying:return:
Parser>>parseSelector:
ChangeList>>scanCategory:class:meta:stamp:
ChangeList>>scanCategory
[] in ChangeList>>scanFile:from:to: {[:bar |  [file position < stopPosition]  
whileTrue: [bar value: file positi...]}
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
String>>displayProgressAt:from:to:during:
ChangeList>>scanFile:from:to:
FilePackage>>fileInFrom:
MCStReader>>loadDefinitions
MCStReader(MCSnapshotReader)>>definitions
[] in MCMczReader>>extractDefinitionsFrom: {[:rc |  reader := rc on: member
contentStream text.  definitions addAll: rea...]}
MCStReader class(Object)>>ifNotNilDo:
MCMczReader>>extractDefinitionsFrom:
[] in MCMczReader>>loadDefinitions {[:m | self extractDefinitionsFrom: m]}
OrderedCollection>>do:
MCMczReader>>loadDefinitions
MCMczReader(MCVersionReader)>>definitions
MCMczReader(MCVersionReader)>>snapshot
[] in SSDiffyTextWriter>>writeVersion:for: {[ancestor   ifNil: [self
writeSnapshot: reader snapshot]   ifNotNil: [patch ...]}
BlockContext>>on:do:
SSDiffyTextWriter>>writeVersion:for:
SSEMailSubscription>>versionAdded:to:
[] in SSProject>>versionAdded: {[each new versionAdded: aVersion to: self]}
[] in BlockContext>>newProcess {[self value.  Processor terminateActive]}







	 Previous message: [Pkg] The Trunk: Kernel-nice.289.mcz

	 Next message: [Pkg] The Trunk: KernelTests-nice.106.mcz

           Messages sorted by:
               [ date ]
               [ thread ]
               [ subject ]
               [ author ]




More information about the Packages
mailing list

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001755.html

Name: KernelTests-nice.106
Ancestors: KernelTests-nice.105

Add a test for Float storeOn: (strange, I thought I already commited this one)

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001756.html

Name: ST80-nice.63
Ancestors: ST80-dtl.62

Fix from http://bugs.squeak.org/view.php?id=7071 for unicode character input

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001757.html

Name: Morphic-nice.223
Ancestors: Morphic-dtl.222

Fix from http://bugs.squeak.org/view.php?id=7071 for unicode input

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001758.html

Name: Graphics-nice.88
Ancestors: Graphics-nice.87

clean-up isSelfEvaluating

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001759.html

Name: Collections-nice.184
Ancestors: Collections-ar.183

clean-up isSelfEvaluating

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001760.html

Name: KernelTests-nice.107
Ancestors: KernelTests-nice.106

clean-up isSelfEvaluating

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001761.html

Name: CollectionsTests-nice.108
Ancestors: CollectionsTests-nice.107

clean-up isSelfEvaluating

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001762.html

Name: Tools-nice.140
Ancestors: Tools-nice.139

clean-up isSelfEvaluating

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001763.html

Name: Kernel-nice.290
Ancestors: Kernel-nice.289

clean-up isSelfEvaluating

=============================================

http://lists.squeakfoundation.org/pipermail/packages/2009-November/001764.html

Name: ST80-dtl.64
Ancestors: ST80-nice.63

Continue factoring Project into MVCProject and MorphicProject. Add method
category 'enter' for methods associated with entering one project from another,
including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is
significantly modified. Changes are in packages System, Morphic, and ST-80.

=============================================

Thanks, I applied that to the server image and enabled serverMode. I'm
not sure the Delay fixes are in though - Ken?

OTOH, don't the outages bother anyone enough to move the source server
to a trunk image and new vm?

- Bert -

On 09.11.2009, at 20:33, John M McIntosh wrote:

> Well assuming it's bug
> http://bugs.squeak.org/view.php?id=6581
>
> any chance someone in charge can update the image that supports
source.squeak.org
> ?
>
>
> On 2009-11-09, at 10:04 AM, Julian Fitzell wrote:
>
>> Umm... wow. :)
>>
>> On Mon, Nov 9, 2009 at 3:42 AM, Bert Freudenberg <bert@...
>> > wrote:
>>>
>>> On 09.11.2009, at 00:55, Nicolas Cellier wrote:
>>>
>>>> Sorry, i blocked source.squeak.org again...
>>>> I just commited a Kernel.mcz ... It does not block at each
>>>> commit, but
>>>> last one took a few hours...
>>>
>>> Solved by a mouse wiggle :/
>>>
>>> - Bert -
>>>
>>>
>>>
>>>
>>
>
> --
> =
> =
> =
> =
> =
> ======================================================================
> John M. McIntosh <johnmci@...>   Twitter:
> squeaker68882
> Corporate Smalltalk Consulting Ltd.  http://
> www.smalltalkconsulting.com
> =
> =
> =
> =
> =
> ======================================================================
>
>
>
>
>

David T. Lewis uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-dtl.162.mcz

==================== Summary ====================

Name: System-dtl.162
Author: dtl
Time: 7 November 2009, 11:57:44 am
UUID: 6f140160-1c75-48a9-b282-d51b609c8d0f
Ancestors: System-dtl.161

Move three methods from MorphicProject back to Project, undoing prior change.
These are required for creating and entering an MVC project from Morphic.

=============== Diff against System-dtl.161 ===============

Item was added:
+ ----- Method: Project>>showSharedFlaps (in category 'flaps support') -----
+ showSharedFlaps
+  "Answer whether shared flaps are shown or suppressed in this project"
+
+  | result |
+  result := Preferences showSharedFlaps.
+  ^ self == Project current
+ 	 ifTrue:
+ 		 [result]
+ 	 ifFalse:
+ 		 [self projectPreferenceAt: #showSharedFlaps ifAbsent: [result]]!

Item was added:
+ ----- Method: Project>>flapsSuppressed (in category 'flaps support') -----
+ flapsSuppressed
+  "Answer whether flaps are suppressed in this project"
+
+  ^ self showSharedFlaps not!

Item was added:
+ ----- Method: Project>>flapsSuppressed: (in category 'flaps support') -----
+ flapsSuppressed: aBoolean
+  "Make the setting of the flag that governs whether global flaps are
suppressed in the project be as indicated and add or remove the actual flaps"
+
+  self projectPreferenceFlagDictionary at: #showSharedFlaps put: aBoolean not.
+  self == Project current  "Typical case"
+ 	 ifTrue:
+ 		 [Preferences setPreference: #showSharedFlaps toValue: aBoolean not]
+ 	 ifFalse:   "Anomalous case where this project is not the current one."
+ 		 [aBoolean
+ 			 ifTrue:
+ 				 [Flaps globalFlapTabsIfAny do:
+ 					 [:aFlapTab | Flaps removeFlapTab: aFlapTab keepInList: true]]
+
+ 			 ifFalse:
+ 				 [Smalltalk isMorphic  ifTrue:
+ 					 [self currentWorld addGlobalFlaps]]].
+  Project current assureNavigatorPresenceMatchesPreference!

David T. Lewis uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-dtl.64.mcz

==================== Summary ====================

Name: ST80-dtl.64
Author: dtl
Time: 9 November 2009, 9:02:38 am
UUID: 7a7b05e8-b147-4aa4-a732-3b083bc39d05
Ancestors: ST80-nice.63

Continue factoring Project into MVCProject and MorphicProject. Add method
category 'enter' for methods associated with entering one project from another,
including MVC-Morphic transition. Project>>enter: revert:saveForRevert: is
significantly modified. Changes are in packages System, Morphic, and ST-80.

=============== Diff against ST80-nice.63 ===============

Item was added:
+ ----- Method: MVCProject>>pauseSoundPlayers (in category 'enter') -----
+ pauseSoundPlayers
+  "Pause sound players, subject to preference settings"
+
+  Smalltalk at: #ScorePlayer
+ 	 ifPresentAndInMemory: [:playerClass | playerClass
+ 			 allSubInstancesDo: [:player | player pause]]!

Item was added:
+ ----- Method: MVCProject>>scheduleProcessForEnter: (in category 'enter') -----
+ scheduleProcessForEnter: showZoom
+  "Complete the enter: by launching a new process"
+
+  | newProcess |
+  SystemWindow clearTopWindow. "break external ref to this project"
+  newProcess := [
+ 	 ScheduledControllers resetActiveController. "in case of walkback in
#restore"
+ 	 showZoom ifFalse: [ScheduledControllers restore].
+ 	 ScheduledControllers searchForActiveController
+  ] fixTemps newProcess priority: Processor userSchedulingPriority.
+  newProcess resume.  "lose the current process and its referenced morphs"
+  Processor terminateActive
+ !

Item was added:
+ ----- Method: MVCProject>>viewLocFor: (in category 'display') -----
+ viewLocFor: exitedProject
+  "Look for a view of the exitedProject, and return its center"
+
+  (world controllerWhoseModelSatisfies: [:p | p == exitedProject])
+ 	 ifNotNilDo: [:ctlr | ^ctlr view windowBox center].
+  ^Sensor cursorPoint "default result"!

Item was added:
+ ----- Method: MVCProject>>setWorldForEnterFrom:recorder: (in category 'enter')
-----
+ setWorldForEnterFrom: old recorder: recorderOrNil
+  "Prepare world for enter."
+
+  World := nil.  "Signifies MVC"
+  Smalltalk at: #ScheduledControllers put: world
+ !

Item was added:
+ ----- Method: MVCProject>>setWorldForEmergencyRecovery (in category 'enter')
-----
+ setWorldForEmergencyRecovery
+  "Prepare world for enter with an absolute minimum of mechanism.
+  An unrecoverable error has been detected in an isolated project."
+
+  World := nil.
+  Smalltalk at: #ScheduledControllers put: world.
+  ScheduledControllers restore
+ !

Item was added:
+ ----- Method: MVCProject>>armsLengthCommand:withDescription: (in category
'file in/out') -----
+ armsLengthCommand: aCommand withDescription: aString
+  | pvm |
+  "Set things up so that this aCommand is sent to self as a message
+ after jumping to the parentProject.  For things that can't be executed
+ while in this project, such as saveAs, loadFromServer, storeOnServer.  See
+ ProjectViewMorph step."
+
+  parentProject ifNil: [^ self inform: 'The top project can''t do that'].
+  pvm := parentProject findProjectView: self.
+  pvm armsLengthCommand: {self. aCommand}.
+  self exit
+ !

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.290.mcz

==================== Summary ====================

Name: Kernel-nice.290
Author: nice
Time: 9 November 2009, 12:25:05 pm
UUID: 4cff06dd-bd14-4b39-8867-ff5f1331f558
Ancestors: Kernel-nice.289

clean-up isSelfEvaluating

=============== Diff against Kernel-nice.289 ===============

Item was removed:
- ----- Method: Object>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  "Answer true if the receiver will print in a format evaluating to itself,
that is
-  (Compiler evaluate: self printString) = self"
-
-  ^ self isLiteral!

Item was removed:
- ----- Method: Fraction>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ true!

Item was removed:
- ----- Method: Class>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ true!

Item was removed:
- ----- Method: Boolean>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ true!

Item was removed:
- ----- Method: Metaclass>>isSelfEvaluating (in category 'testing') -----
- isSelfEvaluating
-  ^ true!

Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.140.mcz

==================== Summary ====================

Name: Tools-nice.140
Author: nice
Time: 9 November 2009, 12:22:56 pm
UUID: b12808f4-1605-4e5d-bdef-55a4dfdb2c9a
Ancestors: Tools-nice.139

clean-up isSelfEvaluating

=============== Diff against Tools-nice.139 ===============

Item was removed:
- ----- Method: PointerFinder>>isSelfEvaluating (in category 'self evaluating')
-----
- isSelfEvaluating
-  ^ false!

Nicolas Cellier uploaded a new version of CollectionsTests to project The Trunk:
http://source.squeak.org/trunk/CollectionsTests-nice.108.mcz

==================== Summary ====================

Name: CollectionsTests-nice.108
Author: nice
Time: 9 November 2009, 12:11:15 pm
UUID: ebea61c9-bc17-42b2-b874-56322d0ec84f
Ancestors: CollectionsTests-nice.107

clean-up isSelfEvaluating

=============== Diff against CollectionsTests-nice.107 ===============

Item was removed:
- ----- Method: AssociationTest>>testIsSelfEvaluating (in category 'tests')
-----
- testIsSelfEvaluating
-  | anotherAssociation |
-  self
- 	 assert: (a isSelfEvaluating).
-  anotherAssociation := Object new -> Object new.
-  anotherAssociation isSelfEvaluating ifTrue: [self
- 	 assert: (Compiler evaluate: anotherAssociation printString) =
anotherAssociation
- 	 description: 'a self evaluating should evaluate as self'].!

Item was removed:
- ----- Method: IntervalTest>>testIsEvaluating (in category 'tests') -----
- testIsEvaluating
-  self assert: (1 to: 10) isSelfEvaluating.
-  self assert: (1 to: 10 by: 2) isSelfEvaluating!

Item was removed:
- ----- Method: ArrayTest>>testIsSelfEvaluating (in category 'testing') -----
- testIsSelfEvaluating
-
-  self assert: example1 isSelfEvaluating.
-  example1 at: 1 put: Bag new.
-  self deny: example1 isSelfEvaluating.
-  example1 at: 1 put: 1.!

Item was removed:
- ----- Method: RunArrayTest>>testIsSelfEvaluating (in category 'tests -
instance creation') -----
- testIsSelfEvaluating
-  | array array2 |
-  array := RunArray new: 5 withAll: 2.
-  self assert: array isSelfEvaluating.
-  array2 := RunArray new: 5 withAll: Object new.
-  array2 isSelfEvaluating ifTrue: [self
- 	 assert: (Compiler evaluate: array2 printString) = array2
- 	 description: 'a self evaluating should evaluate as self'].!

Nicolas Cellier uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-nice.184.mcz

==================== Summary ====================

Name: Collections-nice.184
Author: nice
Time: 9 November 2009, 12:13:57 pm
UUID: 06a26ea1-20b5-4e30-8452-7b74fef5afba
Ancestors: Collections-ar.183

clean-up isSelfEvaluating

=============== Diff against Collections-ar.183 ===============

Item was removed:
- ----- Method: Array>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ (self allSatisfy: [:each | each isSelfEvaluating]) and: [self class ==
Array]!

Item was removed:
- ----- Method: Interval>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ self class == Interval!

Item was removed:
- ----- Method: RunArray>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ self class == RunArray and: [values isSelfEvaluating]!

Item was removed:
- ----- Method: Association>>isSelfEvaluating (in category 'self evaluating')
-----
- isSelfEvaluating
-  ^ self class == Association and: [self key isSelfEvaluating and: [self value
isSelfEvaluating]]!

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.107.mcz

==================== Summary ====================

Name: KernelTests-nice.107
Author: nice
Time: 9 November 2009, 12:20:16 pm
UUID: 1f3d8a7f-1966-40d2-b81d-52a51b0357c2
Ancestors: KernelTests-nice.106

clean-up isSelfEvaluating

=============== Diff against KernelTests-nice.106 ===============

Item was removed:
- TestCase subclass: #SelfEvaluatingObjectTest
-  instanceVariableNames: ''
-  classVariableNames: ''
-  poolDictionaries: ''
-  category: 'KernelTests-Objects'!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>testArray (in category 'tests') -----
- testArray
-  "self run: #testArray"
-
-  self assertCode: '#(1 2 3)' print: '#(1 2 3)'.
-  self assertCode: '{1 . 2 . 3}' print: '#(1 2 3)'.
-  self assertCode: '{1 + 0 . 2 . 3}' print: '#(1 2 3)'.
-  self assertCode: '{1 + 0 . 1 @ 2 . 3}' print: '{1 . 1@2 . 3}'.
-  self assertCode: '{2@3}' print: '{2@3}'.
-  self assertCode: '{Object new}' print:  'an Array(an Object)'.
-  self assertCode: '{Rectangle new . Object new}' print:  'an Array(nil corner:
nil an Object)'.
-  self assertCode: '{10@10 corner: 20@20 . 100@100 corner: 200@200}' print:
'{10@10 corner: 20@20 . 100@100 corner: 200@200}'!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>assertCode:print: (in category
'utilities') -----
- assertCode: code print: aString
-  self assert: (self compile: code) printString = aString!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>testObjects (in category 'tests')
-----
- testObjects
-  "self debug: #testObjects"
-
-  self assert: 10 isSelfEvaluating.
-  self assert: $a isSelfEvaluating.
-  self assert: 3.14157 isSelfEvaluating.
-  self assert: #(1 2 3) isSelfEvaluating.
-  self assert: #abc isSelfEvaluating.
-  self assert: 'abc' isSelfEvaluating.
-
-  self assert: Object isSelfEvaluating.
-  self assert: Object new isSelfEvaluating not.
-
-  self assert: (Array with: 10) isSelfEvaluating.
-  self assert: (Array with: Object new) isSelfEvaluating not.
-
-  self assert: true isSelfEvaluating.
-  self assert: false isSelfEvaluating.
-
-  self assert: nil isSelfEvaluating.
-
-  self assert: (1 to: 10) isSelfEvaluating.
-  self assert: (1->2) isSelfEvaluating.
-  self assert: Color red isSelfEvaluating.
-  self assert: RunArray new isSelfEvaluating.!

Item was removed:
- ----- Method: SelfEvaluatingObjectTest>>compile: (in category 'utilities')
-----
- compile: aString
-  ^ Compiler evaluate: aString!

Nicolas Cellier uploaded a new version of Graphics to project The Trunk:
http://source.squeak.org/trunk/Graphics-nice.88.mcz

==================== Summary ====================

Name: Graphics-nice.88
Author: nice
Time: 9 November 2009, 12:06:03 pm
UUID: 8eb14cc5-d266-4c44-8d5b-9b4de8f555e1
Ancestors: Graphics-nice.87

clean-up isSelfEvaluating

=============== Diff against Graphics-nice.87 ===============

Item was removed:
- ----- Method: Rectangle>>isSelfEvaluating (in category 'self evaluating')
-----
- isSelfEvaluating
-  ^ self class == Rectangle!

Item was removed:
- ----- Method: Color>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ self class == Color!

Item was removed:
- ----- Method: Point>>isSelfEvaluating (in category 'self evaluating') -----
- isSelfEvaluating
-  ^ self class == Point!

Nicolas Cellier uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-nice.63.mcz

==================== Summary ====================

Name: ST80-nice.63
Author: nice
Time: 8 November 2009, 11:52:42 am
UUID: 7dfed6ff-83ed-4f76-ab2d-65eb00d6f78f
Ancestors: ST80-dtl.62

Fix from http://bugs.squeak.org/view.php?id=7071 for unicode character input

=============== Diff against ST80-dtl.62 ===============

Item was changed:
   ----- Method: ParagraphEditor>>readKeyboard (in category 'typing support')
-----
   readKeyboard
  	 "Key struck on the keyboard. Find out which one and, if special, carry
  	 out the associated special action. Otherwise, add the character to the
  	 stream of characters.  Undoer & Redoer: see closeTypeIn."

  	 | typeAhead char |
  	 typeAhead := WriteStream on: (String new: 128).
  	 [sensor keyboardPressed] whileTrue:
  		 [self deselect.
  		  [sensor keyboardPressed] whileTrue:
  			 [char := sensor keyboardPeek.
  			 (self dispatchOnCharacter: char with: typeAhead) ifTrue:
  				 [self doneTyping.
  				 self setEmphasisHere.
  				 ^self selectAndScroll; updateMarker].
  			 self openTypeIn].
  		 self hasSelection ifTrue: "save highlighted characters"
  			 [UndoSelection := self selection].
+ 	 self zapSelectionWithCompositionWith: typeAhead contents.
- 	 self zapSelectionWith:
- 		 (Text string: typeAhead contents emphasis: emphasisHere).
  		 typeAhead reset.
  		 self unselect.
  		 sensor keyboardPressed ifFalse:
  			 [self selectAndScroll.
  			 sensor keyboardPressed
  				 ifFalse: [self updateMarker]]]!

Item was added:
+ ----- Method: ParagraphEditor>>charBefore (in category 'accessing-selection')
-----
+ charBefore
+
+  | start |
+  (start := self startIndex) > 1 ifTrue: [^ paragraph text at: start - 1].
+  ^ nil.
+ !

Item was changed:
   ----- Method: ParagraphEditor>>dispatchOnCharacter:with: (in category
'parenblinking') -----
   dispatchOnCharacter: char with: typeAheadStream
  	 "Carry out the action associated with this character, if any.
  	 Type-ahead is passed so some routines can flush or use it."

  	 | honorCommandKeys |
  	 self clearParens.

  	 "mikki 1/3/2005 21:31 Preference for auto-indent on return added."
  	 char asciiValue = 13 ifTrue: [
  		 ^Preferences autoIndent
  			 ifTrue: [
  				 sensor controlKeyPressed
  					 ifTrue: [self normalCharacter: typeAheadStream]
  					 ifFalse: [self crWithIndent: typeAheadStream]]
  			 ifFalse: [
  				 sensor controlKeyPressed
  					 ifTrue: [self crWithIndent: typeAheadStream]
  					 ifFalse: [self normalCharacter: typeAheadStream]]].

  	 ((honorCommandKeys := Preferences cmdKeysInText) and: [char = Character
enter])
  		 ifTrue: [^ self dispatchOnEnterWith: typeAheadStream].

  	 "Special keys overwrite crtl+key combinations - at least on Windows. To
resolve this
  	 conflict, assume that keys other than cursor keys aren't used together with
Crtl."
  	 ((self class specialShiftCmdKeys includes: char asciiValue) and: [char
asciiValue < 27])
  		 ifTrue: [^ sensor controlKeyPressed
  			 ifTrue: [self perform: (ShiftCmdActions at: char asciiValue + 1) with:
typeAheadStream]
  			 ifFalse: [self perform: (CmdActions at: char asciiValue + 1) with:
typeAheadStream]].

  	 "backspace, and escape keys (ascii 8 and 27) are command keys"
  	 ((honorCommandKeys and: [sensor commandKeyPressed]) or: [self class
specialShiftCmdKeys includes: char asciiValue]) ifTrue:
  		 [^ sensor leftShiftDown
  			 ifTrue:
+ 			 [self perform: (ShiftCmdActions at: char asciiValue + 1 ifAbsent:
[#noop:]) with: typeAheadStream]
- 			 [self perform: (ShiftCmdActions at: char asciiValue + 1) with:
typeAheadStream]
  			 ifFalse:
+ 			 [self perform: (CmdActions at: char asciiValue + 1 ifAbsent: [#noop:])
with: typeAheadStream]].
- 			 [self perform: (CmdActions at: char asciiValue + 1) with:
typeAheadStream]].

  	 "the control key can be used to invoke shift-cmd shortcuts"
  	 (honorCommandKeys and: [sensor controlKeyPressed])
  		 ifTrue:
+ 		 [^ self perform: (ShiftCmdActions at: char asciiValue + 1 ifAbsent:
[#noop:]) with: typeAheadStream].
- 		 [^ self perform: (ShiftCmdActions at: char asciiValue + 1) with:
typeAheadStream].

  	 (')]}' includes: char)
  		 ifTrue: [self blinkPrevParen].

  	 ^ self perform: #normalCharacter: with: typeAheadStream!

Item was added:
+ ----- Method: ParagraphEditor>>wasComposition (in category
'accessing-selection') -----
+ wasComposition
+
+  ^ wasComposition ifNil: [^ false].
+ !

Item was added:
+ ----- Method: ParagraphEditor>>zapSelectionWithCompositionWith: (in category
'accessing-selection') -----
+ zapSelectionWithCompositionWith: aString
+  "Deselect, and replace the selection text by aString.
+ 	 Remember the resulting selectionInterval in UndoInterval and otherInterval.
+ 	 Do not set up for undo."
+
+  | stream newString aText beforeChar |
+  wasComposition := false.
+  ((aString isEmpty or: [(beforeChar := self charBefore) isNil]) or: [
+ 	 aString size = 1 and: [(Unicode isComposition: aString first) not]]) ifTrue:
[
+ 		 ^ self zapSelectionWith: (Text string: aString emphasis: emphasisHere)].
+
+  stream := UnicodeCompositionStream on: (String new: 16).
+  stream nextPut: beforeChar.
+  stream nextPutAll: aString.
+  newString := stream contents.
+  aText := Text string: newString emphasis: emphasisHere.
+  self markBlock < self pointBlock
+ 	 ifTrue: [self setMark: self markBlock stringIndex - 1]
+ 	 ifFalse: [self setPoint: self  pointBlock stringIndex - 1].
+
+  wasComposition := true.
+  self zapSelectionWith: aText.
+ !

Item was changed:
   ----- Method: ParagraphEditor>>zapSelectionWith: (in category
'accessing-selection') -----
   zapSelectionWith: aText
  	 "Deselect, and replace the selection text by aText.
  	  Remember the resulting selectionInterval in UndoInterval and otherInterval.
  	  Do not set up for undo."

  	 | start stop |
  	 self deselect.
  	 start := self startIndex.
  	 stop := self stopIndex.
  	 (aText isEmpty and: [stop > start]) ifTrue:
  		 ["If deleting, then set emphasisHere from 1st character of the deletion"
  		 emphasisHere := (paragraph text attributesAt: start forStyle: paragraph
textStyle)
  					 select: [:att | att mayBeExtended]].
  	 (start = stop and: [aText size = 0]) ifFalse:
  		 [paragraph
  			 replaceFrom: start
  			 to: stop - 1
  			 with: aText
  			 displaying: true.
  		 self computeIntervalFrom: start to: start + aText size - 1.
+ 	 self wasComposition ifTrue: [wasComposition := false. self setPoint: start +
1].
  		 UndoInterval := otherInterval := self selectionInterval]!

Item was changed:
   ScrollController subclass: #ParagraphEditor
+  instanceVariableNames: 'paragraph startBlock stopBlock beginTypeInBlock
emphasisHere initialText selectionShowing otherInterval lastParentLocation
wasComposition'
-  instanceVariableNames: 'paragraph startBlock stopBlock beginTypeInBlock
emphasisHere initialText selectionShowing otherInterval lastParentLocation'
  	 classVariableNames: 'ChangeText CmdActions FindText Keyboard ShiftCmdActions
UndoInterval UndoMessage UndoParagraph UndoSelection Undone'
  	 poolDictionaries: 'TextConstants'
  	 category: 'ST80-Controllers'!

   !ParagraphEditor commentStamp: '<historical>' prior: 0!
   I am a Controller for editing a Paragraph. I am a kind of ScrollController, so
that more text can be created for the Paragraph than can be viewed on the
screen. Editing messages are sent by issuing commands from a yellow button menu
or from keys on the keyboard. My instances keep control as long as the cursor is
within the view when the red or yellow mouse button is pressed; they give up
control if the blue button is pressed.!

Nicolas Cellier uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-nice.223.mcz

==================== Summary ====================

Name: Morphic-nice.223
Author: nice
Time: 8 November 2009, 11:56:54 am
UUID: 6598f01d-0db7-46b4-8d95-971fa10ba667
Ancestors: Morphic-dtl.222

Fix from http://bugs.squeak.org/view.php?id=7071 for unicode input

=============== Diff against Morphic-dtl.222 ===============

Item was changed:
   ----- Method: TextMorphEditor>>zapSelectionWith: (in category 'menu messages')
-----
   zapSelectionWith: aText
  	 "**overridden to inhibit old-style display"
  	 | start stop rText rInterval isInTypeRun |
  	 self deselect.
  	 start := self startIndex.
  	 stop := self stopIndex.
  	 (aText isEmpty and: [stop > start]) ifTrue:
  		 ["If deleting, then set emphasisHere from 1st character of the deletion"
  		 emphasisHere := (paragraph text attributesAt: start forStyle: paragraph
textStyle)
  					 select: [:att | att mayBeExtended]].
  	 (start = stop and: [aText size = 0]) ifFalse:
  		 [
  		 "===Support for multilevel undo start ==="
  		 rText := (paragraph text copyFrom: start to: (stop - 1)).
  		 rInterval := start to: (stop - 1).
  		 isInTypeRun := self isInTypeRun.
  		 "===Support for multilevel undo end ==="

  		 paragraph replaceFrom: start to: stop - 1
  			 with: aText displaying: false.  "** was true in super"
+ 	 self wasComposition ifTrue: [wasComposition := false. self setPoint: start +
1].
  		 self computeIntervalFrom: start to: start + aText size - 1.
  		 UndoInterval := otherInterval := self selectionInterval.

  		 "===Support for multilevel undo start ==="
  		  (Preferences multipleTextUndo and: [isInTypeRun not])ifTrue:
  				 [ self addEditCommand:
  							 (EditCommand
  									 textMorph: morph
  									 replacedText: rText
  									 replacedTextInterval: rInterval
  									 newText: aText
  									 newTextInterval: super selectionInterval)].
  		 "===Support for multilevel undo end ==="].

  	 self userHasEdited  " -- note text now dirty"!

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk:
http://source.squeak.org/trunk/KernelTests-nice.106.mcz

==================== Summary ====================

Name: KernelTests-nice.106
Author: nice
Time: 8 November 2009, 11:48:32 am
UUID: d630ecd9-7c2c-4d0a-9712-7338ad410c31
Ancestors: KernelTests-nice.105

Add a test for Float storeOn: (strange, I thought I already commited this one)

=============== Diff against KernelTests-nice.104 ===============

Item was added:
+ ----- Method: FloatTest>>testStoreOn (in category 'testing') -----
+ testStoreOn
+  "If storeOn: prints exactly and the parser avoid cumulating round off Errors,
+  then Float should be read back exactly.
+  Note: there is no guarantee to restore the bit pattern of NaN though"
+
+  self assert: (Compiler evaluate: Float halfPi storeString) = Float halfPi.
+  self assert: (Compiler evaluate: Float halfPi negated storeString) = Float
halfPi negated.
+  self assert: (Compiler evaluate: Float infinity storeString) = Float
infinity.
+  self assert: (Compiler evaluate: Float infinity negated storeString) = Float
infinity negated.
+  self assert: (Compiler evaluate: Float nan storeString) isNaN.!

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-nice.59.mcz

==================== Summary ====================

Name: Multilingual-nice.59
Author: nice
Time: 8 November 2009, 11:23:05 am
UUID: f5e20f14-d4a3-4024-a014-893ec0de6481
Ancestors: Multilingual-ar.58

File in fixes from http://bugs.squeak.org/view.php?id=7071 for handling unicode
input

==== ERROR ===

Error: subscript is out of bounds: 0

9 November 2009 10:51:40 pm

VM: unix - a SmalltalkImage
Image: Squeak3.7 [latest update: #5989]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /home/squeaksource
Trusted Dir /home/squeaksource/secure
Untrusted Dir /home/squeaksource/My Squeak

Array(Object)>>error:
	 Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xDelimiter #xDe...etc...
	 Arguments and temporary variables:
		 aString:  'subscript is out of bounds: 0'
	 Receiver's instance variables:
#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xDelimiter #xDe...etc...

Array(Object)>>errorSubscriptBounds:
	 Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xDelimiter #xDe...etc...
	 Arguments and temporary variables:
		 index:  0
	 Receiver's instance variables:
#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xDelimiter #xDe...etc...

Array(Object)>>at:
	 Receiver: #(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xDelimiter #xDe...etc...
	 Arguments and temporary variables:
		 index:  0
	 Receiver's instance variables:
#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xDelimiter #xDe...etc...

Parser(Scanner)>>scanToken
	 Receiver: a Parser
	 Arguments and temporary variables:

	 Receiver's instance variables:
		 source:  a ReadStream
		 mark:  nil
		 hereChar:  $

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.289.mcz

==================== Summary ====================

Name: Kernel-nice.289
Author: nice
Time: 8 November 2009, 1:03:07 am
UUID: 1a0c4764-9a36-4944-a87c-dfe5299dcc32
Ancestors: Kernel-tbn.288

Fix from http://code.google.com/p/pharo/issues/detail?id=1424
This will allow comparing
a MethodProperties analogousCodeTo: an AdditionalMethodState
et vice et versa

=============== Diff against Kernel-tbn.288 ===============

Item was added:
+ ----- Method: AdditionalMethodState>>hasAtLeastTheSamePropertiesAs: (in
category 'testing') -----
+ hasAtLeastTheSamePropertiesAs: aMethodProperties
+  "Answer if the recever has at least the same properties as the argument.
+ 	 N.B. The receiver may have additional properties and still answer true."
+  aMethodProperties keysAndValuesDo:
+ 	 [:k :v|
+ 	 (v isKindOf: Pragma)
+ 		 "ifTrue: [Pragmas have already been checked]"
+ 		 ifFalse: [
+ 			 (self includes: k->v) ifFalse: [^false]]].
+  ^true!

Item was changed:
   ----- Method: MethodProperties>>hasAtLeastTheSamePropertiesAs: (in category
'testing') -----
   hasAtLeastTheSamePropertiesAs: aMethodProperties
  	 "Answer if the recever has at least the same properties as the argument.
  	  N.B. The receiver may have additional properties and still answer true."
  	 aMethodProperties keysAndValuesDo:
  		 [:k :v|
+ 	 (v isKindOf: Pragma)
+ 		 "ifTrue: [Pragmas have already been checked]"
+ 		 ifFalse: [
+ 			 properties ifNil: [^false].
+ 			 ^(properties at: k ifAbsent: [^false]) = v]].
- 	 properties ifNil: [^false].
- 	 ^(properties at: k ifAbsent: [^false]) = v].
  	 ^true!

Item was changed:
   ----- Method: AdditionalMethodState>>analogousCodeTo: (in category 'testing')
-----
   analogousCodeTo: aMethodProperties
  	 | bs |
+  (aMethodProperties isKindOf: MethodProperties) ifTrue: [^aMethodProperties
analogousCodeTo: self].
  	 (bs := self basicSize) ~= aMethodProperties basicSize ifTrue:
  		 [^false].
  	 1 to: bs do:
  		 [:i|
  		 ((self basicAt: i) analogousCodeTo: (aMethodProperties basicAt: i)) ifFalse:
  			 [^false]].
  	 ^true!

David T. Lewis uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-dtl.222.mcz

==================== Summary ====================

Name: Morphic-dtl.222
Author: dtl
Time: 8 November 2009, 12:10:36 pm
UUID: f86670be-9739-4124-a5f8-3a70136d1afe
Ancestors: Morphic-ar.221

Move three methods from MorphicProject back to Project, undoing prior change.
These are required for creating and entering an MVC project from Morphic.

=============== Diff against Morphic-ar.221 ===============

Item was removed:
- ----- Method: MorphicProject>>flapsSuppressed: (in category 'flaps support')
-----
- flapsSuppressed: aBoolean
-  "Make the setting of the flag that governs whether global flaps are
suppressed in the project be as indicated and add or remove the actual flaps"
-
-  self projectPreferenceFlagDictionary at: #showSharedFlaps put: aBoolean not.
-  self == Project current  "Typical case"
- 	 ifTrue:
- 		 [Preferences setPreference: #showSharedFlaps toValue: aBoolean not]
- 	 ifFalse:   "Anomalous case where this project is not the current one."
- 		 [aBoolean
- 			 ifTrue:
- 				 [Flaps globalFlapTabsIfAny do:
- 					 [:aFlapTab | Flaps removeFlapTab: aFlapTab keepInList: true]]
-
- 			 ifFalse:
- 				 [self currentWorld addGlobalFlaps]].
-  Project current assureNavigatorPresenceMatchesPreference!

Item was removed:
- ----- Method: MorphicProject>>showSharedFlaps (in category 'flaps support')
-----
- showSharedFlaps
-  "Answer whether shared flaps are shown or suppressed in this project"
-
-  | result |
-  result := Preferences showSharedFlaps.
-  ^ self == Project current
- 	 ifTrue:
- 		 [result]
- 	 ifFalse:
- 		 [self projectPreferenceAt: #showSharedFlaps ifAbsent: [result]]!

Item was removed:
- ----- Method: MorphicProject>>flapsSuppressed (in category 'flaps support')
-----
- flapsSuppressed
-  "Answer whether flaps are suppressed in this project"
-
-  ^ self showSharedFlaps not!

Nicolas Cellier uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-nice.40.mcz

==================== Summary ====================

Name: Network-nice.40
Author: nice
Time: 7 November 2009, 9:30:57 am
UUID: 41f7cb4d-5d90-47f2-b9cf-fb68878f5012
Ancestors: Network-nice.39

Borrow excellent fix from http://code.google.com/p/pharo/issues/detail?id=1152
and let these instVarAt:put:  out of our sight

=============== Diff against Network-nice.39 ===============

Item was changed:
   ----- Method: HTTPSocket>>getResponseUpTo:ignoring: (in category 'as yet
unclassified') -----
   getResponseUpTo: markerString ignoring: ignoreString
  	 "Keep reading, until the marker is seen, skipping characters in ignoreString
when
         comparing to the marker.  Return three parts: header, marker,
beginningOfData.
        Fails if no marker in first 2000 chars."

+  | buf position bytesRead tester mm skipped |
-  | buf response bytesRead tester mm skipped |
  	 buf := String new: 2000.
+  position := 0.
-  response := WriteStream on: buf.
  	 tester := 1. mm := 1.
  	 skipped := 0.
  	 [tester := tester - markerString size + 1 max: 1.  "rewind a little, in case
the marker crosses a read boundary"
+  tester to: position do: [:tt |
-  tester to: response position do: [:tt |
  		 (buf at: tt) = (markerString at: mm) ifFalse:
  			 [[ignoreString includes: (markerString at: mm)] whileTrue:
  				 [mm := mm + 1. skipped := skipped + 1]].
  		 (buf at: tt) = (markerString at: mm)
  			 ifTrue: [mm := mm + 1]
  			 ifFalse: [mm := 1. skipped := 0].
  			 "Not totally correct for markers like xx0xx"
  		 mm > markerString size ifTrue: ["got it"
  			 ^ Array with: (buf copyFrom: 1 to: tt+1-mm+skipped)
  				 with: markerString
+ 			 with: (buf copyFrom: tt+1 to: position)]].
+ 	 tester := 1 max: position. "OK if mm in the middle"
+ 	 (position < buf size) & (self isConnected | self dataAvailable)] whileTrue:
[
- 			 with: (buf copyFrom: tt+1 to: response position)]].
- 	 tester := 1 max: response position. "OK if mm in the middle"
- 	 (response position < buf size) & (self isConnected | self dataAvailable)]
whileTrue: [
  		 (self waitForDataUntil: (Socket deadlineSecs: 5)) ifFalse: [
  			 Transcript show: 'data was late'; cr].
  		 bytesRead := self primSocket: socketHandle receiveDataInto: buf
+ 		 startingAt: position + 1 count: buf size - position..
+ 	 position := position + bytesRead].
- 		 startingAt: response position + 1 count: buf size - response position.
- 	 "response position+1 to: response position+bytesRead do: [:ii |
- 		 response nextPut: (buf at: ii)]. totally redundant, but needed to advance
position!!"
- 	 response instVarAt: 2 "position" put:
- 		 (response position + bytesRead)]. "horrible, but fast"

+  ^ Array with: (buf copyFrom: 1 to: position)
-  ^ Array with: response contents
  		 with: ''
  		 with: ''  "Marker not found and connection closed"
   !

Item was changed:
   ----- Method: HTTPSocket>>getResponseUpTo: (in category 'as yet unclassified')
-----
   getResponseUpTo: markerString
  	 "Keep reading until the marker is seen.  Return three parts: header, marker,
beginningOfData.  Fails if no marker in first 2000 chars."

+  | buf position bytesRead tester mm tries |
-  | buf response bytesRead tester mm tries |
  	 buf := String new: 2000.
+  position := 0.
-  response := WriteStream on: buf.
  	 tester := 1. mm := 1.
  	 tries := 3.
  	 [tester := tester - markerString size + 1 max: 1.  "rewind a little, in case
the marker crosses a read boundary"
+  tester to: position do: [:tt |
-  tester to: response position do: [:tt |
  		 (buf at: tt) = (markerString at: mm) ifTrue: [mm := mm + 1] ifFalse: [mm :=
1].
  			 "Not totally correct for markers like xx0xx"
  		 mm > markerString size ifTrue: ["got it"
  			 ^ Array with: (buf copyFrom: 1 to: tt+1-mm)
  				 with: markerString
+ 			 with: (buf copyFrom: tt+1 to: position)]].
+ 	 tester := 1 max: position. "OK if mm in the middle"
+ 	 (position < buf size) & (self isConnected | self dataAvailable)
- 			 with: (buf copyFrom: tt+1 to: response position)]].
- 	 tester := 1 max: response position. "OK if mm in the middle"
- 	 (response position < buf size) & (self isConnected | self dataAvailable)
  			 & ((tries := tries - 1) >= 0)] whileTrue: [
  		 (self waitForDataUntil: (Socket deadlineSecs: 5)) ifFalse: [
  			 Transcript show: ' <response was late> '].
  		 bytesRead := self primSocket: socketHandle receiveDataInto: buf
+ 		 startingAt: position + 1 count: buf size - position.
+ 	 position := position + bytesRead].
- 		 startingAt: response position + 1 count: buf size - response position.
- 	 "response position+1 to: response position+bytesRead do: [:ii |
- 		 response nextPut: (buf at: ii)]. totally redundant, but needed to advance
position!!"
- 	 response instVarAt: 2 "position" put:
- 		 (response position + bytesRead)]. "horrible, but fast"

+  ^ Array with: (buf copyFrom: 1 to position)
-  ^ Array with: response contents
  		 with: ''
  		 with: ''  "Marker not found and connection closed"
   !

Torsten Bergmann uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-tbn.288.mcz

==================== Summary ====================

Name: Kernel-tbn.288
Author: tbn
Time: 6 November 2009, 11:34:20 am
UUID: aad7e55c-fd95-f744-8a85-e7b176c70810
Ancestors: Kernel-ul.287

categorize and format ChronologyConstants>>initialize as a first commit test

=============== Diff against Kernel-ul.287 ===============

Item was changed:
+ ----- Method: ChronologyConstants class>>initialize (in category 'class
initialization') -----
- ----- Method: ChronologyConstants class>>initialize (in category 'as yet
unclassified') -----
   initialize
+  "ChronologyConstants initialize"
+
+  SqueakEpoch := 2415386. 	 "Julian day number of 1 Jan 1901"
-  "ChronologyConstants initialize"  SqueakEpoch := 2415386. 	 "Julian day
number of 1 Jan 1901"
  	 SecondsInDay := 86400.
  	 SecondsInHour := 3600.
  	 SecondsInMinute := 60.
  	 NanosInSecond := 10 raisedTo: 9.
  	 NanosInMillisecond := 10 raisedTo: 6.
  	 DayNames := #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday).

  	 MonthNames := #(January February March April May June July
   			 August September October November December).
  	 DaysInMonth := #(31 28 31 30 31 30 31 31 30 31 30 31)
   !

Well assuming it's bug
http://bugs.squeak.org/view.php?id=6581

any chance someone in charge can update the image that supports
source.squeak.org
?


On 2009-11-09, at 10:04 AM, Julian Fitzell wrote:

> Umm... wow. :)
>
> On Mon, Nov 9, 2009 at 3:42 AM, Bert Freudenberg
> <bert@...> wrote:
>>
>> On 09.11.2009, at 00:55, Nicolas Cellier wrote:
>>
>>> Sorry, i blocked source.squeak.org again...
>>> I just commited a Kernel.mcz ... It does not block at each commit,
>>> but
>>> last one took a few hours...
>>
>> Solved by a mouse wiggle :/
>>
>> - Bert -
>>
>>
>>
>>
>

--
=
=
=
========================================================================
John M. McIntosh <johnmci@...>   Twitter:
squeaker68882
Corporate Smalltalk Consulting Ltd.  http://www.smalltalkconsulting.com
=
=
=
========================================================================